'/ <summary>

'/ 獲得一個字符串的漢語拼音碼

'/ </summary>

'/ <param name="strText">字符串</param>

'/ <returns>漢語拼音碼,該字符串只包含大寫的英文字母</returns>

Public Shared Function GetChineseSpell(ByVal strText As String) As String

    If strText = Nothing Or strText.Length = 0 Then

        Return strText

    End If

    Dim myStr As System.Text.StringBuilder = New System.Text.StringBuilder()

    Dim vChar As Char

    For Each vChar In strText

        ' 若是字母則直接輸出

        If (vChar >= "a"c And vChar <= "z"c) Or (vChar >= "A"c And vChar <= "Z"c) Then

            myStr.Append(vChar)

        ElseIf Microsoft.VisualBasic.AscW(vChar) >= 19968 And Microsoft.VisualBasic.AscW(vChar) <= 40869 Then

            ' 若字符Unicode編碼在編碼范圍則 查漢字列表進(jìn)行轉(zhuǎn)換輸出

            Dim strList As String

            For Each strList In strChineseCharList

                If strList.IndexOf(vChar) > 0 Then

                    myStr.Append(strList(0))

                    Exit For

                End If

            Next

        End If

    Next

    Return myStr.ToString()

End Function

' GetChineseSpell

Private Shared strChineseCharList() As String = {"A阿啊錒嗄厑哎哀唉埃挨溾锿鎄啀捱皚凒溰嘊敳皚癌毐昹噯矮藹躷噯藹譪靄靄艾伌愛砹硋隘嗌塧嬡愛礙曖璦僾壒嬡懓薆曖璦鴱皧瞹馤鑀鱫安侒峖桉氨庵諳萻腤鵪蓭誝鞌鞍盦馣鮟盫韽啽雸垵", "A俺唵埯銨隌揞罯銨犴岸按荌案胺豻堓婩暗貋儑錌黯骯岇昂昻枊盎醠凹坳垇柪軪爊敖厫隞嗷嗸嶅廒滶獒獓遨熬璈蔜翱聱螯翶謷翺鰲鏖鰲鷔鼇芺襖媼镺襖岙扷岰傲奡奧嫯慠驁奧嶴澳懊擙謸鏊", "B八仈巴叭扒朳玐吧夿岜芭疤哵捌笆粑紦羓蚆釟豝鲃魞叐犮抜坺妭拔茇炦癹胈釛菝詙跋軷魃把靶壩弝爸垻罷鲅鮁覇矲霸壩灞欛挀掰白百佰柏栢捭竡粨擺擺襬唄拝敗拜唄敗稗粺鞁薭贁兡瓸扳", "B攽班般頒斑搬斒瘢螁癍辬阪坂岅昄板版瓪鈑粄舨鈑蝂魬辦半伴扮姅怑拌絆秚絆鉡靽辦瓣邦峀垹幫捠梆浜邫幇幚縍幫鞤綁綁榜膀玤蚌傍棒謗塝稖蒡蜯磅鎊艕謗勹包佨孢苞胞笣煲齙蕔褒闁齙", "B窇嫑雹寶怉飽保鴇珤堡堢媬葆寚飹飽褓駂鳵緥鴇賲藵寳寶靌勽報抱豹趵菢鮑靤骲暴髱虣儤曓爆忁鑤萡陂卑杯盃桮悲揹碑鵯藣鵯喺北鉳貝狽貝邶備昁牬苝背鋇俻倍悖狽被偝偹梖珼鄁備僃憊", "B焙軰輩愂碚禙蓓蛽犕褙誖骳輩鋇憊糒鞴鐾奔泍賁倴渀逩犇錛錛本苯奙畚楍坌捹桳笨撪輽伻崩繃閍嵭嘣綳繃甭埲菶琫鞛泵迸塴甏镚蹦鏰屄毴逼豍鲾鵖鰏柲荸鼻嬶匕比夶朼佊吡妣沘疕彼柀秕", "B俾筆粊舭筆鄙聛貏匂幣必畢閉佖坒庇诐邲妼怭畀畁嗶毖珌疪蓽陛斃狴畢袐鉍婢庳敝梐萆萞閇閉堛弻弼愊愎湢皕禆篳詖貱赑嗶彃楅潷滭煏痹腷蓖蓽蜌裨蹕閟飶幣弊熚獙碧箅綼蔽鄪馝幤潷獘", "B罼襅駜髲壁嬖廦篦篳縪薜觱避鮅斃濞臂蹕髀奰璧鄨饆繴襞襣鏎鞸韠躃躄魓贔鐴驆鷝鷩鼊邊砭籩編煸甂箯編蝙獱邉鍽鳊邊鞭鯾鯿籩炞貶扁窆匾惼碥稨褊糄鴘藊卞弁忭抃汳汴芐釆峅便變変昪", "B覍揙緶遍辡艑辧辨辯辮辮變彪標(biāo)颮髟猋脿墂幖滮驃標(biāo)熛膘瘭鏢飆飚儦颷瀌爂臕贆鏢鑣飆飇飈飊鑣表婊裱諘褾錶檦俵鰾鰾憋鱉鱉鼈虌龞別別咇莂蛂徶襒蟞蹩癟癟彆邠賓彬儐斌椕濱繽檳瑸賓", "B賔鑌儐瀕濱濵虨豳瀕霦繽蠙鑌顮氞擯殯臏髩擯鬂殯臏髕鬢髕鬢仌氷冰兵栟掤梹鋲檳丙邴陃怲抦秉苪昺柄炳餅窉蛃棅稟鈵鞆餅餠燷并並併幷垪庰倂栤病竝偋傡寎摒誁鮩靐癶撥波玻剝盋袯缽", "B餑啵紴缽脖菠鉢僠嶓播餑蹳驋鱍仢伯孛駁帛泊狛瓝侼勃胉郣亳挬浡秡鈸鉑舶博渤葧鵓愽搏鈸鉑馎鲌僰煿?fàn)Σ才囻C駁踣鋍镈薄駮鮊懪礡簙鎛餺鵓犦欂襮礴鑮跛箥簸孹擘檗糪譒蘗蔔峬庯逋", "B鈽晡鈽誧餔轐醭卜卟補(bǔ)哺捕補(bǔ)鳪鸔不布佈步咘怖歨歩钚勏埗悑部埠瓿廍蔀踄篰餢簿玢佛夯宀疒瀑", "C嚓擦礤礸遪猜才材財財戝裁采倸埰婇寀彩採睬跴綵踩菜棌蔡縩乲參飡驂湌嬠餐驂殘蠶慚殘慚蝅慙蠶蠺慘慘噆憯黲黲燦粲儏澯薒燦璨爘倉仺傖滄蒼倉艙傖凔嵢滄獊蒼濸艙螥罉藏欌鑶賶撡操", "C糙曺曹嘈嶆漕蓸槽褿艚螬鏪艸艸草愺騲肏襙冊側(cè)廁惻測荝