从全拼音中得到汉字拼音

--(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 --如果是获得单字的读音