- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
汉字转五笔[精选]
Function WB(Source)
sLong = Len(Source)
If (sLong Fix(sLong)) Then sLong = Fix(sLong) + 1
For i = 0 To sLong - 1
CutAndJoin = CutAndJoin Mid(Source, i + 1, 1) |
Next
If (sLong 0) Then CutAndJoin = Left(CutAndJoin, Len(CutAndJoin) - Len(|))
CutAndJoin = Split(CutAndJoin, |)
For i = 0 To sLong - 1
Aa = 工式匿慝葚萁甙苷芽戒苣荛荫茸邛菡蒸荪节茁芤菰萨茎芭蓣茅苔莽蕻苊茇戎葫苦蓐萘葳荐葜茬藉藕匪菲若惹苈蒇项茂藏蕨戡期基斟綦勘甚斯蓁其欺茏艿菔莩蒯藐苴薆菜蕤散藤荽芨鞯鞴邯靶鞣芸甘薷鞑芏鞋葑鞲鞘蒜革靼薹蕾勒鞅贰苇荸鞍芫芜鞠鞔莰鞫靳某著鞒蔷鞭菱芙靴藿荆匡菁莆芋廿蔫苤蕙蔌颟七巧戈弋莱葬薤茉苹荚萋荑蘧苜芷菽苫赜颐熙臣卧邪牙鸦迓雅茈茳蕖范菹薄萍蒲菠东莎藻荡鸫蒎菏落藩汞蒗茫蕞蓦墓幕暮募慕摹莫萌昔划草菖蔓鹊葛蓝茧葺蕺叵鄞或堇勤惑觐匮蒉莒鹳颧萼莴蒽蔑茵苗薯匣茄茴荔功葸瞢甍莲薨鹋萝菌匦苏芟英苒茼匝萜苘苋贡黄芮跫蛩恐銎巩苠艺芑巨蔚葭蔬忒薜蕊芯荬世蓼荩苡蒌薮菪茔蔻莞蒙苎萱莹荥萤营劳荤茕菅荧菀蓥莺荦荣芝蓿蓉萦芪苑茚藓蓟瓯葡区荀苟茗擎檠敬警菟殴苞菊鸥欧萄葱蔸芴茆获莸荻艾匹萏芡茑鸢芍葩菝茱芹匠萆茜苯蘸葙蕈苛菥菘苌医荞翳蓬莠荇芊莛董翘薰尧蓰莉蓖薇蕃蘅藜莪萎蘩莓攻蒴莘薏蕲菩燕蔽蒂蒡蒋茭茨薪蒺蒹蔺艽菇薅茛荨萧茹苕切萸芄苍蓊茯荟茌蔡苻葵荃莶蔹莜芥葆巷孽蘖恭薛荷茶荏荼共莅蓓芬巫觋苁花苓萑劐芩蕉荭芎荮莼蕴药芗芘荜蒈蔗芳蓠茺苄荠蔼蓑蒿藁匾芒荒芦葶蘑蘼蔟莨萃菸蓄蕹苾
If InStr(Aa, CutAndJoin(i)) 0 Then
sWB = a
End If
Bb = 陈子陬耶陉颞聂鄹聚娶取隋隳堕随承陌陇阴阻孺陡际阱陆阮陵卫耳隔陋阢陕陂耻蚩骘陟阽函卺丞隙逊孙陧阳隅隰亟聩陨职孟隈阵勐聃祟聘出粜了孑也孔耿院辽耽聍陀孢陶聊陷隐孤阪隍隗陴耵阿降聒阡陲隆阼孜联隧障陪聪隘限坠附险阶除队聆陛孓防孩陔
If InStr(Bb, CutAndJoin(i)) 0 Then
sWB = b
End If
Cc = 颈骐弁刭劲驱戏骁巯骤预邓予驰豫骛鹜鹬瞀蝥蟊矜鍪矛柔婺又垒叠颡桑骖驿骀骏双驭骚叁毵参畚骑驮驵甬勇恿通熊能圣怼对骊骒邰台驯怠炱迨驶驷劝骡骋观巴马厶驼允驹驳驺欢鸡骝牟骠骄矣欸骆骢骈骥艰驸验皴逡骅难骓驻叉蚤骧骗骟驴骇
If InStr(Cc, CutAndJoin(i)) 0 Then
sWB = c
End If
Dd = 左砑礴厝砸磺碟礞奁砹硗砌礤硭顾耷础厄磉碜码友雄大磊靥砺飙碱厦厌厣硕励厉魇套郁硼髻胡髡髭鬟髯鬃鬓鹕髟髦鬏鬈髫鬣髹奔磕砝辱辰蜃唇奎硅矸奈夸刳匏瓠砖奢夺压研硎砘三古硬厨感咸礓碛戌厂石犬砰硖威碡戛存破酆砉慧彗在蹙戚丰砧艳夏契恝挈耢磲耔耙耨硝耘耩耕耒耥耖耦耜耧耗砂泵耪耠耱厚非裴韭蜚辈悲翡斐百厘碍砷奄鹌碣右夼夯奋砗厍历碘碳碉硐布面耐鸸而厕恧耍矶砚砜页矾碾臧嘏尴虿趸劢盛成迈尥砀万尤尢尬戊盔磷灰碹碇达碗牵砣磔砥克兢确砾爽砍矽鸪斫原愿碑硒厢碴厅奇剞邦帮焘寿砟硌砭硪故劂厥磙磋砬辜鹩碚碰碲磅磁厩肆碌砼奉奏磴仄泰春蠢秦舂赝雁碓礁龚聋砻垄砩龙砒袭礅硫丈太碥戍态矿碎
If InStr(Dd, CutAndJoin(i)) 0 Then
sWB = d
End If
Ee = 有腻肛胨膜腊朦郛服孕孚乳胫胎戤盈肥肱胯腓腌腼须腠胧肽貘脬貊月豺朋豳燹鹏豹豸邈貌肜貉貔貂貅豚脚肢肚肝虢肼臌膨腩肟脖朊爰肤肘肫悬县且膊腈脯胚膈助肺雎胰胩鼐胪膛胱尕胆刖胂腽腥肿腭臊脶胭胛肋腮爵胁腆股胴肌觅肭脲肠甩膦脒受爱脓腙脘腚逐腕舜膑胺腔膣胝脆朐胞胸脎肷胍腺鹞繇遥脾彩膘采腰膝胀胜胙腹胳乃用胼腾塍滕膳媵朕胖腤臆脱膪膀胶腿妥舀腱腴胗脍脸腧脞奚脂脑脏及脐膻肮肪脉胲臁腑腋臃
If InStr(Ee, CutAndJoin(i)) 0 Then
sWB = e
End If
Ff = 堪霰霸坩卉堰哉域载戴贲堞栽塔截裁邗地却叆盍劫动翅运魂埃云去支震垮霏埯雳坜需颥顸城塬霾堋埒偁僾圾坛圭土封埴填卦款雩圬恚堵寺墙垤博埔圩二干十士雨寸坯坏垣埂塥垭坪墟越趣坡趄直矗赶址趔赴趟亍坫盐赳垆起赵趋趱走趑超趁颠真霄霪霈未嫠示墚裘求逑救戟朝埋韩坦堤遘觏刊坤亓井墁塌进埸乾斡翰颉袁吉埕圳露酃埚埙鼓彭鼙瞽嘉喜甏熹雷协塄垌击垲垛献南坝坍堀霞韦韫违韬韧墀霹磬馨罄謦圮圯声场志卖觌亏块坭专赧郝赭赫赦赤孛鹁勃彀觳懿壹过毂壳悫壶索坨坻元顽鼋堍雹坞远均无坎坂垢圻埤坼堙霜坷霖孝教才霆考埏都者翥煮雾垧圪老耋耆耄霉丧幸垃境培增啬墒霎垠雪埭霓替辇逵夫规堠埠赍零霍堆埝坳垴墩霁霭壤坑
您可能关注的文档
最近下载
- 一种小鼠结直肠原位癌模型的构建方法.pdf VIP
- 百度地图-北京市购物中心报告-71页.pdf VIP
- 克莱斯勒-Grand Voyager-产品使用说明书-Grand Voyager(3.6L)-Grand Voyager(3.6L)-2013款大捷龙用户手册(产品使用说明书).pdf
- 居住绿地设计标准.pdf VIP
- 沿着塞纳河到翡冷翠.pdf VIP
- 新媒体短视频代运营.pptx VIP
- 人教版(2025)八年级英语上册 Unit 1 Happy Holiday单元检测卷(含答案及听力原文,无听力音频).doc VIP
- 2025人教版英语四年级上册Unit 4 Helping in the community单元测试试卷.docx VIP
- 企业短视频代运营.pptx VIP
- CJJ_T 294-2019 居住绿地设计标准.docx VIP
文档评论(0)