很多软件都有利用汉字的第一个拼音字母来查询的功能，我也想实现这个功能，但目前缺少将汉字转换为拼音字母的对照表，哪位兄弟能告诉我如何获得这个对照表吗，在此先谢谢大家！

是不是实现实种功能?比如说录入的是"木子安臣",取得简码MZAC?

FUNCTION CHRtoPY
PARAMETERS cHZCHR
LOCAL cPYCHR,i,j,C,HZ
cPYCHR=""
SET COLLATE TO "PINYIN" &&设置当前排序方式为拼音方式
PYCode='八擦咑妸发旮哈几几卡拉呣拿哦怕七呥仨他哇哇哇夕丫匝咗' &&从b开始每个拼音码的首字符
FOR i=1 TO LEN(cHZCHR)
IF ASC(SUBSTR(cHZCHR,i,1))>160 &&判断是否为汉字
HZ=SUBSTR(cHZCHR,i,2)
C=''
FOR j=1 TO 26
IF SUBSTRC(HZ,1,1)<SUBSTRC(PYCode,j,1) &&进行汉字比较
C=CHR(96+j) &&得到首位拼音码
EXIT
ENDIF
ENDFOR
cPYCHR=cPYCHR+UPPER(C)
i=i+1
ELSE
cPYCHR=cPYCHR+UPPER(SUBSTR(cHZCHR,i,1))
ENDIF
ENDFOR
RETURN cPYCHR
存成PRG文件,调用方法为:DO py
py=chrtopy("木子安臣")

用对照表会使用程序变慢,不能达到优化,用这个吧,应该要快的多

我要的就是这种功能，谢谢fown版主！我原先找到的资料是利用WIN95的输入法码表逆转换功能得到汉字的拼音，我想总不能因此而安装WIN95吧，所以到这里求助。这个程序的思路的确很妙，比使用对照表好多了，再次表示感谢！！！

哈哈，这正是我想需要的，谢谢楼主啦。

这个PRG生成的汉字不完整