【叶子函数分享十一】取汉字首字母的两个函数

go

--创建取汉字首字母函数(第一版)

create function [dbo].[f_getpy_V1] (@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'攈'

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'漚'

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

go

--创建取汉字首字母函数(第二版)

create function [dbo].[f_getpy_V2](@Str varchar(500)='')

returns varchar(500)

as

begin

declare @strlen int,@return varchar(500),@ii int

declare @n int,@c char(1),@chn nchar(1)

select @strlen=len(@str),@return='',@ii=0

set @ii=0

while @ii<@strlen

begin

select @ii=@ii+1,@n=63,@chn=substring(@str,@ii,1)

if @chn>'z'

select @n = @n +1

,@c = case chn when @chn then char(@n) else @c end

from(

select top 27 * from (

select chn = '吖'

union all select '八'

union all select '嚓'

union all select '咑'

union all select '妸'

union all select '发'

union all select '旮'

union all select '铪'

union all select '丌' --because have no 'i'

union all select '丌'

union all select '咔'

union all select '垃'

union all select '嘸'

union all select '拏'

union all select '噢'

union all select '妑'

union all select '七'

union all select '呥'

union all select '仨'

union all select '他'

union all select '屲' --no 'u'

union all select '屲' --no 'v'

union all select '屲'

union all select '夕'

union all select '丫'

union all select '帀'

union all select @chn) as a

order by chn COLLATE Chinese_PRC_CI_AS

) as b

else set @c='a'

set @return=@return+@c

end

return(@return)

end

--测试示例

select dbo.[f_getpy_V1]('王立国') as V11

select dbo.[f_getpy_V2]('王立国') as V21

select dbo.[f_getpy_V1]('重复') as V21

select dbo.[f_getpy_V2]('重复') as V22

--运行结果

/*

V11

--------

WLG

V21

--------

WLG

V21

--------

ZF

V22

--------

ZF

*/

--由上我们可以看到，两种方法都没有解决多音字的问题。