众里寻它千百度，暮然回首却在VFP论坛处，多谢TonyDeng版主共享

由TONYDENG版主提供的PY.TXT生成的全拼字库(含多音字)PY.DBF

这个是从Windows XP的拼音码表导出的全拼编码，是GBK的，其实包含了词组的全拼码，我把它们过滤掉了，只留下单字。这个码表还有一栏拼音，似乎是对应GB2312的，还没验证。

不知楼主解决了没有

CLOSE TABLES
SET SAFETY OFF
USE PY ALIAS PY
CREATE CURSOR TABNAME (XM C(6),QP C(10),JP C(1))
SELECT TABNAME
INSERT INTO TABNAME VALUES ("张一","","")
INSERT INTO TABNAME VALUES ("王一","","")
INSERT INTO TABNAME VALUES ("李一","","")
INSERT INTO TABNAME VALUES ("杨一","","")
SCAN
     REPLACE QP WITH PY(LEFTC(XM,1),2) IN TABNAME
     REPLACE JP WITH PY(LEFTC(XM,1),1) IN TABNAME
ENDSCAN
BROWSE
SET SAFETY ON
*----取拼音函数
FUNCTION PY
PARAMETERS C,N
*---- 如果N=1　转换为简拼，N=2　转换为全拼  C：要转换的汉字
LOCAL CPY,ZF
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)
       SELECT PY
       LOCATE FOR HZ==ZF
       IF FOUND()
          CPY=CPY+IIF(N=1,UPPER(ALLTRIM(LEFT(PY,1))),PROPER(ALLTRIM(PY)))
       ELSE
          CPY=CPY+ZF
       ENDIF
       I=I+1
    ELSE
       CPY=CPY+SUBSTR(ALLTRIM(C),I,1)
    ENDIF
ENDFOR
RETURN CPY

呵呵，我把原始的码表传上来，有兴趣的自己研究吧：

有多少记录， 为什么要这样处理呢？

试了bccn201203老师提供的函数，大部分汉字没有问题，好像“马”不能正常转换，转换的是“L”而不是
“M”

用的着。谢谢各位！