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

下载文档

13
0
约2.14万字
约 16页
2017-02-28 发布于北京
举报
版权申诉
保障服务

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

1、本文档共16页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

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

****hztop.prg *****用法是 ?hztop(“在地下早是”) 得的结果就是 : zdxzs **********以下是用到的几个子程序希望大家在工作中能用到 *********** PARA CQ 把几个汉字变成拼音编码 CQ=ALLTRIM(CQ) CCCC= 存放拼音编码 DO WHILE .T. *********************** ********* *********************** IF PDHZ(CQ) ELSE CQ=SUBS(CQ,2) *CCCC=CCCC+ 这个要是加上的话可以把不是汉字变为空的对应出来 IF EMPTY(CQ) EXIT ENDI LOOP ENDI ************************* ********上面这段加上可以把不是汉字的去了 ********************** CCCC=CCCC+HTOP(CQ) CQ=SUBS(CQ,3) IF EMPTY(CQ) EXIT ENDI ENDD RETU CCCC ****** pdhz.prg PARA HZ 判断是否为汉字 16到87为汉字 1到87为全角字符 HZ=SUBS(HZ,1,2) CChz=HTOQ(HZ) CCCCN=VAL(SUBS(CChz,1,2)) IF CCCCN=16.AND.CCCCN=87 RETU .T. ELSE RETU .F. ENDI ******htoq.prg PARA CQ 汉字变区位 IF TYPE(CQ)C RETU ENDI RETU NTOC(ASC(SUBS(CQ,1,1))-160)+NTOC(ASC(SUBS(CQ,2,1))-160) ****htop.prg PARA CQ 汉字变拼音 KKKK=VAL(HTOQ(CQ)) DO CASE CASE 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 a CASE KKKK=1601.AND.KKKK=1636 RETU a CASE INLIST(KKKK,7733,7907,7925,7945,8038,8190,8292,8616,8643,8701,8773,8786) RETU a CASE INLIST(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 CASE KKKK=1637.AND.KKKK=1832 RETU b CASE INLIST(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 CASE INLIST(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 CASE INLIST(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 CASE INLIST(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 CASE INLIST(KKKK,8519,8531,8532,8543,8547,8559,8621,8645,8649,8693,8707,8725,8734,8738,8741,8752,8762) RET