汉字转拼音首字母VB函数-优快云博客

本文链接：https://blog.youkuaiyun.com/snakeman/article/details/4017812

    ''' <summary>
    ''' 返回汉字拼音首字母
    ''' </summary>
    ''' <param name="strZF">必选。汉字字符串</param>
    ''' <returns>返回汉字拼音首字母</returns>
    ''' <remarks>2009-1-18 16:11:57 Sunday</remarks>
    Public Function GetPY(ByVal strZF As String) As String
        Try
            Dim hz As String
            Dim k As Integer, x As Integer
            Dim hstr(23) As String
            Dim zm(23) As String
            Dim tmp As String = ""

If Len(strZF) = 0 Then Return ""

            zm(1) = "a" : zm(2) = "b" : zm(3) = "c" : zm(4) = "d" : zm(5) = "e" : zm(6) = "f" : zm(7) = "g"
            zm(8) = "h" : zm(9) = "j" : zm(10) = "k" : zm(11) = "l" : zm(12) = "m" : zm(13) = "n"
            zm(14) = "o" : zm(15) = "p" : zm(16) = "q" : zm(17) = "r" : zm(18) = "s" : zm(19) = "t"
            zm(20) = "w" : zm(21) = "x" : zm(22) = "y" : zm(23) = "z"

hstr(1) = "锕捱嗳嗌嫒瑷暧砹锿霭谙埯揞犴庵桉铵鹌黯 "
hstr(1) = hstr(1) & "嚣坳拗嗷岙廒遨媪骜獒聱螯鏊鳌鏖 "

            hstr(2) = "茇菝岜灞钯粑鲅魃捭掰阪坂钣瘢癍舨蒡浜曝 "
            hstr(2) = hstr(2) & "葆孢煲鸨褓趵龅孛陂邶埤萆蓓呗悖碚鹎褙鐾鞴夯 "
            hstr(2) = hstr(2) & "畚坌贲锛嘣甏匕俾埤芘荜荸萆薜吡哔狴庳愎滗濞 "
            hstr(2) = hstr(2) & "弼妣婢嬖璧贲睥畀铋秕裨筚箅篦舭襞跸髀匾弁苄 "
            hstr(2) = hstr(2) & "忭汴缏飚煸砭碥窆褊蝙笾鳊婊骠杓飑飙镖镳瘭裱 "
            hstr(2) = hstr(2) & "鳔髟蹩傧豳缤玢槟殡膑镔髌鬓禀邴摒槟柏卜孛亳 "
            hstr(2) = hstr(2) & "啵饽檗掰擘礴钹鹁簸趵跛踣卟逋瓿晡钚钸醭 "

            hstr(3) = "嚓礤孱骖璨粲黪嘈漕螬艚恻岑涔刹喳嚓猹馇汊姹杈楂 "
            hstr(3) = hstr(3) & "槎檫锸镲衩侪钗瘥虿冁谄蒇廛忏潺澶孱羼婵骣觇 "
            hstr(3) = hstr(3) & "禅镡蟾躔倘伥鬯苌菖徜怅惝阊娼嫦昶氅鲳绰剿怊 "
            hstr(3) = hstr(3) & "晁焯耖坼砗郴伧谌谶抻嗔宸琛榇碜龀骋秤丞埕噌 "
            hstr(3) = hstr(3) & "枨柽塍瞠铖铛裎蛏酲傺坻墀茌叱哧啻嗤饬媸敕眵 "
            hstr(3) = hstr(3) & "鸱瘛褫蚩螭笞篪豉踟魑茺忡憧铳舂艟俦帱惆瘳雠 "
            hstr(3) = hstr(3) & "畜亍刍怵憷绌杵楮樗褚蜍蹰黜搋膪踹啜嘬舛遄巛 "
            hstr(3) = hstr(3) & "氚钏舡怆陲棰槌茈呲祠鹚糍楱辏腠蔟徂猝殂酢蹙 "
            hstr(3) = hstr(3) & "蹴攒汆撺爨镩萃啐悴璀榱毳隹忖皴厝嵯脞锉矬痤 "
            hstr(3) = hstr(3) & "瘥鹾蹉 "

            hstr(4) = "耷哒嗒怛妲沓疸褡笪靼鞑埭甙呔岱迨骀绐玳黛 "
            hstr(4) = hstr(4) & "诞儋萏啖澹殚赕眈疸瘅聃箪谠凼菪宕砀裆叨帱忉 "
            hstr(4) = hstr(4) & "氘焘纛锝噔嶝戥磴镫簦氐籴诋谛邸坻荻嘀娣绨柢 "
            hstr(4) = hstr(4) & "棣觌砥碲睇镝羝骶嗲阽坫巅玷钿癜癫簟踮铞铫貂 "
            hstr(4) = hstr(4) & "鲷垤堞揲喋牒瓞耋踮蹀鲽仃啶玎腚碇町铤疔耵酊 "
            hstr(4) = hstr(4) & "铥垌咚岽峒氡胨胴硐鸫蔸窦蚪篼芏嘟渎椟牍蠹笃 "
            hstr(4) = hstr(4) & "髑黩椴煅簖怼憝碓沌炖砘礅盹镦趸驮咄哚沲缍柁 "
            hstr(4) = hstr(4) & "铎裰踱 "

