/****** 对象:  UserDefinedFunction [dbo].[chinese_firstletter]    脚本日期: 07/26/2007 17:08:17 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--返回汉字首字母

ALTER  function [dbo].[chinese_firstletter]
(
  @str nvarchar(1)
)
returns nvarchar(1)
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

发表于 @ 2007年07月26日　17:10:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:ubuntu常用软件安装 | 新一篇:asp.net 页面事件执行顺序