当前位置:学Delphi网文档资料技术资料数据库

SQL游标+函数+存储过程批量处理数据

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2011-01-25 11:01:13

今天遇到一个问题,要批量拆分处理几十万条电话号码,将电话拆分为单个组成一个电话列表,原本计划用Delphi连接数据库来进行了处理,但是后来考虑到处理效率,还是用SQL语句来处理比较好,于是首先将电话列表整理好,每个用户的电话用/分隔,电话在一个字段里,类似A/B/C,把不规则的号码整理后,然后准备拆分函数,将A/B/C拆分为A,B,C三个号码,分别写入电话列表库,最近使用游标循环对几十万用户的电话号码进行批理处理,30万用户电话,只花了7分43秒就搞定了,拆分后共计81万个电话号码,哈哈,SQL游标做循环批量操作太爽了,外加存储过程,加函数配合,基本上能实现数据整理,写入,匹配操作。两个字总结:强大。


游标批量处理

CREATE               PROCEDURE AutoGetTelList  AS

declare  @UserID  int
declare  @mytelstr varchar(200)
declare  cur_getUserID  cursor  for
      select  main_id  from  aipu_main where main_id>=10000 and main_id<20000
open  cur_getUserID

fetch  next  from  cur_getUserID  into  @UserID
while(@@fetch_status  =  0)
begin
 
 select @mytelstr=联系方式 from aipu_main where main_id=@UserID

 exec SamoolSplitTel @mytelstr,'/',@UserID

 fetch  next  from  cur_getUserID  into  @UserID 
end

close  cur_getUserID
deallocate  cur_getUserID

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

SQL拆分函数

CREATE  Procedure SamoolSplitTel
(@origStr varchar(7000),
 @markStr varchar(100),
 @main_id varchar(20)
    )
    AS
    BEGIN
        declare @strlen int,@postion int,@start int,@sublen int,
        @TEMPstr varchar(200),@TEMPid int
        SELECT @strlen=LEN(@origStr),@start=1,@sublen=0,@postion=1,@TEMPstr='',@TEMPid=0
        if(RIGHT(@origStr,1)<>@markStr )
 begin
  set @origStr = @origStr + @markStr
 end

 WHILE((@postion<=@strlen) and (@postion !=0))
 BEGIN
  IF(CHARINDEX(@markStr,@origStr,@postion)!=0)
  BEGIN
   SET @sublen=CHARINDEX(@markStr,@origStr,@postion)-@postion;
  END
  ELSE
  BEGIN
   SET @sublen=@strlen-@postion+1;
  END

  IF(@postion<=@strlen)
  BEGIN
   SET @TEMPid=@TEMPid+1;
   SET @TEMPstr=SUBSTRING(@origStr,@postion,@sublen);
   INSERT INTO aipu_tellist(main_id,tel) values(@main_id,@TEMPstr)

   IF(CHARINDEX(@markStr,@origStr,@postion)!=0)
   BEGIN
    SET @postion=CHARINDEX(@markStr,@origStr,@postion)+1
   END
   ELSE
   BEGIN
    SET @postion=@postion+1
   END
  END
 END
END

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
本文来自:http://www.samool.com/archives/41077/

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论