hstr(5) = "噩谔垩苊莪萼呃愕屙婀轭腭锇锷鹗颚鳄诶蒽摁佴迩珥铒鸸鲕 "

            hstr(6) = "垡砝蕃蘩幡梵燔畈蹯坊邡彷枋钫舫鲂芾狒悱淝妃绯榧腓 "
            hstr(6) = hstr(6) & "斐扉镄痱蜚篚翡霏鲱偾瀵玢棼鲼鼢俸酆葑唪沣砜缶 "
            hstr(6) = hstr(6) & "匐凫郛芙芾苻茯莩菔拊呋幞怫滏艴孚驸绂绋桴赙 "
            hstr(6) = hstr(6) & "祓砩黻黼罘稃馥蚨蜉蝠蝮麸趺跗鲋鳆 "

            hstr(7) = "尬尕尜旮钆丐陔垓戤赅坩苷尴擀泔淦澉绀橄旰矸疳酐 "
            hstr(7) = hstr(7) & "戆罡筻睾诰郜藁缟槔槁杲锆咯屹鬲仡哿圪塥嗝纥 "
            hstr(7) = hstr(7) & "搿膈硌镉袼颌虼舸骼亘茛哏艮哽赓绠鲠珙肱蚣觥 "
            hstr(7) = hstr(7) & "佝诟岣遘媾缑枸觏彀笱篝鞲嘏诂菰呱崮汩梏轱牯 "
            hstr(7) = hstr(7) & "牿臌毂瞽罟钴锢鸪鹄痼蛄酤觚鲴鹘卦诖呱栝胍鸹 "
            hstr(7) = hstr(7) & "纶倌莞掼涫盥鹳矜鳏咣犷桄胱傀炔匦刿庋宄妫桧 "
            hstr(7) = hstr(7) & "炅晷皈簋鲑鳜衮绲磙鲧涡馘埚掴呙帼崞猓椁虢聒蜾蝈 "

            hstr(8) = "蛤虾铪嘿咳嗨胲醢邗菡撖阚瀚晗焓顸颔蚶鼾沆绗珩颃镐 "
            hstr(8) = hstr(8) & "貉蒿薅嗥嚆濠灏昊皓颢蚝诃劾壑嗬阖纥曷盍颌蚵翮 "
            hstr(8) = hstr(8) & "蘅珩桁黉訇讧荭蕻薨闳泓堠後逅瘊篌糇鲎骺冱唿囫 "
            hstr(8) = hstr(8) & "岵猢怙惚浒滹琥槲轷觳烀煳戽扈祜瓠鹄鹕鹱笏醐斛 "
            hstr(8) = hstr(8) & "骅桦砉铧踝郇奂萑擐圜獾洹浣漶寰逭缳锾鲩鬟隍徨 "
            hstr(8) = hstr(8) & "湟潢遑璜肓癀蟥篁鳇茴荟蕙咴哕喙隳洄浍彗缋珲桧 "
            hstr(8) = hstr(8) & "晖恚虺蟪麾诨馄阍溷劐藿攉嚯夥钬锪镬耠蠖 "

            hstr(9) = "丌亟乩剞佶偈诘墼芨芰荠蒺蕺掎叽咭哜唧岌嵴洎屐骥畿 "
            hstr(9) = hstr(9) & "玑楫殛戟戢赍觊犄齑矶羁嵇稷瘠虮笈笄暨跻跽霁鲚 "
            hstr(9) = hstr(9) & "鲫髻麂嘏伽郏葭岬浃迦珈戛胛恝铗镓痂瘕袷蛱笳 "
            hstr(9) = hstr(9) & "袈跏僭谏谫菅蒹搛囝湔蹇謇缣枧楗戋戬牮犍毽腱 "
            hstr(9) = hstr(9) & "睑锏鹣裥笕翦趼踺鲣鞯吉安茳洚绛缰犟礓耩糨豇 "
            hstr(9) = hstr(9) & "僬艽茭挢噍峤徼湫姣敫皎鹪蛟醮跤鲛偈讦诘拮喈 "
            hstr(9) = hstr(9) & "嗟婕孑桀碣疖颉蚧羯鲒骱饥饿卺荩堇噤馑廑妗缙 "
            hstr(9) = hstr(9) & "瑾槿赆觐衿刭儆阱菁獍憬泾迳弪婧肼胫腈旌靓迥 "
            hstr(9) = hstr(9) & "炅扃僦啾阄柩桕鸠鹫赳鬏倨讵苣苴莒掬遽屦琚枸 "
            hstr(9) = hstr(9) & "椐榘榉橘犋飓钜锔窭裾趄醵踽龃雎瞿鞫鄄狷涓桊 "
            hstr(9) = hstr(9) & "蠲锩镌隽厥劂谲矍蕨嗟噘噱崛獗孓珏桷橛爝镢蹶 "
            hstr(9) = hstr(9) & "觖巨额捃皲筠麇 "

            hstr(10) = "佧咔胩剀垲蒈忾恺铠锎锴侃莰阚戡龛瞰伉闶钪尻栲 "
            hstr(10) = hstr(10) & "犒铐嗑岢恪溘骒缂珂轲氪瞌钶锞稞疴窠颏蝌髁 "
            hstr(10) = hstr(10) & "裉铿倥崆箜芤蔻叩眍筘刳堀喾绔骷侉侩蒯郐哙 "
            hstr(10) = hstr(10) & "狯浍脍髋诓诳邝圹夼哐纩贶馗匮夔隗蒉揆喹喟 "
            hstr(10) = hstr(10) & "悝愦逵暌睽聩蝰篑跬悃阃琨锟醌鲲髡栝蛞 "

            hstr(11) = "剌邋旯砬瘌崃徕涞濑赉睐铼癞籁岚漤榄斓罱镧褴 "
            hstr(11) = hstr(11) & "莨蒗啷阆锒稂螂潦唠崂栳铑铹痨耢醪仂叻泐鳓 "
            hstr(11) = hstr(11) & "羸诔嘞嫘缧檑耒酹塄愣鬲俪俚郦坜苈莅蓠藜呖 "
            hstr(11) = hstr(11) & "唳喱猁悝溧澧逦娌嫠骊缡枥栎轹戾砺詈罹锂鹂 "
            hstr(11) = hstr(11) & "疠疬蛎蜊蠡笠篥粝醴跞雳鲡鳢黧蔹奁潋濂琏楝 "
            hstr(11) = hstr(11) & "殓臁裢裣蠊鲢立案墚莨椋踉靓魉蓼尥嘹獠寮缭 "
            hstr(11) = hstr(11) & "钌鹩冽埒捩咧洌趔躐鬣蔺啉嶙廪懔遴檩辚膦瞵 "
            hstr(11) = hstr(11) & "粼躏酃苓呤囹泠绫柃棂瓴聆蛉翎鲮浏遛骝绺旒 "
            hstr(11) = hstr(11) & "熘锍镏鹨鎏茏泷珑栊胧砻癃偻蒌喽嵝镂瘘耧蝼 "
            hstr(11) = hstr(11) & "髅垆蓼撸噜闾泸渌漉逯璐栌榈橹轳辂辘氇胪膂 "
            hstr(11) = hstr(11) & "镥稆鸬鹭褛簏舻鲈挛孪滦脔娈栾鸾銮锊囵倮蠃 "
            hstr(11) = hstr(11) & "荦捋摞猡泺漯珞椤脶硌镙瘰雒 "

            hstr(12) = "唛犸嬷杩蟆劢荬霾墁幔缦熳镘颟螨鳗鞔邙漭硭蟒 "
            hstr(12) = hstr(12) & "袤茆峁泖瑁昴牦耄旄懋瞀蟊髦麽莓嵋猸浼湄楣 "
            hstr(12) = hstr(12) & "镅鹛袂魅扪焖懑钔勐甍瞢懵朦礞虻蜢蠓艋艨芈 "
            hstr(12) = hstr(12) & "谧蘼咪嘧猕汨宓弭脒祢敉糸縻麋沔渑湎腼眄喵 "
            hstr(12) = hstr(12) & "邈缈缪杪淼眇鹋乜咩蠛篾苠岷闵泯缗玟珉愍黾 "
            hstr(12) = hstr(12) & "鳘冥茗溟暝瞑酩谟茉蓦馍嫫殁镆秣瘼耱貊貘侔 "
            hstr(12) = hstr(12) & "哞缪眸蛑蝥鍪仫坶苜沐毪钼 "

            hstr(13) = "捺肭镎衲鼐艿萘柰喃囝囡楠腩蝻赧攮囔馕曩孬垴呶猱 "
            hstr(13) = hstr(13) & "瑙硇铙蛲讷恁伲坭猊怩昵旎祢慝睨铌鲵廿埝辇 "
            hstr(13) = hstr(13) & "黏鲇鲶茑嬲脲袅乜陧蘖嗫颞臬蹑佞苎咛甯聍拗 "
            hstr(13) = hstr(13) & "狃忸妞侬哝耨弩胬孥驽恧钕衄傩搦喏锘 "

