分段更新函数.sql

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_SetStr]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[f_SetStr]
GO

--分段截取函数
CREATE FUNCTION dbo.f_SetStr(
@s varchar(8000),      --包含数据项的字符串
@pos int,             --要更新的数据项的段
@value varchar(100),   --更新后的值
@split varchar(10)     --数据分隔符
)RETURNS varchar(8000)
AS
BEGIN
    DECLARE @splitlen int,@p1 int,@p2 int
    SELECT @splitlen=LEN(@split+'a')-2,
        @p1=1,
        @p2=CHARINDEX(@split,@s+@split)
    WHILE @pos>1 AND @p1<=@p2
        SELECT @pos=@pos-1,
            @p1=@p2+@splitlen+1,
            @p2=CHARINDEX(@split,@s+@split,@p1)
    RETURN(CASE
        WHEN @p1<@p2 THEN STUFF(@s,@p1,@p2-@p1,@value)
        WHEN @p2>LEN(@s) THEN @s+@value
        WHEN @p2=@p1 THEN STUFF(@s,@p1,0,@value)
        ELSE @s END)
END
GO