把汉字变为拼音的vfp原程序.doc

***＊
**＊＊＊用法是 ？hztop（“在地下早是”） 得的结果就是 : zdxzs
＊*＊＊******以下是用到的几个子程序 希望大家在工作中能用到
*＊*＊*＊*＊＊*＊
PARA CQ &&＆&把几个汉字变成拼音编码
CQ=ALLTRIM（CQ)
CCCC="” &＆＆&存放拼音编码
DO WHILE 。T。
＊＊*＊*＊*＊＊**＊**＊＊＊*＊＊＊*＊
＊*＊***＊＊＊
*＊*＊＊*＊＊＊＊＊*＊＊＊****＊*＊＊
IF PDHZ（CQ)
ELSE
CQ=SUBS（CQ,2)
*CCCC=CCCC+" " &&&＆这个要是加上的话可以把不是汉字变为空的对应出来
IF EMPTY(CQ)
EXIT
ENDI
LOOP
ENDI
*＊*＊**＊＊＊*＊＊*＊*＊**＊*＊＊*＊＊
**＊***＊＊上面这段加上可以把不是汉字的去了
**＊＊***＊*＊***＊*＊＊*＊＊＊＊
CCCC=CCCC+HTOP(CQ)
CQ=SUBS(CQ，3)
IF EMPTY(CQ)
EXIT
ENDI
ENDD
RETU CCCC
＊＊**＊*
PARA HZ &＆＆＆ 判断是否为汉字 16到87为汉字 1到87为全角字符
HZ=SUBS(HZ，1,2）
CChz=HTOQ（HZ)
CCCCN=VAL（SUBS（CChz,1，2）)
IF CCCCN〉=16。AND。CCCCN〈=87
RETU .T.
ELSE
RETU 。F。
ENDI
＊**＊＊＊
PARA CQ ＆&&＆汉字变区位
IF TYPE("CQ")〈〉”C”
RETU ""
ENDI
RETU NTOC(ASC（SUBS(CQ，1,1))-160）+NTOC（ASC(SUBS(CQ，2，1)）-160）
*＊＊＊htop。prg
PARA CQ &&＆＆汉字变拼音
KKKK=VAL(HTOQ（CQ))
DO CASE
CASE INLIST（KKKK,5847,5974，5991，6254,6263,6278，6325,6427,6436，6440,6441,6514，6577，6654,6658,6959，7033,7040,7081，7208，7281,7365,7451）
RETU ’a'
CASE KKKK>=〈=1636
RETU ”a”
CASE INLIST(KKKK，7733，7907，7925，7945,8038，8190，8292,8616，8643,8701，8773,8786)
RETU 'a'
CASE INLIST(KKKK,5616，5635,5650，5734，5747，5772,5781,5787,5791，5870，5873，5891,5893,5945,5946，5948,5964，6048，6056,6074，6109，6135,6141）
RETU 'b'
CASE KKKK>=1637。AND。KKKK〈=1832
RETU ”b"
CASE INLIST(KKKK，6165，6177,6182,6221,6253,6267，6280,6318,6333，6334，6357，6403,6452,6517，6557,6589，6636，6656,6677，6703,6725,6774，6826)
RETU 'b’
CASE INLIST(KKKK,6868，6908，6917,6945，6986，6994,7027，7030,7052,7063,7084,7134，7145，7221,7228，7336,7362,7375，7419，7420,7446，7458，7494)
RETU 'b'
CASE INLIST（KKKK，7502,7587,7609，7613，7614，7650,7652，7665，7730，7753，7760，7771，7815，7848,7851,7857，7863,7864,7873，7928,7957，7958，7980)
RETU ’b'
CASE INLIST(KKKK，7985，8017,8030，8039，8103，8106，8113，8125,8149,8152,8156,8157，8159，8289,8354,8357，8375，8387，8404,8416，8418，8