If Exists(Select * From sysobjects T Where T.id = object_id(N'HZ2PY') AND xtype IN(N'FN', N'IF', N'TF')) drop Function HZ2PYgoCreate Function HZ2PY(@cString nVarChar (200))Returns nVarChar(100)AS BeginDeclare @nFor Int --字符串循环用Declare @nPYFor Int --拼音串循环用Declare @cPYString VarChar(100) --拼音串Declare @cCurChar VarChar(2) --当前字符Declare @vReturn VarChar (100) ----将返回的结果Set @cPYString = '吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'Set @vReturn = ''Set @nFor = 0While @nFor < Len(@cString)BeginSet @nFor = @nFor + 1Set @cCurChar = Substring(@cString,@nFor,1)Set @nPYFor = 0While @nPYFor < len(@cPYString)BeginSet @nPYFor = @nPYFor + 1If @cCurChar < Substring(@cPYString,@nPYFor,1)BeginSet @vReturn = Rtrim(@vReturn) + (Case When @nPYFor <> 1 Then Char(63 + @nPYFor) Else @cCurChar End)BreakEndElseBeginContinueEndEndEndReturn @vReturnEnd
