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
