我以前从论坛上抄了一个转换的程序，现在需要一个快速查询用到这个小程序，但是我发现有时会出错，请师傅们能不能看看。
                     achHZString="采花"
            local achPYString,i,j,chPY,achHZ
            achPYString=''
            set collate to 'PINYIN'
            achPYCode='八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
            for i=1 to len(achHZString)
                if asc(substr(achHZString,i,1))>160
                    achHZ=substr(achHZString,i,2)
                    chPY=''
                    for j=1 to 26
                        if substrc(achHZ,1,1)<substrc(achPYCode,j,1)
                            chPY=chr(asc('a')+j-1)
                            exit
                        endif
                    endfor
                    achPYString=achPYString+upper(chPY)
                    i=i+1
                else
                    if (asc(substr(achHZString,i,1))>32)
                        achPYString=achPYString+upper(substr(achHZString,i,1))
                    endif
                endif
            endfor
            =MESSAGEBOX(achPYString)
            

正确结果应该是"CH",但是结果却是"BH",我也不知道哪里错了。

用木瓜老师的库可以做，而且代码短。

Set library to E:\PROGS\myFll
?ToPy("中华人民共和国") &&显示ZHRMGHG
?ToPy("采花") &&显示 CH
Set library to 

achPYCode='八擦咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
替换下试试

这个代码哪来的，想法很有创意。
关键是把汉字排序找到每个拼音开始的第一个字。 achPYCode='八擦咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
只是不同操作系统，字符集是否一样，上表是不是不变，你可以试试。
这一行可以改一下。chPY=chr(asc('a')+j-1) 变为chPY=chr(j+96)

有100%准确率的算法吗（除了查字典）？

xuminxz师傅，用您的方法改了不行，输“中华人民共和国”显示ZHRLGHG,还是有错误。厨师王德榜师傅，您说的木瓜老师的类库在哪里？能告诉我吗？

如果不能解决多音字问题，查字典准确率也达不到100%

不可能100％的，有些需要手动更正的。

            achHZString="中华人民共和国"
            local achPYString,i,j,chPY,achHZ
             achPYString=''
            set collate to 'PINYIN'
            achPYCode='八擦咑妸发旮铪讥讥咔垃妈乸噢帊七冄仨他屲屲屲夕丫傮'
            for i=1 to len(achHZString)
                if asc(substr(achHZString,i,1))>160
                    achHZ=substr(achHZString,i,2)
                    chPY=''
                    for j=1 to 26
                        if substrc(achHZ,1,1)<=substrc(achPYCode,j,1)   
                            chPY=chr(asc('a')+j-1)
                            exit
                        endif
                    endfor
                    achPYString=achPYString+upper(chPY)
                    i=i+1
                else
                    if (asc(substr(achHZString,i,1))>32)
                        achPYString=achPYString+upper(substr(achHZString,i,1))
                    endif
                endif
            endfor
            =MESSAGEBOX(achPYString)

[此贴子已经被作者于2019-5-20 20:27编辑过]