守望先锋第一赛季93分:VFP中取得汉字的简拼或全拼
来源:百度文库 编辑:中财网 时间:2024/05/03 12:41:43
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