把汉字变为拼音的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,7774,7775,7818,7823,7853,7948,7991,8005,8082,8222,8261,8267,8280,8283）

RETU'f'

CASEINLIST（KKKK,8330,8385,8419,8468,8479,8535,8538,8576,8613,8648,8654,8678,8687,8691,8787）

RETU'f'

CASEINLIST（KKKK,5604,5608,5610,5613,5626,5637,5648,5652,5659,5694,5704,5736,5769,5782,5812,5820,5824,5830,5875,5912,5933,5957,5965）

RETU'g'

CASEINLIST（KKKK,5982,5986,6010,6053,6102,6152,6227,6235,6246,6247,6266,6272,6306,6335,6341,6359,6371,6376,6435,6494,6524,6536,6538）

RETU'g'

CASEKKKK>=2433.AND.KKKK<=2593

RETU"g"

CASEINLIST（KKKK,6578,6603,6649,6657,6773,6779,6838,6842,6887,6919,6960,7003,7037,7056,7057,7092,7104,7114,7121,7135,7141,7178,7259）

RETU'g'

CASEINLIST（KKKK,7270,7284,7304,7332,7334,7347,7379,7414,7424,7426,7429,7433,7448,7464,7477,7484,7486,7501,7529,7537,7550,7555,7585）

RETU'g'

CASEINLIST（KKKK,7591,7616,7617,7716,7723,7749,7762,7813,7824,7825,7834,7837,7860,7915,7932,7951,8007,8019,8027,8032,8057,8065,8083）

RETU'g'

CASEINLIST（KKKK,8143,8188,8220,8228,8233,8268,8269,8349,8364,8384,8394,8420,8462,8491,8494,8593,8601,8657,8665,8671,8681,8704,8712）

RETU'g'

CASEINLIST（KKKK,8724,8729,8732）

RETU'g'

CASEINLIST（KKKK,5602,5669,5768,5774,5792,5807,5813,5822,5827,5882,5885,5908,5928,5932,5954,6009,6078,6086,6106,6140,6153,6179,6205）

RETU'h'

CASEINLIST（KKKK,6214,6216,6222,6229,6231,6294,6307,6311,6352,6360,6392,6425,6432,6438,6443,6467,6475,6481,6518,6565,6569,6609,6621）

RETU'h'

CASEINLIST（KKKK,6623,6638,6679,6717,6736,6740,6752,6756,6776,6792,6801,6807,6811,6816,6829,6850,6867,6874,6879,6881,6909,6911,6916）

RETU'h'

CASEINLIST（KKKK,6930,6943,6953,6956,6971,7072,7112,7132,7157,7181,7185,7190,7211,7275,7276,7277,7346,7385,7427,7434,7445,7447,7533）

RETU'h'

CASEINLIST（KKKK,7560,7618,7635,7642,7646,7670,7672,7679,7703,7833,7856,7892,7894,7933,7944,7976,8009,8013,8041,8055,8090,8105,8175）

RETU'h'

CASEINLIST（KKKK,8192,8194,8202,8205,8211,8214,8219,8226,8232,8234,8308,8319,8322,8343,8382,8383,8455,8471,8513,8516,8555,8590,8655）

RETU'h'

CASEINLIST（KKKK,8673,8692,8731,8763,8766,8793）

RETU'h'

CASEKKKK>=2594.AND.KKKK<=2786

RETU"h"

CASEINLIST（KKKK,5629,5632,5642,5657,5662,5667,5671,5705,5714,5738,5742,5751,5752,5753,5754,5806,5810,5821,5841,5857,5860,5864,5865）

RETU'j'

CASEKKKK>=2787.AND.KKKK<=3105

RETU"j"

CASEINLIST（KKKK,5869,5903,5918,5939,5952,6020,6024,6033,6036,6058,6076,6090,6092,6103,6128,6132,6149,6171,6180,6183,6207,6210,6255）

RETU'j'

