此贴作废。


[ 本帖最后由 金龙178 于 2010-4-16 17:23 编辑 ]

LZ的方法也太麻烦了，性能有差！下面这个函数简单又方便

parameter 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
return achPYString

此贴作废。


[ 本帖最后由 金龙178 于 2010-4-16 17:23 编辑 ]

只需把汉字转换成首字拼音，其他字符不变啊

金龙178朋友，应该花了很大代价得到的程序断，佩服朋友的毅力和功夫！


[ 本帖最后由 qingfameng 于 2010-4-13 23:16 编辑 ]