SQL快速生成汉字的首拼字母

SQL快速生成汉字的首拼字母

经常要对姓名按拼音搜索。

所以需要做如下函数来快速获取首拼

代码如下：

[sql]
USE [tempdb]  
GO  
/****** Object:  UserDefinedFunction [dbo].[fun_getPY]    Script Date: 05/23/2012 18:03:45 ******/    www.atcpu.com  
SET ANSI_NULLS ON  
GO  
SET QUOTED_IDENTIFIER ON  
GO  
    
/*  
获取汉字的首拼音  
如果是非汉字字符  
*/  
ALTER    function [dbo].[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 (      www.atcpu.com  
                            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     www.atcpu.com  
  
  return upper(@PY)  
  
end  
调用如下：

[sql]
select dbo.[fun_getPY]('中国人') 首拼  

结果：

首拼
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ZGR

希望以上对大家有帮助。