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