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

*hztop.prg*用法是 ?hztop(“在地下早是”) 得的结果就是 : zdxzs *以下是用到的几个子程序 希望大家在工作中能用到*PARA CQ &把几个汉字变成拼音编码CQ=ALLTRIM(CQ)CCCC= &存放拼音编码DO WHILE .T.*IF PDHZ(CQ)ELSECQ=SUBS(CQ,2)*CCCC=CCCC+ &这个要是加上的话可以把不是汉字变为空的对应出来IF EMPTY(CQ)EXITENDILOOPENDI*上面这段加上可以把不是汉字的去了*CCCC=CCCC+HTOP(CQ)CQ=SUBS(CQ,3)IF EMPTY(CQ)EXITENDIENDDRETU CCCC* pdhz.prgPARA HZ & 判断是否为汉字 16到87为汉字 1到87为全角字符HZ=SUBS(HZ,1,2)CChz=HTOQ(HZ)CCCCN=VAL(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=VAL(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)RETU aCASE 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.KKKK=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=5248RETU yCASE INLIST(KKKK,5780,5788,5817,5836,5843,5845,5861,5894,5909,5911,5917,5919,5920,5940,5953,5961,5975,5983,5989,5992,6007,6011,6013)RETU yCASE INLIST(KKKK,6018,6030,6031,6051,6065,6067,6072,6094,6112,6115,6121,6126,6139,6146,6151,6186,6187,6218,6236,6240,6244,6258,6262)RETU yCASE INLIST(KKKK,6275,6277,6282,6292,6314,6326,6329,6337,6347,6355,6362,6401,6415,6419,6451,6470,6483,6484,6486,6487,6512,6527,6535)RETU yCASE INLIST(KKKK,6542,6546,6558,6564,6570,6581,6592,6594,6602,6625,6632,6634,6637,6655,6663,6683,6688,6689,6691,6702,6708,6719,6728)RETU yCASE INLIST(KKKK,6738,6748,6768,6783,6806,6846,6857,6862,6875,6884,6913,6914,6922,6934,6938,6987,6991,6993,7005,7011,7034,7044,7068)RETU yCASE INLIST(KKKK,7090,7101,7143,7159,7163,7180,7182,7188,7192,7204,7205,7212,7225,7235,7254,7266,7326,7348,7358,7360,7364,7370,7376)RETU yCASE INLIST(KKKK,7383,7387,7432,7437,7442,7444,7455,7461,7476,7518,7519,7521,7527,7528,7530,7540,7557,7571,7573,7584,7603,7605,7622)RETU yCASE INLIST(KKKK,7629,7630,7639,7640,7645,7647,7657,7658,7659,7706,7718,7728,7783,7784,7793,7827,7838,7858,7865,7880,7884,7887,7955)RETU yCASE INLIST(KKKK,7962,7978,8014,8016,8033,804