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