GO

/****** Object: UserDefinedFunction [dbo].[fn_GetPy] Script Date: 2017/1/4 10:53:49 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

ALTER function [dbo].[fn_GetPy](@str nvarchar(4000))

returns nvarchar(4000)

　--用于加密

--WITH ENCRYPTION

as

begin

declare @intLen int

declare @strRet nvarchar(4000)

declare @temp nvarchar(100)

set @intLen = len(@str)

set @strRet = ''

while @intLen > 0

begin

set @temp = ''

select @temp = case

when substring(@str,@intLen,1) >= '帀' then 'Z'

when substring(@str,@intLen,1) >= '丫' then 'Y'

when substring(@str,@intLen,1) >= '夕' then 'X'

when substring(@str,@intLen,1) >= '屲' then 'W'

when substring(@str,@intLen,1) >= '他' then 'T'

when substring(@str,@intLen,1) >= '仨' then 'S'

when substring(@str,@intLen,1) >= '呥' then 'R'

when substring(@str,@intLen,1) >= '七' then 'Q'

when substring(@str,@intLen,1) >= '妑' then 'P'

when substring(@str,@intLen,1) >= '噢' then 'O'

when substring(@str,@intLen,1) >= '拏' then 'N'

when substring(@str,@intLen,1) >= '嘸' then 'M'

when substring(@str,@intLen,1) >= '垃' then 'L'

when substring(@str,@intLen,1) >= '咔' then 'K'

when substring(@str,@intLen,1) >= '丌' then 'J'

when substring(@str,@intLen,1) >= '铪' then 'H'

when substring(@str,@intLen,1) >= '旮' then 'G'

when substring(@str,@intLen,1) >= '发' then 'F'

when substring(@str,@intLen,1) >= '妸' then 'E'

when substring(@str,@intLen,1) >= '咑' then 'D'

when substring(@str,@intLen,1) >= '嚓' then 'C'

when substring(@str,@intLen,1) >= '八' then 'B'

when substring(@str,@intLen,1) >= '吖' then 'A'

else rtrim(ltrim(substring(@str,@intLen,1)))

end

--对于汉字特殊字符，不生成拼音码

if (ascii(@temp)>127) set @temp = ''

--对于英文中小括号，不生成拼音码

if @temp = '(' or @temp = ')' set @temp = ''

select @strRet = @temp + @strRet

set @intLen = @intLen - 1

end

return lower(@strRet)

end