300坂田银时出装:VFP中取得汉字的简拼或全拼
来源:百度文库 编辑:偶看新闻 时间:2024/05/02 11:26:42
VFP中取得汉字的简拼或全拼
PARAMETERS C,N
**** 如果N=1 转换为简拼,N=2 转换为全拼
*OLDGZQ=SELECT() && 保存当前工作区
STORE "" TO CPY,ZF
FOR I=1 TO LEN(ALLTRIM(C))
IF ASC(SUBSTR(ALLTRIM(C),I,1))>128
ZF=SUBSTR(ALLTRIM(C),I,2)
USE asctochr
*表结构 HZ C 2,JP C 2,QP C 10 (需要自己建)
LOCATE FOR HZ==ZF
IF FOUND()
GO RECNO()
CPY=CPY+IIF(N=1,ALLTRIM(JP),ALLTRIM(QP)+" ")
ELSE
CPY=CPY+ZF
ENDIF
I=I+1
ELSE
CPY=CPY+SUBSTR(ALLTRIM(C),I,1)
ENDIF
ENDFOR
*SELECT &OLDGZQ && 恢复前面保存的工作区
RETURN CPY