vfp中如何将汉字转为拼音

2003-08-07 10:00:37 433 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用拼音输入法字典库实现同音字模糊查询在开发各类应用管理系统中，一般都要实现各种查询功能，如何准确、快速查找到符合条件的记录，是实现各种查询功能的重点。系统的实际开发过程中，查询功能一般都是通过对字符进行比较、判断等方法来实现。我们开发一个人事管理系统中过程中，系统要具有新的查询方式，即只要知道一个人姓名的读音，并不知道每个字的具体写法，通过检索数据库，就能把所有符合这个读音的记录内容全部显示出来。由于汉字存在着大量的同音字，采用常用阅读详情

1、vfp函数（摘自myf1,改正了其中的参数中有空格的BUG）

******汉字转拼音*****
func hztostr(hzstr) as string
local py,i,j,c
private p0
p0="吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
py=""
for i=1 to lenc(hzstr)
C='z'
IF EMPTY(ALLTRIM(SUBSTRC(hzstr,i,1)))
c=''
ELSE

for j=1 to 26
if substrc(hzstr,i,1)<substrc(p0,j,1)
C=chr(95+j)
EXIT
endif
NEXT
endif
py=py+C
next
retu py

在vfp中调用
set proc to sysproc
?hztostr('刘建军') 结果显示ljj

2、sql server用户自定义函数

CREATE function dbo.hztostr(@hzstr varchar(200))
returns varchar(400)
as
begin

declare @py varchar(800),@i int,@j int,@c varchar(10),@p0 varchar(800),@cSTR varchar(10)
set @p0='吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
set @py=''
set @i=1
set @j=1
while @i<=len(@hzstr)
begin
set @c='z'
set @cSTR=substring(@hzstr,@i,1)

if @cstr=''
set @c=''
else
begin

if not unicode(@cSTR) between 19968 and 40870
set @c=@cSTR
else
set @j=1

while @j<=26
begin
if @cSTR<substring(@p0,@j,1)
begin
set @c=char(95+@j)
break
end
set @j=@j+1
end
end
set @py=@py+@c
set @i=@i+1
end
return @py
end
go

然后在查询分析中调用
select dbo.hztostr('刘建军') 结果显示ljj

...全文