SQL_UDF:Split like VB function

 CREATE function split(@SourceSql nvarchar(4000),@StrSeprate nvarchar(10))
returns @temp table(seq int identity, id nvarchar(100))
--類似VBS split的函數
as
begin
    declare @i int,@ilen int
    set @SourceSql=rtrim(ltrim(@SourceSql))
    set @i=charindex(@StrSeprate,@SourceSql)
    set @ilen=len(@StrSeprate)
    while @i>=1
    begin
        insert @temp values(left(@SourceSql,@i-1))
        set @SourceSql=substring(@SourceSql,@i+@ilen,len(@SourceSql)-@i)
        set @i=charindex(@StrSeprate,@SourceSql)
    end
    if @SourceSql<>'/'
       insert @temp values(@SourceSql)
    return
end