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

下载本文档

6
0
约2.27万字
约 16页
2021-06-25 发布于湖南
举报
版权申诉

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

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

****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=V AL(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=V AL(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,