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

          posted on 2009-02-26 09:44 sanmao 閱讀(443) 評論(0)  編輯  收藏

          只有注冊用戶登錄后才能發表評論。


          網站導航:
           

          常用鏈接

          留言簿(5)

          隨筆分類

          隨筆檔案

          搜索

          •  

          最新評論

          閱讀排行榜

          評論排行榜

          主站蜘蛛池模板: 贵州省| 丰原市| 福安市| 翁牛特旗| 吴桥县| 四平市| 宜良县| 新绛县| 斗六市| 江西省| 巴中市| 霍林郭勒市| 海安县| 从化市| 广南县| 边坝县| 新闻| 萍乡市| 都江堰市| 彰武县| 常山县| 汶上县| 太仓市| 蚌埠市| 峨边| 丰台区| 岗巴县| 昌邑市| 永和县| 乌苏市| 陆川县| 铜陵市| 嵩明县| 原平市| 肇庆市| 乌拉特前旗| 景泰县| 长沙县| 手游| 辽宁省| 积石山|