欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

mssql server 存储过程获取汉字拼音头字母函数

程序员文章站 2022-06-12 12:51:18
...

我们这里利用了mssql 存储过程获取汉字拼音头字母函数 高级处理方法,有需要的可以参考一下,这里都不需要php,asp.net这类处理哦。

代码如下 复制代码


CREATE function fn_GetPy(@str nvarchar(4000))
returns nvarchar(4000)
--WITH ENCRYPTION
as
begin
declare @intLenint
declare @strRetnvarchar(4000)
declare @temp nvarchar(100)

set @intLen = len(@str)
set @strRet = ''

while @intLen > 0
begin
set @temp = ''

@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) >= '?r' 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
go

--调用
select dbo.fn_getpy('张三')

--返回:zs

答!: 2:
取汉字拼音首字母的存储过程

Create function fun_getPY ( @str nvarchar(4000) )
returns nvarchar(4000)
as
begin

declare @word nchar(1),@PY nvarchar(4000)

set @PY=''

while len(@str)>0
begin
set @word=left(@str,1)

--如果非汉字字符,返回原字符
set @PY=@PY+(case when unicode(@word) between 19968 and 19968+20901
then (
select top 1 PY
from
(
select 'A' as PY,N'?' as word
union all select 'B',N'簿'
union all select 'C',N'?'
union all select 'D',N'?'
union all select 'E',N'??'
union all select 'F',N'?'
union all select 'G',N'?'
union all select 'H',N'??'
union all select 'J',N'?h'
union all select 'K',N'?'
union all select 'L',N'?'
union all select 'M',N'??'
union all select 'N',N'??'
union all select 'O',N'?a'
union all select 'P',N'曝'
union all select 'Q',N'??'
union all select 'R',N'?'
union all select 'S',N'?'
union all select 'T',N'?'
union all select 'W',N'?'
union all select 'X',N'?'
union all select 'Y',N'?'
union all select 'Z',N'??'
) T
where word>=@word collate Chinese_PRC_CS_AS_KS_WS
order by PY ASC
)
else @word
end)
set @str=right(@str,len(@str)-1)
end

return @PY

end