sp_CHARINDEX

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE PROCEDURE sp_CharIndex(@sChar CHAR(1), @strKey VARCHAR(1024), @nPos INT OUTPUT)

AS
BEGIN
   /***
    *
    *  Date:   01/22/2002
    *  Auth:   Mike McWilliams <mike.mcwilliams@agedwards.com>
    *  Desc:   Returns the position of the character with case-sensitivity
    *
    ***/
--   DECLARE @nPOS INT
   DECLARE @nRet INT

   SET @nRet = 0
   SET @nPOS = 1

   WHILE @nPOS < LEN(@strKey) + 1
      BEGIN
         IF ASCII(@sChar) = ASCII(SUBSTRING(@strKey, @nPos,1))
            BEGIN
               SET @nRet = @nPos
               BREAK
            END
         ELSE
            SET @nPos = @nPos + 1

      END
  SET @nPos = @nRet
END
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO