模拟字符串处理函数stuff处理Ntext字段

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_stuff]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_stuff]
GO

/*--Ntext字段处理

 模拟字符串处理函数 stuff
 完成表中 ntext 字段的 stuff 处理
 注意,表中需要有列名为:id 的主键(或标识字段),数据类型为int
 如果没有这个主键字段,或者是其他类型,则对应的需要修改存储过程

--邹建 2004.07--*/

/*--调用示例

 --测试数据
 create table tb(id int identity(1,1),content ntext)
 insert tb select 'a;sd'
 union all select 'a;sdfkjas2qasdfdfsg45yhjhdfg45645a'
 
 --调用存储过程,将第8~9的字符替换成'中国'
 exec p_stuff 'tb','content',8,2,'中国','
 select * from tb
 
 drop table tb
--*/

create proc p_stuff
@tbname sysname, --要处理的表名
@fdname sysname, --text/ntext字段名
@start int=null, --开始位置,NULL表示追加数据
@length int=null, --替换的长度
@str nvarchar(4000),--要插入的字符串
@where nvarchar(1000)='--要处理的记录的条件
as
if @str is null return
declare @s nvarchar(4000)
set @s='
declare @id int,@ptr varbinary(16),@start1 int

declare tb cursor local for
select id,start=datalength(['+@fdname+'])/2
from ['+@tbname+']
'+case isnull(@where,') when ' then '
 else ' where '+@where end+'

open tb
fetch tb into @id,@start1
while @@fetch_status=0
begin
 select @ptr=textptr(content)
 from ['+@tbname+']
 where id=@id

 if @start is null or @start1<@start
  updatetext ['+@tbname+'].['+@fdname+'] @ptr null null @str
 else
 begin
  set @start1=@start-1
  updatetext ['+@tbname+'].['+@fdname+'] @ptr @start1 @length @str
 end
 fetch tb into @id,@start1
end
close tb
deallocate tb
'
exec sp_executesql @s
 ,N'@start int,@length int,@str nvarchar(4000)'
 ,@start,@length,@str
go