字符串比较函数.sql

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

--1. 比较两个字符串中包含的数据项是否相同的用户定义函数：
CREATE FUNCTION dbo.f_CompareSTR(
@s1  varchar(8000),  --要比较的第一个字符串
@s2  varchar(8000),  --要比较的第二个字符串
@split varchar(10)    --数据分隔符
)RETURNS bit
AS
BEGIN
    IF LEN(@s1)<>LEN(@s2) RETURN(0)
    DECLARE @r1 TABLE(col varchar(100))
    DECLARE @r2 TABLE(col varchar(100))
    DECLARE @splitlen int
    SET @splitlen=LEN(@split+'a')-2
    WHILE CHARINDEX(@split,@s1)>0
    BEGIN
        INSERT @r1 VALUES(LEFT(@s1,CHARINDEX(@split,@s1)-1))
        SET @s1=STUFF(@s1,1,CHARINDEX(@split,@s1)+@splitlen,'')
    END
    INSERT @r1 VALUES(@s1)

    WHILE CHARINDEX(@split,@s2)>0
    BEGIN
        INSERT @r2 VALUES(LEFT(@s2,CHARINDEX(@split,@s2)-1))
        SET @s2=STUFF(@s2,1,CHARINDEX(@split,@s2)+@splitlen,'')
    END
    INSERT @r2 VALUES(@s2)
    RETURN(CASE
        WHEN EXISTS(SELECT * FROM @r1 a FULL JOIN @r2 b ON a.col=b.col WHERE a.col IS NULL OR b.col IS NULL)
        THEN 0 ELSE 1 END)
END
GO


/*================================================================*/


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

--2．比较两个字符串中包含的数据项是否有任意一个相同
CREATE FUNCTION dbo.f_CompareSTR(
@s1  varchar(8000),  --要比较的第一个字符串
@s2  varchar(8000),  --要比较的第二个字符串
@split varchar(10)    --数据分隔符
)RETURNS bit
AS
BEGIN
    DECLARE @splitlen int
    SET @splitlen=LEN(@split+'a')-2
    WHILE CHARINDEX(@split,@s1)>0
    BEGIN
        IF CHARINDEX(@split+LEFT(@s1,CHARINDEX(@split,@s1)-1)+@split,@split+@s2+@split)>0
            RETURN(1)
        SET @s1=STUFF(@s1,1,CHARINDEX(@split,@s1)+@splitlen,'')
    END
    RETURN(CASE WHEN CHARINDEX(@split+@s1+@split,@split+@s2+@split)>0 THEN 1 ELSE 0 END)
END