汉字转拼音

Question

这个一定要拼音库的.Top
2 楼zjcxc（邹建）回复于 2006-06-01 19:54:20 得分 95/*--从全拼音中得到汉字拼音  
   
  首先,用输入法生成器(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     --如果是获得单字的读音  
   
  --删除测试  
  drop   table   #tTop
3 楼zjcxc（邹建）回复于 2006-06-01 19:56:16 得分 0
--   使用拼音库处理拼音的示例  
   
   
  /*--获得汉字拼音的函数  
   
        需要创建一个拼音表,包含所有汉字的发音,这个可以通过转换全拼输入法的编码库得到,这里仅举了一个简单的例子.  
  --邹建   2003.10--*/  
   
  --创建汉字拼音库  
  create   table   YingShe(CHR     char(2),PY   varchar(10))  
  insert   YingShe    
  select   '长','chang'  
  union   all   select   '长','zhang'  
  union   all   select   '城','cheng'  
  union   all   select   '科','kel'  
  union   all   select   '技','ji'  
  union   all   select   '金','jin'  
  union   all   select   '立','li'  
  union   all   select   '章','zhang'  
  union   all   select   '公','gong'  
  union   all   select   '司','si'  
   
  /*--下面是两个函数,一个以表的形式返回某个字符串的全部拼音,一个返回某某个字符串的其中一个拼音  
  --*/  
   
  go  
  --获取汉字拼音的函数--返回所有的拼音  
  create   function   f_getpy_tb(@str   varchar(100))  
  returns   @tb   table(re   varchar(8000))  
  as  
  begin  
  declare   @re   table(id   int,re   varchar(8000))     --数据处理中间表  
   
  declare   @i   int,@ilen   int,@splitchr   varchar(1)  
  select   @splitchr='   ' --两个拼音之间的分隔符(目的是为了通用性考虑)  
  ,@i=1,@ilen=len(@str)  
   
  insert   into   @re   select   @i,py   from   YingShe   where   chr=substring(@str,@i,1)  
  while   @i<@ilen  
  begin  
  set   @i=@i+1  
  insert   into   @re   select   @i,re+@splitchr+py   from   @re   a,YingShe   b  
  where   a.id=@i-1   and   b.chr=substring(@str,@i,1)  
  end  
   
  insert   into   @tb   select   re   from   @re   where   id=@i  
  return    
  end  
  go  
   
  --获取汉字拼音的函数--返回汉字的某一个拼音  
  create   function   f_getpy(@str   varchar(100))  
  returns   varchar(8000)  
  as  
  begin  
  declare   @re   varchar(8000)  
   
  declare   @i   int,@ilen   int,@splitchr   varchar(1)  
  select   @splitchr='   ' --两个拼音之间的分隔符(目的是为了通用性考虑)  
  ,@i=1,@ilen=len(@str)  
   
  select   @re=py   from   YingShe   where   chr=substring(@str,@i,1)  
  while   @i<@ilen  
  begin  
  set   @i=@i+1  
  select   top   1   @re=@re+@splitchr+py  
  from   YingShe   where   chr=substring(@str,@i,1)  
  end  
   
  return(@re)  
  end  
  go  
   
  --测试  
  --返回'长城'的所有可能拼音  
  select   *   from   dbo.f_getpy_tb('长城')  
   
    --应用案例:  
   
  create   table   MyTable(Name   varchar(10),ID   int)  
    insert   MyTable   select   '长城科技',1  
  union   all   select   '金长城科技',2  
    union   all   select   '立章城公司',3  
   
  go  
   
  --查询包含与'长城'拼音一样的记录：  
  select   *   from   mytable  
  where   exists(select   1   from   dbo.f_getpy_tb('长城')   where   dbo.f_getpy(name)   like   '%'+re+'%')  
   
  --删除表  
  drop   table   YingShe,mytable  
  --删除拼音函数  
  drop   function   f_getpy,f_getpy_tb   

Answer 1

