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 閱讀(446) 評論(0)  編輯  收藏

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


          網站導航:
           

          常用鏈接

          留言簿(5)

          隨筆分類

          隨筆檔案

          搜索

          •  

          最新評論

          閱讀排行榜

          評論排行榜

          主站蜘蛛池模板: 神农架林区| 通州区| 顺昌县| 江城| 河源市| 永川市| 平乡县| 平塘县| 曲阳县| 南召县| 金塔县| 萍乡市| 铜梁县| 荆门市| 荣昌县| 东安县| 郑州市| 镇坪县| 武功县| 双江| 宜君县| 龙川县| 富裕县| 阳原县| 茂名市| 闽侯县| 长岭县| 巴楚县| 唐河县| 安达市| 旬阳县| 铜陵市| 福海县| 宁德市| 富源县| 玉环县| 罗田县| 阳春市| 石棉县| 资阳市| 绿春县|