把汉字变为拼音的vfp原程序Word文档下载推荐.docx
《把汉字变为拼音的vfp原程序Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《把汉字变为拼音的vfp原程序Word文档下载推荐.docx(18页珍藏版)》请在冰豆网上搜索。
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
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
汉字变区位
IFTYPE("
CQ"
)<
>
C"
RETU"
RETUNTOC(ASC(SUBS(CQ,1,1))-160)+NTOC(ASC(SUBS(CQ,2,1))-160)
****htop.prg
汉字变拼音
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)
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)
b'
=1637.AND.KKKK<
=1832
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)
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)
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)
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)
CASEINLIST(KKKK,8519,8531,8532,8543,8547,8559,8621,8645,8649,8693,8707,8725,8734,8738,8741,8752,8762)
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)
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)
=1833.AND.KKKK<
=2077
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)
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)
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)
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)
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)
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)
CASEINLIST(KKKK,8619,8626,8637,8680,8746,8777,8785)
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)
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)
=2078.AND.KKKK<
=2273
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)
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)
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)
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)
CASEINLIST(KKKK,8782)
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)
e'
CASEINLIST(KKKK,8206,8660,8689)
=2274.AND.KKKK<
=2301
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)
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)
=2302.AND.KKKK<
=2432
f"
CASEINLIST(KKKK,7471,7572,7619,7660,7673,7680,7731,7732,7741,