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

1、*hztop.prg用法是 ?hztop(“在地下早是”)得的结果就是: zdxzs*以下是用到的几个子程序希望大家在工作中能用到*PARA CQ&把几个汉字变成拼音编码CQ=ALLTRIM(CQ)CCCC=&存放拼音编码DO WHILE .T.*IFPDHZ(CQ)ELSECQ=SUBS(CQ,2)*CCCC=CCCC+ &这个要是加上的话可以把不是汉字变为空的对应出来IF EMPTY(CQ)EXITENDILOOPENDI*上面这段加上可以把不是汉字的去了*CCCC=CCCC+HTOP(CQ)CQ=SUBS(CQ,3)IF EMPTY(CQ)EXITENDIENDD

2、RETU CCCC*pdhz.prgPARA HZ&判断是否为汉字16 到 87 为汉字1 到87 为全角字符HZ=SUBS(HZ,1,2)CChz=HTOQ(HZ)CCCCN=V AL(SUBS(CChz,1,2)IF CCCCN=16.AND.CCCCN=87RETU.T.ELSERETU.F.ENDI*htoq.prgPARA CQ&汉字变区位IF TYPE(CQ)CRETU ENDIRETU NTOC(ASC(SUBS(CQ,1,1)-160)+NTOC(ASC(SUBS(CQ,2,1)-160)*htop.prgPARA CQ& 汉字变拼音KKKK=V AL(

3、HTOQ(CQ)DO CASECASE 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)RETUaCASE KKKK=1601.AND.KKKK=1637.AND.KKKK=1833.AND.KKKK=2078.AND.KKKK=2274.AND.KKKK=2302.AND.KKKK=2433.AND.KKKK=2594.AND.KKKK=2787.AND.KKKK=3106.AND.KKK

4、K=3212.AND.KKKK=3472.AND.KKKK=3635.AND.KKKK=3722.AND.KKKK=3730.AND.KKKK=3858.AND.KKKK=4027.AND.KKKK=4086.AND.KKKK=4390.AND.KKKK=4558.AND.KKKK=4684.AND.KKKK=4925.AND.KKKK=5249.AND.KKKK=5589RETU zCASE INLIST(KKKK,5905,5921,5924,5958,5990,6038,6049,6079,6107,6147,6172,6209,6242,6257,6274,6288,6293,6301

5、,6304,6310,6312,6324,6338)RETU zCASE INLIST(KKKK,6369,6378,6380,6382,6385,6389,6390,6489,6493,6504,6531,6544,6549,6554,6571,6615,6626,6645,6669,6684,6723,6760,6805)RETU zCASE INLIST(KKKK,6808,6823,6830,6835,6883,6904,6910,6937,6973,6975,7002,7008,7049,7060,7064,7067,7077,7079,7086,7091,7107,7127,713

6、6)RETU zCASE INLIST(KKKK,7139,7153,7158,7162,7216,7222,7244,7246,7247,7255,7257,7268,7269,7287,7294,7311,7327,7338,7345,7355,7382,7384,7389)RETU zCASE INLIST(KKKK,7392,7402,7416,7421,7430,7435,7462,7463,7466,7538,7548,7549,7551,7553,7562,7574,7589,7590,7625,7636,7677,7681,7683)RETU zCASE INLIST(KKKK

7、,7685,7690,7707,7729,7736,7746,7756,7761,7773,7786,7819,7832,7840,7859,7889,7903,7913,7937,7963,7977,7981,7984,7986)RETU zCASE INLIST(KKKK,8001,8018,8026,8049,8068,8070,8075,8081,8109,8124,8162,8172,8207,8238,8246,8256,8314,8315,8335,8341,8342,8348,8361)RETU zCASE INLIST(KKKK,8369,8371,8380,8402,8406,8417,8422,8423,8450,8453,8456,8467,8474,8484,8485,8487,8492,8505,8537,8557,8560,8564,8578)R