从全拼音中得到汉字拼音

 --(1) JJ的

create function [dbo].[funcGetPY](@str nvarchar(4000))
returns nvarchar(4000)
as
begin
declare @strlen int,@re nvarchar(4000)
declare @t table(chr nchar(1) collate Chinese_PRC_CI_AS,letter nchar(1))
insert into @t(chr,letter)
  select '吖','A' union all select '八','B' union all
  select '嚓','C' union all select '咑','D' union all
  select '妸','E' union all select '发','F' union all
  select '旮','G' union all select '铪','H' union all
  select '丌','J' union all select '咔','K' union all
  select '垃','L' union all select '嘸','M' union all
  select '拏','N' union all select '噢','O' union all
  select '妑','P' union all select '七','Q' union all
  select '呥','R' union all select '仨','S' union all
  select '他','T' union all select '屲','W' union all
  select '夕','X' union all select '丫','Y' union all
  select '帀','Z'
  select @strlen=len(@str),@re=''
  while @strlen>0
  begin
    select top 1 @re=letter+@re,@strlen=@strlen-1
      from @t a where chr<=substring(@str,@strlen,1)
      order by chr desc
    if @@rowcount=0
      select @re=substring(@str,@strlen,1)+@re,@strlen=@strlen-1
  end
  return(@re)
end

--Z老大的

/*--从全拼音中得到汉字拼音 
  
  首先,用输入法生成器(Imegen.exe)的逆转换功能 
  将全拼的码表文件   WINPY.MB   转换成文本文件   c:/winpy.txt 
  然后用下面的语句导入到数据库中 
    下面只是显示了读取并显示的过程,并没有存储到具体的表中 
  
  读取语句中的: 
  with(datafiletype='widechar')     的作用是处理unicode数据 
  我是用win2000测试的,转换的文本文件编码是unicode 
  如果是编码是ansi,则不要这句 
  
  查看文本文件编码,可以用记事本打开文本文件,另存为,就可以看到当前编码 
  --*/ 
  
  --创建临时表 
  create   table   #t(a   varchar(500)) 
  
  --导入数据 
  bulk   insert   #t   from   'c:/winpy.txt' 
  with(datafiletype='widechar') 
  
  --删除表头 
  set   rowcount   12 
  delete   from   #t 
  set   rowcount   0 
  
  --分拆处理 
  select   汉字=left(a,patindex('%[a-z]%',a)-1) 
  ,拼音=stuff(a,1,patindex('%[a-z]%',a)-1,'') 
  from   #t 
  --where   patindex('%[a-z]%',a)=2     --如果是获得单字的读音