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)

          隨筆分類

          隨筆檔案

          搜索

          •  

          最新評論

          閱讀排行榜

          評論排行榜

          主站蜘蛛池模板: 雅安市| 南开区| 太和县| 新兴县| 高青县| 平湖市| 抚远县| 彩票| 盈江县| 西峡县| 荔波县| 霸州市| 桃源县| 会宁县| 汕尾市| 北川| 姜堰市| 湛江市| 贵州省| 崇州市| 佛山市| 进贤县| 黔江区| 舟曲县| 会泽县| 永川市| 东明县| 逊克县| 通化市| 托里县| 莒南县| 襄樊市| 太和县| 刚察县| 赤壁市| 龙井市| 荔浦县| 乐东| 邹平县| 安多县| 合阳县|