汉字转换拼音，求指导

atiao22 2012-12-24 11:43:45

本人需要写一个汉字转换拼音的程序，不知道有没有人能给个思路？

...全文

169 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

atiao22 2012-12-26

打赏
举报

已下载，谢谢分享

lygcw9602 2012-12-25

打赏
举报

WINPY.DBF已经上传到：http://www.access911.net/csdn/index.asp?old=2012-12-1 自己下载吧

atiao22 2012-12-25

打赏
举报

问一下，2楼回复的那个字库“WINPYK”是自己做的么？或者有没有办法读取到系统输入法的字库

lygcw9602 2012-12-24

打赏
举报

CLEAR 
CST=[出差,差错，参差不齐] 
?PY(CST,2) 
FUNCTION PY 
PARAMETERS CSTR,N 
*---- 如果N=1　转换字符为简拼，N=2　转换字符为全拼； CSTR：要转换的汉字 
LOCAL CPY,CHZ 
STORE "" TO CPY,CHZ 
FOR I=1 TO LENC(CSTR) 
    IF LEN(SUBSTRC(CSTR,I,1))=2 
       CHZ=SUBSTRC(CSTR,I,1) 
       SELECT 汉字,拼音 FROM WINPYK WHERE ALLTRIM(汉字)==CHZ INTO CURSOR TEMP
       GO TOP
       DO CASE
          CASE RECCOUNT([TEMP])=0 && 未找到,取字符CHZ 
               CPY=CPY+CHZ 
          CASE RECCOUNT([TEMP])=1 && 无多音字,取首拼或拼音 
               CPY=CPY+IIF(N=1,UPPER(ALLTRIM(LEFT(拼音,1))),PROPER(ALLTRIM(拼音))) 
          CASE RECCOUNT([TEMP])>1 && 有多音字,选择首拼或拼音 
               BROWSE             && 如果在表单中，此处可用控件做一选择提示 
               CPY=CPY+IIF(N=1,UPPER(ALLTRIM(LEFT(拼音,1))),PROPER(ALLTRIM(拼音))) 
       ENDCASE 
       USE IN SELECT([TEMP]) 
    ELSE
       CPY=CPY+SUBSTRC(ALLTRIM(CSTR),I,1) 
    ENDIF 
ENDFOR 
RETURN CPY

tjit 2012-12-24

打赏
举报

学习了，谢谢

十豆三 2012-12-24

打赏
举报

?GetPY('十豆三')	&& 得到的结果为 SDS
Function GetPY
	Parameters cChina
	Local pcPychr,i,j,c,Hz
	Release pcPychr
	Public pcPychr
	pcPychr=''
	Set Collate To 'Pinyin'
	Pycode='八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗' &&从B开始的每个拼音码的首字码
	For i=1 To Len(cChina)
		If Asc(Substr(cChina,i,1))>160
			hz=Substr(cChina,i,2)
			c=''
			s=1
			For j=1 To 52
				s1=Substr(Pycode,j,2)
				If hz<Substr(Pycode,j,2)
					c=Chr(96+S)
					Exit
				Endif
				j=j+1
				s=s+1
			Endfor
			pcPychr=pcPychr+Upper(c)
			i=i+1
		Else
			pcPychr=pcPychr+Upper(Substr(cChina,i,1))
		Endif
	Endfor
	Return pcPychr
Endfunc