Vb.net 汉字转换成拼音

 

  '汉字转换成拼音

比如：“张三100”,可以生成"zs100"

    Public Function HzTopy(ByVal mystr As String) As String

        Dim i As Integer

        Dim J As Integer

        Dim Pstr As String = String.Empty

        Dim Py As String =string.empty

        Dim k As Integer = String.Empty

        Try

            k = Len(mystr)

            For J = 1 To k

                i = Asc(Mid(mystr, J, 1))

                Select Case i

                    Case -20319 To -20284 : Py = "A"

                    Case -20283 To -19776 : Py = "B"

                    Case -19775 To -19219 : Py = "C"

                    Case -19218 To -18711 : Py = "D"

                    Case -18710 To -18527 : Py = "E"

                    Case -18526 To -18240 : Py = "F"

                    Case -18239 To -17923 : Py = "G"

                    Case -17922 To -17418 : Py = "H"

                    Case -17417 To -16475 : Py = "J"

                    Case -16474 To -16213 : Py = "K"

                    Case -16212 To -15641 : Py = "L"

                    Case -15640 To -15166 : Py = "M"

                    Case -15165 To -14923 : Py = "N"

                    Case -14922 To -14915 : Py = "O"

                    Case -14914 To -14631 : Py = "P"

                    Case -14630 To -14150 : Py = "Q"

                    Case -14149 To -14091 : Py = "R"

                    Case -14090 To -13319 : Py = "S"

                    Case -13318 To -12839 : Py = "T"

                    Case -12838 To -12557 : Py = "W"

                    Case -12556 To -11848 : Py = "X"

                    Case -11847 To -11056 : Py = "Y"

                    Case -11055 To -10247 : Py = "Z"

                    Case Else : Py = CStr(Chr(i))

                End Select

                Pstr = Pstr & Py

            Next

            HzTopy = Pstr

        Catch ex As Exception

               msgbox ("转成失败！")

            Return String.Empty

        End Try

    End Function