Alter FUNCTION [dbo].[split](@expression VarChar(max),@delimiter VarChar(30) = ' ')
RETURNS @TmpTable TABLE (RefNo　VarChar(max))
AS
BEGIN
　　if rtrim(isnull(@expression,'')) > ''
　　begin
　　　　declare @cxml xml
　　　　set @cxml = '<x_k><![CDATA['+replace(@expression,@delimiter,']]></x_k><x_k><![CDATA[')+']]></x_k>'
　　　　insert into @TmpTable select ls.row.value('.[1]','varchar(max)') as refno--, identity(int,1,1) as idno
　　　　　　from @cxml.nodes('/x_k') as ls(row)
　　end
　　RETURN
END
GO(A SQL imitates the split function in VB to achieve a high efficiency by turning a text string into a data table.)