取汉字首字母

create function [dbo].[F_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                          
                        case when @word='行' then 'H'
                     else                        
                          (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) end
                                else @word end) 
            set @str=right(@str,len(@str)-1) 
    end
    return @PY 
END