CASEINLIST（KKKK,6256,6260,6265,6268,6286,6320,6350,6366,6383,6414,6417,6421,6457,6461,6468,6469,6478,6507,6521,6529,6540,6553,6572）

RETU'j'

CASEINLIST（KKKK,6590,6616,6617,6643,6659,6729,6746,6794,6804,6809,6814,6824,6848,6853,6931,6932,6936,6940,6941,6965,6970,6976,6980）

RETU'j'

CASEINLIST（KKKK,6982,7001,7015,7026,7028,7061,7062,7087,7113,7138,7144,7154,7160,7165,7169,7176,7202,7210,7237,7249,7274,7278,7280）

RETU'j'

CASEINLIST（KKKK,7286,7305,7307,7314,7316,7323,7340,7351,7357,7374,7407,7409,7410,7411,7415,7465,7469,7473,7478,7480,7481,7487,7488）

RETU'j'

CASEINLIST（KKKK,7489,7506,7524,7534,7546,7554,7570,7576,7611,7620,7626,7663,7671,7702,7722,7757,7768,7790,7831,7835,7836,7850,7882）

RETU'j'

CASEINLIST（KKKK,7921,7924,7935,7952,7956,7967,7990,8002,8008,8015,8047,8052,8053,8060,8072,8093,8104,8132,8138,8142,8148,8153,8168）

RETU'j'

CASEINLIST（KKKK,8170,8180,8201,8217,8227,8244,8252,8337,8339,8340,8353,8362,8434,8441,8461,8463,8469,8481,8482,8488,8520,8522,8534）

RETU'j'

CASEINLIST（KKKK,8542,8550,8551,8553,8561,8565,8574,8591,8606,8611,8620,8633,8634,8636,8658,8661,8662,8668,8674,8721,8722,8726,8757）

RETU'j'

CASEINLIST（KKKK,8761,8768,8769）

RETU'j'

CASEINLIST（KKKK,5624,5649,5658,5660,5665,5688,5691,5708,5709,5737,5771,5818,5831,5887,5906,5959,5978,6005,6050,6108,6160,6162,6202）

RETU'k'

CASEKKKK>=3106.AND.KKKK<=3211

RETU"k"

CASEINLIST（KKKK,6237,6281,6321,6339,6349,6364,6413,6416,6423,6430,6519,6539,6586,6673,6693,6701,6706,6707,6720,6742,6745,6759,6859）

RETU'k'

CASEINLIST（KKKK,6951,6974,7076,7094,7111,7128,7170,7191,7264,7273,7380,7412,7450,7460,7491,7520,7544,7558,7772,7778,7805,7807,7811）

RETU'k'

CASEINLIST（KKKK,7854,7861,7877,7888,7912,7920,7930,7931,7939,7993,8066,8129,8144,8189,8204,8250,8281,8282,8356,8377,8381,8511,8545）

RETU'k'

CASEINLIST（KKKK,8679,8728,8733,8737,8753）

RETU'k'

CASEINLIST（KKKK,5661,5676,5719,5721,5732,5745,5785,5789,5790,5793,5819,5910,5925,5962,5966,5968,5988,6008,6014,6034,6055,6063,6093）

RETU'l'

CASEKKKK>=3212.AND.KKKK<=3471

RETU"l"

CASEINLIST（KKKK,6116,6125,6168,6181,6185,6192,6194,6204,6228,6238,6245,6259,6270,6291,6303,6323,6331,6342,6354,6375,6388,6405,6406）

RETU'l'

CASEINLIST（KKKK,6412,6422,6447,6458,6464,6480,6482,6516,6532,6533,6548,6555,6566,6591,6604,6618,6662,6722,6733,6744,6747,6778,6781）

RETU'l'

CASEINLIST（KKKK,6782,6786,6788,6803,6815,6821,6843,6864,6877,6880,6882,6885,6894,6902,6905,6928,6946,6954,