PARSENAME Enhancement

CREATE FUNCTION dbo.fnParseString
(
@Section SMALLINT,
@Delimiter CHAR,
@Text VARCHAR(8000)
)
RETURNS VARCHAR(8000)
AS

BEGIN
DECLARE@NextPos SMALLINT,
@LastPos SMALLINT,
@Found SMALLINT

SELECT@NextPos = 0,
@Found = 0

IF @Section > 0
SELECT@Text = REVERSE(@Text)

WHILE @NextPos <= DATALENGTH(@Text) AND @Found < ABS(@Section)
SELECT@LastPos = @NextPos,
@NextPos =CASE
WHEN CHARINDEX(@Delimiter, @Text, @LastPos + 1) = 0 THEN DATALENGTH(@Text) + 1
ELSE CHARINDEX(@Delimiter, @Text, @LastPos + 1)
END,
@Found = @Found + 1

IF @Found <> ABS(@Section) OR @Found = 0 OR @Section = 0
SELECT@Text = NULL
ELSE
SELECT@Text = SUBSTRING(@Text, @LastPos + 1, @NextPos - @LastPos - 1)

RETURN CASE WHEN @Section < 0 THEN @Text ELSE REVERSE(@Text) END
END