我以前从论坛上抄了一个转换的程序，现在需要一个快速查询用到这个小程序，但是我发现有时会出错，请师傅们能不能看看。
                     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",我也不知道哪里错了。

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

谢谢各位师傅的解答，我这个表只有180条数据，而且是个固定表，偶尔发现出错更正一下，xuminxz师傅，用您的程序，试了几次没有错，我先用着，感谢了。