把汉字变为拼音v的fp原程序.docVIP

****hztop.prg *****用法是 ?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 ****** pdhz.prg 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 ******htoq.prg 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=1601.AND.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,8437,8446) RETU b CASE INLIST(KKKK,8519,8531,8532,8543,8547,8559,8621,8645,8649,8693,8707,8725,8734,8738,8741,8752,8762) RET