[原创] 汉拼转换函数（05.8.14源码重新设计，转换速度获得极大的提升）

ghoob

好东西，可惜有密码。
好东西，可惜有密码。

feynman789

怎么使用呢？ 为什么我下载下来之后里面没什么内容

chenlifeng123

感谢楼主这么用心。我下载了最后一个文件：DqmNznzV.rar 。发现做得非常漂亮。好处不说了，太多。然美中不足的是：汉字容易不到7000，当时既然已经做了，如果有兴趣的话，可以顺便多做一些汉字进去；二是速度很快，但思路或许还有改进的余地；三是细节注意，其中有一处多了一些特殊符号，具体如： PYDB(32) = "gōu/kòu,yì/dié,yōu,kǎ,nìng,zhù,kàng,cāng/chen,chāng,wǔ,wǎ,yá,pǐ/pí,yǔ,rèn,mù,yì/gē,sā,lè,zhǎng,dīng,rén,wǎng,jiōng,yì,huō,qiāo,jué,piāo,kuǎi,wān,yǎn/shàn,jī,là/lá,kǎi,guì,kū,jǐng,wěn,yì,dāo,yǒu,guà,zé,biǎn,kuì/guì,guǐ,pǒ,fāng,yàn,yè,sī,jué,yǎn,cuò,shè,zè,gu3（ㄍ,sè,bèi,miē,qí,jī,miē/niè,nài,jí/qì,zhǔ,táo,gāo,yù,kuí,yìn,xìn,dī/dǐ,zhī,yáo,yāo,tuō/zhé,bǐ,piě,yú/yù/ǒu,gǔn,è,nāo,lì/gé,chéng,gèn,pī,sà,niàn,gài,wù,qí/jī,chù,"。最后不管如何，非常感谢老师。在此十多年后再补文发表，目的是提醒自身今后做事的思路，压根不是在指出老师什么。说得不对，请谅解，叩谢~！

chenlifeng123

如果老师在上述附件中的词汇量是第一梯队，那么我把第二梯队写出来了，见附件：
            '第二梯队汉字（不常用8160 个）

chenlifeng123

ghoob 发表于 2018-7-1 11:37
好东西，可惜有密码。
好东西，可惜有密码。

最后一个附件好像没有密码。

chenlifeng123

近一个星期时间整理的第二、三梯队汉字，分享大家，感谢楼主及本平台的无私付出。

chenlifeng123

可以通过正则方法，把手动处理的 拼音进行查看，以规避错误，比如拼音中表示声调的数字，其位置不能错：

1. Sub f()
   
2.     Dim PYSJ(1 To 32)
   
3.     PYSJ(1) = "kao3/qiao3/yu2,shang4/shang3,xia4,han3/chang3,mian3,chou3,shi4,diu1,qiu1,liang3,you3,bing4/bing1,jiu1,ji3,jie4,guan4/kuang4,chan3,zhuo2,ba1,ha/jing3,fu2,yi2,yi4,wu3/shime,jiu3,yi1/ho,yin2,hu3,xia4/he4/cheng2/sheng4,yi3,yi3/monzmen,gai4,jiu1,xia4/hal,hol/fumoto,dou3/dul,shi3/zhong1,nong1,jia1/gal,ju4/geol,shi2/dol,mao3/myol,hu1/hol,cɑlo/cal,xue2,yan3,fu3/bol/pol,sha1/dal,na2,qian2/gan1/gan4,suo3/sol,yu2/neul/eul,zhu4/jul,zhe3/jal,luan4,gui1/jun1/qiū,qian2/gan1/gan4,luan4,lin3/lin4,yi4,jue2,ge4/ma1/ma,shi4,,yu2/yu1/wu1,si4,sui4,gen4,ya4,qi2/ji1/ji4/zi1/zhai1/jian4,ya4,da4/dai4/ta4i/xiao3,ye/ran/nan/yeok,xiang3,jing1,ye4/ri4,you4,dan3/dan4,lian2,duo3,wei3/men2,ji2,ji2,wang2/wu2,ba1,bing1,fo2/fu2/bi4/bo2/fang3,jin1,bing1,mao4/xian1,tuo1/cha4/duo2,hong2/gong1,gan3/han4,bo2,chao4,miao3/chang2," + _
   
4.     …………
   
5.     "ke1,mu3,di3,quan4,quan2,zi4,mang2,keng1/qian1,qian1,li2,pou3,gang1,zhi2/te4,ben1/ben4,quan2,chun2,jia1,feng1,ke1,ju2,chu2,xi4,bei4,luo4,jie4,ma2,san1,wei4,mao2/li2,dun1,tong2,qiao2,xi1,li4,du2,lie4,bai2,piao1,bao4,xi1,chou1,wei2,kui2/wei2,chou1,quan3/ba2,ji3,chai2,zhuo2/bao4,ge1,kang4/gang3,pei4/fei4,hou3,ya4,yin2,huan1/fan1,zhuang4,kuang2,zhong4,mu4,pi1,ju2,yi2/quan2/chi2,sheng1/xing1,tuo2/yi2,ling2,pi1,ni3,yao3,you4,xue4,dan4,bo2"
   
6.    
   
7.     Dim i%, j%, k%, a, b, c, d
   
8.    
   
9.     With CreateObject("VBSCRIPT.REGEXP")
   
10.         .Global = True
    
11.         '.Pattern = "[0-9]"
    
12.         .Pattern = "[0-9][^\,\/]"
    
13.         For j = 1 To 32
    
14.             a = Split(PYSJ(j), ",")
    
15.             For k = 0 To UBound(a)
    
16.                 For i = 0 To .Execute(a(k)).Count - 1
    
17.                     Stop
    
18.                 Next
    
19.             Next
    
20.         Next
    
21.     End With
    
22. End Sub

复制代码

ghoob

chenlifeng123 发表于 2018-7-4 21:41
最后一个附件好像没有密码。

看到 谢谢chenlifeng123 发表于 2018-7-4 21:41

最后一个附件好像没有密码。

chenlifeng123

数据库找出来了，但也可能存在手动误差及程序读取失误。
数据搞定，有兴趣的朋友可以稍加编辑放入到楼主代码中。

jinhaitiao16

好东西，可惜有密码。