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

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

《把汉字变为拼音的vfp原程序.docx》由会员分享，可在线阅读，更多相关《把汉字变为拼音的vfp原程序.docx（18页珍藏版）》请在冰豆网上搜索。

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

****hztop.prg

*****用法是?

hztop（“在地下早是”）得的结果就是:

zdxzs

**********以下是用到的几个子程序希望大家在工作中能用到

***********

PARACQ&&&&把几个汉字变成拼音编码

CQ=ALLTRIM（CQ）

CCCC=""&&&&存放拼音编码

DOWHILE.T.

***********************

*********

***********************

IFPDHZ（CQ）

ELSE

CQ=SUBS（CQ,2）

*CCCC=CCCC+""&&&&这个要是加上的话可以把不是汉字变为空的对应出来

IFEMPTY（CQ）

EXIT

ENDI

LOOP

ENDI

*************************

********上面这段加上可以把不是汉字的去了

**********************

CCCC=CCCC+HTOP（CQ）

CQ=SUBS（CQ,3）

IFEMPTY（CQ）

EXIT

ENDI

ENDD

RETUCCCC

******pdhz.prg

PARAHZ&&&&判断是否为汉字16到87为汉字1到87为全角字符

HZ=SUBS（HZ,1,2）

CChz=HTOQ（HZ）

CCCCN=VAL（SUBS（CChz,1,2））

IFCCCCN>=16.AND.CCCCN<=87

RETU.T.

ELSE

RETU.F.

ENDI

******htoq.prg

PARACQ&&&&汉字变区位

IFTYPE（"CQ"）<>"C"

RETU""

ENDI

RETUNTOC（ASC（SUBS（CQ,1,1））-160）+NTOC（ASC（SUBS（CQ,2,1））-160）

****htop.prg

PARACQ&&&&汉字变拼音

KKKK=VAL（HTOQ（CQ））

DOCASE

CASEINLIST（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'

CASEKKKK>=1601.AND.KKKK<=1636

RETU"a"

CASEINLIST（KKKK,7733,7907,7925,7945,8038,8190,8292,8616,8643,8701,8773,8786）

RETU'a'

CASEINLIST（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'

CASEKKKK>=1637.AND.KKKK<=1832

RETU"b"

CASEINLIST（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'

CASEINLIST（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'

CASEINLIST（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'

CASEINLIST（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'

CASEINLIST（KKKK,8519,8531,8532,8543,8547,8559,8621,8645,8649,8693,8707,8725,8734,8738,8741,8752,8762）

RETU'b'

CASEINLIST（KKKK,5601,5609,5640,5686,5687,5713,5717,5749,5764,5770,5838,5840,5863,5879,5927,5943,5969,5984,6015,6019,6041,6042,6061）

RETU'c'

CASEINLIST（KKKK,6075,6091,6127,6137,6145,6159,6193,6251,6285,6305,6319,6358,6374,6393,6408,6420,6433,6445,6448,6460,6465,6474,6492）

RETU'c'

CASEKKKK>=1833.AND.KKKK<=2077

RETU"c"

CASEINLIST（KKKK,6515,6547,6560,6562,6568,6607,6610,6622,6633,6639,6660,6666,6667,6671,6674,6675,6680,6687,6692,6714,6716,6718,6731）

RETU'c'

CASEINLIST（KKKK,6732,6749,6766,6825,6840,6878,6893,6923,6933,6955,6978,6981,6988,7017,7029,7031,7042,7047,7078,7085,7109,7161,7193）

RETU'c'

CASEINLIST（KKKK,7201,7213,7214,7218,7230,7238,7239,7240,7263,7290,7302,7308,7319,7320,7322,7333,7343,7363,7367,7401,7403,7438,7443）

RETU'c'

CASEINLIST（KKKK,7472,7505,7509,7516,7523,7566,7577,7583,7644,7664,7684,7688,7726,7755,7769,7787,7810,7843,7846,7881,7885,7905,7917）

RETU'c'

CASEINLIST（KKKK,7942,7966,7973,7979,7983,8023,8040,8043,8078,8091,8101,8112,8135,8146,8150,8161,8169,8173,8218,8231,8241,8260,8277）

RETU'c'

CASEINLIST（KKKK,8304,8309,8324,8355,8388,8409,8413,8429,8430,8451,8457,8489,8501,8508,8526,8530,8554,8556,8563,8567,8573,8577,8580）

RETU'c'

CASEINLIST（KKKK,8619,8626,8637,8680,8746,8777,8785）

RETU'c'

CASEINLIST（KKKK,5621,5654,5674,5757,5765,5814,5848,5852,5871,5901,5942,5967,5970,5976,5977,6004,6006,6022,6122,6144,6148,6190,6239）

RETU'd'

CASEINLIST（KKKK,6273,6316,6322,6330,6343,6345,6353,6365,6402,6404,6409,6410,6429,6439,6454,6466,6520,6523,6528,6556,6559,6665,6682）

RETU'd'

CASEKKKK>=2078.AND.KKKK<=2273

RETU"d"

CASEINLIST（KKKK,6771,6785,6834,6903,6920,6942,7007,7023,7110,7122,7164,7172,7173,7260,7292,7306,7318,7373,7413,7475,7514,7517,7525）

RETU'd'

CASEINLIST（KKKK,7526,7543,7556,7575,7632,7649,7666,7701,7713,7719,7724,7727,7738,7747,7752,7754,7758,7766,7767,7779,7781,7791,7855）

RETU'd'

CASEINLIST（KKKK,7868,7876,7886,7891,7929,7965,7970,7975,8012,8020,8059,8067,8087,8116,8118,8128,8141,8154,8155,8183,8184,8185,8229）

RETU'd'

CASEINLIST（KKKK,8328,8338,8346,8376,8391,8393,8401,8403,8438,8478,8490,8527,8558,8562,8566,8585,8684,8688,8716,8718,8730,8739,8776）

RETU'd'

CASEINLIST（KKKK,8782）

RETU'd'

CASEINLIST（KKKK,5612,5706,5844,5949,6035,6113,6164,6176,6284,6332,6721,6753,6939,6977,7025,7177,7378,7581,7879,7916,7941,8025,8042）

RETU'e'

CASEINLIST（KKKK,8206,8660,8689）

RETU'e'

CASEKKKK>=2274.AND.KKKK<=2301

RETU"e"

CASEINLIST（KKKK,5646,5726,5739,5775,5776,5866,5890,5914,5926,5950,6029,6032,6062,6082,6119,6142,6155,6212,6232,6252,6327,6328,6384）

RETU'f'

CASEINLIST（KKKK,6505,6506,6561,6584,6686,6713,6767,6839,6870,6915,6985,6990,7058,7066,7106,7108,7119,7167,7242,7283,7285,7291,7328）

RETU'f'

CASEKKKK>=2302.AND.KKKK<=2432

RETU"f"

CASEINLIST（KKKK,7471,7572,7619,7660,7673,7680,7731,7732,7741,