更新text.(转)

--text字段的替换处理示例--替换指定记录  
   
  --创建数据测试环境  
  create   table   test(id   varchar(3),txt   text)  
  insert   into   test  
  select   '001',REPLICATE('a',4000)   +   REPLICATE('b',2000)   +   REPLICATE('ab',2000)  
  union   all   select   '002',REPLICATE('a',4000)   +   REPLICATE('b',2000)   +   REPLICATE('ab',2000)  
  go  
   
   
  --定义替换的字符串  
  declare   @s_str   varchar(8000),@d_str   varchar(8000),@id   varchar(3)  
  select   @id='001' --要替换的记录id    
  ,@s_str='a'   --要替换的字符串  
  ,@d_str='ab' --替换成的字符串  
   
   
  --因为只能用patindex,所以对于搜索字符串做处理  
  set   @s_str='%'+@s_str+'%'  
   
  --字符串替换处理  
  declare   @p   varbinary(16)  
  ,@p1   int,@p2   int  
  ,@rplen   int,@step   int,@len   int  
   
  select   @p=textptr(txt)  
  ,@rplen=len(@s_str)-2  
  ,@step=len(@d_str)  
  ,@p1=patindex(@s_str,txt)  
  ,@len=datalength(txt)  
  ,@p2=0  
  from   test   where   id=@id  
   
  while   @p1>0  
  begin  
  set   @p2=@p1+@p2-1  
  updatetext   test.txt   @p   @p2   @rplen   @d_str  
  select   @p2=@p2+1,@p1=patindex(@s_str,substring(txt,@p2+1,@len))  
  from   test   where   id=@id  
  end  
   
  --显示结果  
  select   datalength(txt),*   from   test  
   
  go  
  --删除数据测试环境