汉字转五笔.docVIP

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 = 工式匿慝葚萁甙苷芽戒苣荛荫茸邛菡蒸荪节茁芤菰萨茎芭蓣茅苔莽蕻苊茇戎葫苦蓐萘葳荐葜茬藉藕匪菲若惹苈蒇项茂藏蕨戡期基斟綦勘甚斯蓁其欺茏艿菔莩蒯藐苴薆菜蕤散藤荽芨鞯鞴邯靶鞣芸甘薷鞑芏鞋葑鞲鞘蒜革靼薹蕾勒鞅贰苇荸鞍芫芜鞠鞔莰鞫靳某著鞒蔷鞭菱芙靴藿荆匡菁莆芋廿蔫苤蕙蔌颟七巧戈弋莱葬薤茉苹荚萋荑蘧苜芷菽苫赜颐熙臣卧邪牙鸦迓雅茈茳蕖范菹薄萍蒲菠东莎藻荡鸫蒎菏落藩汞蒗茫蕞蓦墓幕暮募慕摹莫萌昔划草菖蔓鹊葛蓝茧葺蕺叵鄞或堇勤惑觐匮蒉莒鹳颧萼莴蒽蔑茵苗薯匣茄茴荔功葸瞢甍莲薨鹋萝菌匦苏芟英苒茼匝萜苘苋贡黄芮跫蛩恐銎巩苠艺芑巨蔚葭蔬忒薜蕊芯荬世蓼荩苡蒌薮菪茔蔻莞蒙苎萱莹荥萤营劳荤茕菅荧菀蓥莺荦荣芝蓿蓉萦芪苑