妙用 T-SQL: PARSENAME 函数实现按指定分隔符拆分字符串 SplitString

[playyuer]

http://www.cnblogs.com/microshaoft/archive/2005/05/10/152325.html

[hpl1997]

修改了一点点内容：
alter function UDF_SplitSubString
(
@Expression varchar(8000),
@Delimiter char(1),
@ int,
@Dot char(1) = '$'
)
returns varchar(200)
as
begin
declare @p int
declare @old_p int
declare @s varchar(1000)

set @p = CharIndex(@Delimiter,@Expression)
declare @i int
set @i = 1
while @i <= @
begin
set @Expression = substring (@Expression, @p + 1,len(@Expression) - @p )
set @old_p = @p
set @p = CharIndex (@Delimiter,@Expression)
--增加if，效率高
if(@p = 0)
begin
--增加@old_p，这样如果超出@Expression中@Delimiter的个数，则返回空
if(@old_p = 0)
return ''
else
set @s = @Expression
end
set @i = @i + 1
end
if(@p = 0)
begin
set @s = @Expression
end
else
begin
--替换一下 '.' 因为 parsename 只认 '.'
set @Expression = replace(@Expression,'.',@Dot) --所以先把字符串中的'.'替换为其它在@Expression中不可能存在的字符
set @Expression = substring(@Expression,1,@p - 1) + '.' + substring(@Expression, @p + 1,len(@Expression) - @p)
set @s = ParseName(@Expression,2)
set @s = replace(@s,@Dot,'.')
end
if(@s is null)
set @s = ''
return @s
end

例如
declare @ varchar(1000)
set @ = '@[e-mail]@90.90@@pppp@aa@@dfd'
select
dbo.UDF_SplitSubString (@ , '@', 1,'$'),
dbo.UDF_SplitSubString (@ , '@', 2,'$'),
dbo.UDF_SplitSubString (@ , '@', 3,'$'),
dbo.UDF_SplitSubString (@ , '@', 4,'$'),
dbo.UDF_SplitSubString (@ , '@', 5,'$'),
dbo.UDF_SplitSubString (@ , '@', 6,'$'),
dbo.UDF_SplitSubString (@ , '@', 7,'$'),
dbo.UDF_SplitSubString (@ , '@', 8,'$'),
dbo.UDF_SplitSubString (@ , '@', 100,'$')

[leeboyan]

学习

[winternet]

学习！

[playyuer]

20050519 修订为不使用 PARSENAME ,鸣谢楼下的"小杰"网友: !@#$%^&*!
且分隔符支持任意长度!


SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

ALTER function dbo.UDF_SplitSubString
(
@Expression varchar(8000)
,@Delimiter varchar(100)
,@ int
)
returns varchar(8000)
as
begin
--declare @Expression varchar(8000)
--set @Expression = 'abc@@pppp@aa'
--declare @Delimiter varchar(100)
--set @Delimiter = '@@@'
--declare @ int
--set @ = 3

declare @p int
set @p = CharIndex(@Delimiter,@Expression)
if @p > 0
begin
set @p = @p + len(@Delimiter) - 1
end
declare @i int
set @i = 1
while @i < @
begin
set @i = @i + 1
set @Expression = substring (@Expression, @p + 1,len(@Expression) - @p )
set @p = CharIndex(@Delimiter,@Expression)
if @p > 0
begin
set @p = @p + len(@Delimiter) - 1
end
else
begin
break
end
end

declare @s varchar(1000)
if @p = 0 and @i = @
begin
set @s = @Expression
end
else if @i = @
begin
set @s = substring(@Expression, 1,@p - len(@Delimiter))
end
return @s
end

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

declare @ varchar(1000)
set @ = '@@playyuer@www&&.Microshaoft&&com@90.90@@pppp@.'
declare @d varchar(1000)
set @d = '@@'
select
dbo.UDF_SplitSubString (@ , @d, 0)
,dbo.UDF_SplitSubString (@ , @d, 1)
,dbo.UDF_SplitSubString (@ , @d, 2)
,dbo.UDF_SplitSubString (@ , @d, 3)
,dbo.UDF_SplitSubString (@ , @d, 4)
,dbo.UDF_SplitSubString (@ , @d, 5)
,dbo.UDF_SplitSubString (@ , @d, 6)
,dbo.UDF_SplitSubString (@ , @d, 7)
,dbo.UDF_SplitSubString (@ , @d, 8)
,dbo.UDF_SplitSubString (@ , @d, 100)

[rfq]

学习！

[Comer]

好东东收藏

学习ing。。。

[genggeng1206]

顶!收藏.

[Andy__Huang]

up

收藏.

[pjy998]

學習

[zjcxc]

--也来一个.

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

/*--得到字符串列表指定位置的字符

可以自定义字符串列表的分隔符
如果取数位置超出的范围,返回空字符串

--邹建 2004.07(引用请保留此信息)--*/

/*--调用示例
--测试数据
declare @t table(FITEM varchar(100))
insert @t select '100..10.'
union all select '20.140.10'
union all select '150.124.150.10'

--查询
select fitem1=dbo.f_GetStr(fitem,1,'.')
,fitem2=dbo.f_GetStr(fitem,2,'.')
,fitem3=dbo.f_GetStr(fitem,3,'.')
,fitem4=dbo.f_GetStr(fitem,4,'.')
,fitem4=dbo.f_GetStr(fitem,5,'.')
,fitem4=dbo.f_GetStr(fitem,6,'.')
from @t
--*/
CREATE FUNCTION f_GetStr(
@s varchar(8000), --字符串列表
@pos int, --要获取的数据信息段
@split varchar(10) --分隔符
)RETURNS varchar(100)
AS
BEGIN
IF @s IS NULL RETURN(NULL)
DECLARE @splitlen int
SELECT @splitlen=LEN(@split+'a')-2
WHILE @pos>1 AND CHARINDEX(@split,@s+@split)>0
SELECT @pos=@pos-1,
@s=STUFF(@s,1,CHARINDEX(@split,@s+@split)+@splitlen,'')
RETURN(ISNULL(LEFT(@s,CHARINDEX(@split,@s+@split)-1),''))
END
GO

[Well]

再一次關注！！

都是星級的牛人！！

我一定要向你們好好學習！

[talantlee]

鬱悶中

[健者天行]

mark 一个先，迟点再来研究

[xdhou]

很好.

[summerICEREDTEA]

学习 -____-

[qxq321]

mark,

[hglhyy]

总之两个字：厉害！

[chcky]

借问一下，如何将搜索出来的多条记录（只一个字段）作为一行显示，记录间用逗号分隔
如select name from table1，结果有三条记录
张三
李四
王五
我想得到的结果是
张三，李四，王五

[vivianfdlpw]

学习~

[szuzh]

谢谢