hstr(14) = "讴怄瓯耦 "

            hstr(15) = "葩杷钯筢俳蒎拚爿泮袢襻蟠蹒彷滂逄螃匏狍庖脬疱辔 "
            hstr(15) = hstr(15) & "帔旆锫醅霈湓堋嘭怦蟛丕仳陂陴邳郫圮埤鼙芘 "
            hstr(15) = hstr(15) & "擗吡噼庀淠媲纰枇甓睥罴铍癖裨疋蚍蜱貔谝骈 "
            hstr(15) = hstr(15) & "缏犏胼翩蹁剽莩嘌嫖骠缥殍瞟螵苤氕姘嫔榀牝 "
            hstr(15) = hstr(15) & "颦俜娉鲆叵陂鄱泺珀攴钋钷钹皤笸裒掊匍噗溥 "
            hstr(15) = hstr(15) & "濮璞氆镤镨蹼 "

            hstr(16) = "亟亓俟圻芑芪荠萁萋葺蕲嘁屺岐岖汔淇骐绮琪琦杞桤 "
            hstr(16) = hstr(16) & "槭耆欹祺憩碛颀蛴蜞綦綮蹊鳍麒葜袷髂倩佥阡 "
            hstr(16) = hstr(16) & "芊芡茜荨掮岍悭慊骞搴褰缱椠犍肷愆钤虔箬箝 "
            hstr(16) = hstr(16) & "戕嫱樯戗炝锖锵镪襁蜣羟跄劁诮谯荞峤愀憔缲 "
            hstr(16) = hstr(16) & "樵硗跷鞒郄惬慊妾挈锲箧芩揿吣嗪噙廑溱檎锓 "
            hstr(16) = hstr(16) & "矜覃螓衾苘圊檠磬蜻罄箐綮謦鲭黥邛茕穹蛩筇 "
            hstr(16) = hstr(16) & "跫銎俅巯犰湫逑遒楸赇虬蚯蝤裘糗鳅鼽诎劬苣 "
            hstr(16) = hstr(16) & "蕖蘧岖衢阒璩觑氍朐祛磲鸲癯蛐蠼麴瞿黢诠荃 "
            hstr(16) = hstr(16) & "悛绻辁畎铨蜷筌鬈阕阙悫逡 "