--获取拼音首字母函数
create function f_GetPy(@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
go
--调用
create table tb(col varchar(10))
insert into tb values('潇洒老乌龟')
insert into tb values('孤星')go
select 按拼音首字母 = dbo.f_GetPy(col) from tbdrop table tb
drop function f_GetPy/*
按拼音首字母
------------
XSLWG
GX(2 行受影响)
*/
------------------------------------------------------------------------------------------
--获取拼音首字母函数
create function f_GetPy(@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
go
--调用
select * from a order by case Name when '其他' then 1 else 0 end,dbo.f_GetPy(Name)--获取字符串拼音字头
--Pqs 2006-11-20
--@Char 输入的字符串
CREATE function dbo.GetPY (@Char varchar(100))  
returns varchar(100) as 
begin
 --字符串长度 返回数据 遍历字符串位置 遍历的字符
 declare @i_Len int, @c_Return varchar(100), @i_pos int,@c varchar(2),@c_CN varchar(100)
 --初始化数据
 --set @str='龙岂池中物'
 set @i_Len = len(@Char)
 set @c_Return = ''
 set @i_pos = 0 
 --遍历字符串 
 while (@i_pos < @i_Len )
 begin
  set @i_pos = @i_pos + 1
  set @c_CN = substring(@Char, @i_pos, 1)
  if (@c_CN > 'z' )
  --中文处理，查询匹配
  begin
         set @c = case when @c_CN>='帀' then 'Z'   when @c_CN>='丫' and @c_CN<'帀' then 'Y'  when @c_CN>='夕' and @c_CN<'丫' then 'X'  when @c_CN>='屲' and @c_CN<'夕' then 'W'
 when @c_CN>='他' and @c_CN<'屲' then 'T'  when @c_CN>='仨' and @c_CN<'他' then 'S'  when @c_CN>='呥' and @c_CN<'仨' then 'R'  when @c_CN>='七' and @c_CN<'呥' then 'Q'
 when @c_CN>='妑' and @c_CN<'七' then 'P'  when @c_CN>='噢' and @c_CN<'妑' then 'O'  when @c_CN>='拏' and @c_CN<'噢' then 'N'  when @c_CN>='嘸' and @c_CN<'拏' then 'M'
 when @c_CN>='垃' and @c_CN<'嘸' then 'L'  when @c_CN>='咔' and @c_CN<'垃' then 'K'  when @c_CN>='丌' and @c_CN<'咔' then 'J'  when @c_CN>='铪' and @c_CN<'丌' then 'H'
 when @c_CN>='旮' and @c_CN<'铪' then 'G'  when @c_CN>='发' and @c_CN<'旮' then 'F'  when @c_CN>='妸' and @c_CN<'发' then 'E'  when @c_CN>='咑' and @c_CN<'妸' then 'D'
 when @c_CN>='嚓' and @c_CN<'咑' then 'C'  when @c_CN>='八' and @c_CN<'嚓' then 'B'  when @c_CN>='吖' and @c_CN<'八' then 'A'  Else '' End
--    select  top 1 @c = Code  from Code_PY   where name <= @c_CN
  end
  else
  begin
--过滤字符（除了字符、数字和'.'外的所有字符）
if (@c_CN>='a' or (@c_CN>='0' and @c_CN<='9') or @c_CN='.')
set @c=@c_CN
else
set @c=''
  end
  
  set @c_Return=@c_Return+isnull(@c ,'')
 end
 return  upper(@c_Return)
end

Answer 2

--建一表：拼音（汉字，拼音）--这个表的数据难弄，网上找找，主要是拼音输入法有。
create table py(hz char(2),py varchar(20))
insert py select '肯','ken'
insert py select '哈','ha'
insert py select '挖','wa'
insert py select '德','de'
insert py select '靠','kao'
insert py select '佩','pei'
insert py select '鸡','ji'
--再建一函数:汉字转拼音
create function dbo.getpy(@c varchar(20))
returns varchar(1000)
as
begin
 declare @py varchar(1000),@i int
 select @py = '',@i = 1
 while @i<=len(@c) 
 begin 
  select @py = @py+'-'+py from py where hz = substring(@c,@i,1) 
  set @i = @i +1
 end
 return @py
end
go
select dbo.getpy('肯德鸡')--结果：
-ken-de-ji