hstr(17) = "苒蚺髯禳穰荛娆桡仞荏葚饪轫嵘狨榕肜蝾糅蹂鞣蓐薷 "
hstr(17) = hstr(17) & "嚅洳溽濡缛铷襦颥朊芮蕤枘睿蚋偌 "

            hstr(18) = "卅仨挲脎飒噻馓毵糁磉颡埽缫缲臊瘙鳋啬铯唼嗄挲歃 "
            hstr(18) = hstr(18) & "铩痧裟霎鲨剡讪鄯埏芟潸姗嬗骟膻禅钐疝蟮舢 "
            hstr(18) = hstr(18) & "跚鳝垧绱殇熵觞劭苕潲杓蛸筲艄慑厍佘摺猞滠 "
            hstr(18) = hstr(18) & "歙畲麝诜谂莘葚哂渖椹胂矧蜃嵊渑晟眚笙嗜噬 "
            hstr(18) = hstr(18) & "仕侍恃谥埘莳蓍弑轼贳炻铈螫舐筮酾豕鲥鲺狩 "
            hstr(18) = hstr(18) & "绶艏黍倏塾菽摅沭澍姝纾毹腧殳秫唰蟀闩涮泷 "
            hstr(18) = hstr(18) & "孀蒴搠妁槊铄嗣伺巳厮俟兕厶咝汜泗澌姒驷缌 "
            hstr(18) = hstr(18) & "祀锶鸶耜蛳笥怂讼诵凇菘崧嵩忪悚淞竦薮嗖嗾 "
            hstr(18) = hstr(18) & "馊溲飕瞍锼螋夙谡蔌嗉愫涑簌觫稣蒜狻隋绥髓 "
            hstr(18) = hstr(18) & "遂隧祟谇荽濉邃燧眭睢荪狲飧榫隼蓑嗍娑桫挲睃羧 "

            hstr(19) = "獭挞蹋拓嗒闼溻漯遢榻沓铊趿鳎苔酞汰邰薹呔骀肽炱 "
            hstr(19) = hstr(19) & "钛跆鲐檀痰潭谭毯袒叹郯澹昙忐钽锬镡傥帑溏 "
            hstr(19) = hstr(19) & "瑭樘铴镗耥螗螳羰醣鼗啕洮韬焘饕忒忑慝铽藤 "
            hstr(19) = hstr(19) & "誊滕锑蹄啼嚏涕剃屉倜荑悌逖绨缇鹈裼醍舔恬 "
            hstr(19) = hstr(19) & "腆掭忝阗殄畋佻苕祧窕蜩笤粜龆鲦髫萜餮烃汀 "
            hstr(19) = hstr(19) & "亭艇莛葶婷梃町铤蜓霆侗恫桐酮瞳彤捅佟仝垌 "
            hstr(19) = hstr(19) & "茼嗵峒恸潼砼钭骰堍荼菟钍酴抟彖疃蜕忒煺饨 "
            hstr(19) = hstr(19) & "暾豚乇佗坨庹沱柝柁橐砣铊箨酡跎鼍 "

            hstr(20) = "佤娲腽烷皖惋宛婉腕剜芄莞菀纨绾琬脘畹蜿罔尢惘辋 "
            hstr(20) = hstr(20) & "魍诿隈隗圩葳薇帏帷崴嵬猥猬闱沩洧涠逶娓玮 "
            hstr(20) = hstr(20) & "韪軎炜煨痿艉鲔紊刎阌汶璺雯蓊蕹斡倭莴喔幄 "
            hstr(20) = hstr(20) & "渥肟硪龌兀仵阢邬圬芴唔庑怃忤浯寤迕妩婺骛 "
            hstr(20) = hstr(20) & "杌牾焐鹉鹜痦蜈鋈鼯 "

            hstr(21) = "僖兮隰郗茜菥葸蓰奚唏徙饩阋浠淅屣玺樨曦觋欷歙熹 "
            hstr(21) = hstr(21) & "禊禧皙穸裼蜥螅蟋舄舾羲粞翕醯蹊鼷呷狎遐瑕 "
            hstr(21) = hstr(21) & "柙硖瘕罅黠冼苋莶藓岘猃暹娴氙燹祆鹇痫蚬筅 "
            hstr(21) = hstr(21) & "籼酰跣跹霰芗葙饷庠骧缃蟓鲞飨哓崤潇逍骁绡 "
            hstr(21) = hstr(21) & "枭枵蛸筱箫魈偕亵勰燮薤撷獬廨渫瀣邂绁缬榭 "
            hstr(21) = hstr(21) & "榍颉躞忻衅囟馨昕歆镡鑫陉荇荥擤饧悻硎芎咻 "
            hstr(21) = hstr(21) & "岫馐庥溴鸺貅髹诩勖圩蓿洫浒溆顼栩煦砉盱胥 "
            hstr(21) = hstr(21) & "糈醑儇谖萱揎泫渲漩璇楦暄炫煊碹铉镟痃薛谑 "
            hstr(21) = hstr(21) & "噱泶踅鳕浚巽郇埙荀蕈獯恂洵浔曛窨醺鲟 "

            hstr(22) = "垭揠岈迓娅琊桠氩砑睚痖厣赝剡俨偃兖谳阽郾鄢芫菸 "
            hstr(22) = hstr(22) & "崦恹闫阏湮滟妍嫣琰檐晏胭腌焱罨筵酽魇餍鼹 "
            hstr(22) = hstr(22) & "疡炀烊恙蛘舀钥夭爻吆崾徭幺珧杳轺曜肴铫鹞 "
            hstr(22) = hstr(22) & "窈繇鳐噎耶掖曳腋拽靥谒邺揶晔烨铘铱翌绎刈 "
            hstr(22) = hstr(22) & "劓仡佚佾诒圯埸懿苡荑薏弈奕挹弋呓咦咿嗌噫 "
            hstr(22) = hstr(22) & "峄嶷猗饴怿怡悒殪轶贻欹旖熠眙钇镒镱痍瘗癔 "
            hstr(22) = hstr(22) & "翊蜴舣羿翳酏黟胤鄞圻垠堙茚吲喑狺夤洇湮氤 "
            hstr(22) = hstr(22) & "铟瘾窨蚓霪龈嬴郢茔荥莺萦蓥撄嘤膺滢潆瀛瑛 "
            hstr(22) = hstr(22) & "璎楹媵鹦瘿颍罂臃痈雍踊咏泳恿俑壅墉喁慵邕 "
            hstr(22) = hstr(22) & "镛甬鳙饔釉卣攸侑莠莜莸尢呦囿宥柚猷牖铕疣 "
            hstr(22) = hstr(22) & "蚰蚴蝣蝤繇鱿黝鼬禺毓伛俣谀谕萸菀蓣揄圄圉 "
            hstr(22) = hstr(22) & "嵛狳饫馀庾阈鬻妪妤纡瑜昱觎腴腧欤於煜熨燠 "
            hstr(22) = hstr(22) & "聿钰鹆鹬瘐瘀窬窳蜮蝓竽臾舁雩龉垸塬芫掾圜 "
            hstr(22) = hstr(22) & "沅媛瑗橼爰眢鸢螈箢鼋龠瀹栎樾刖钺郧陨蕴酝 "
            hstr(22) = hstr(22) & "晕韵郓芸狁恽愠纭韫殒昀氲熨 "

            hstr(23) = "咂甾拶瓒昝簪糌趱錾奘驵臧唣仄赜啧帻迮昃笮箦舴谮 "
            hstr(23) = hstr(23) & "缯甑罾锃揸吒哳喋楂砟痄蚱齄砦瘵谵搌旃瘴仉 "
            hstr(23) = hstr(23) & "鄣幛嶂獐嫜璋蟑肇诏啁棹钊笊锗蔗谪摺柘辄磔 "
            hstr(23) = hstr(23) & "鹧褶蜇赭甄砧臻贞侦枕疹圳蓁浈溱缜桢椹榛轸 "
            hstr(23) = hstr(23) & "赈胗朕祯畛稹鸩箴帧诤峥徵钲卮陟郅埴芷摭帙 "
            hstr(23) = hstr(23) & "徵忮彘咫骘栉枳栀桎轵轾贽胝膣祉祗黹雉鸷痣 "
            hstr(23) = hstr(23) & "蛭絷酯跖踬踯豸觯冢忪锺螽舯踵荮啁妯纣绉胄 "
            hstr(23) = hstr(23) & "碡籀繇酎伫侏邾茱洙渚潴杼槠橥炷铢疰瘃褚竺 "
            hstr(23) = hstr(23) & "箸舳翥躅麈挝曳拽篆啭馔沌颛僮奘骓缒倬诼擢 "
            hstr(23) = hstr(23) & "浞涿濯棹焯禚斫镯茈呲嵫姊孳缁梓辎赀恣眦锱 "
            hstr(23) = hstr(23) & "秭耔笫粢趑觜訾龇鲻髭偬枞腙粽诹陬鄹驺鲰诅 "
            hstr(23) = hstr(23) & "俎菹镞攥缵躜蕞撙樽鳟柞阼唑嘬怍胙祚笮 "

            '--------------------------------------------
            For x = 1 To Len(strZF)
                hz = Mid(strZF, x, 1)
                If GetPY1(hz) <> "" Then
                    '标准GB码
                    tmp = tmp & GetPY1(hz)
                Else
                    '非标准码
                    For k = 1 To 23
                        If InStr(hstr(k), hz) > 0 Then
                            tmp = tmp & zm(k)
                            Exit For
                        ElseIf k = 23 Then
                            tmp = tmp & "!"
                        End If
                    Next
                End If
            Next
            Return tmp.ToUpper
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Private Function GetPY1(ByVal strHZ As String) As String
        Try
            '取单个汉字的拼音码
            Select Case strHZ
                Case " " To "~"
                    GetPY1 = strHZ
                    Exit Function
                Case " "
                    GetPY1 = strHZ
                    Exit Function
            End Select

            strHZ = Hex(Asc(strHZ))
            Select Case strHZ
                Case "FFFFB0A1" To "FFFFB0C4"
                    GetPY1 = "a"
                Case "FFFFB0C5" To "FFFFB2C0"
                    GetPY1 = "b"
                Case "FFFFB2C1" To "FFFFB4ED"
                    GetPY1 = "c"
                Case "FFFFB4EE" To "FFFFB6E9"
                    GetPY1 = "d"
                Case "FFFFB6EA" To "FFFFB7A1"
                    GetPY1 = "e"
                Case "FFFFB7A2" To "FFFFB8C0"
                    GetPY1 = "f"
                Case "FFFFB8C1" To "FFFFB9FD"
                    GetPY1 = "g"
                Case "FFFFB9FE" To "FFFFBBF6"
                    GetPY1 = "h"
                Case "FFFFBBF7" To "FFFFBFA5"
                    GetPY1 = "j"
                Case "FFFFBFA6" To "FFFFC0AB"
                    GetPY1 = "k"
                Case "FFFFC0AC" To "FFFFC2E7"
                    GetPY1 = "l"
                Case "FFFFC2E8" To "FFFFC4C2"
                    GetPY1 = "m"
                Case "FFFFC4C3" To "FFFFC5B5"
                    GetPY1 = "n"
                Case "FFFFC5B6" To "FFFFC5BD"
                    GetPY1 = "o"
                Case "FFFFC5BE" To "FFFFC6D9"
                    GetPY1 = "p"
                Case "FFFFC6DA" To "FFFFC8BA"
                    GetPY1 = "q"
                Case "FFFFC8BB" To "FFFFC8F5"
                    GetPY1 = "r"
                Case "FFFFC8F6" To "FFFFCBF9"
                    GetPY1 = "s"
                Case "FFFFCBFA" To "FFFFCDD9"
                    GetPY1 = "t"
                Case "FFFFCDDA" To "FFFFCEF3"
                    GetPY1 = "w"
                Case "FFFFCEF4" To "FFFFD188"
                    GetPY1 = "x"
                Case "FFFFD189" To "FFFFD4D0"
                    GetPY1 = "y"
                Case "FFFFD4D1" To "FFFFD7F9"
                    GetPY1 = "z"
                Case Else
                    GetPY1 = ""
            End Select
        Catch ex As Exception
            Return Nothing
        End Try
    End Function