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

'汉字转换成拼音

比如：“张三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

总结

以上是内存溢出为你收集整理的Vb.net 汉字转换成拼音全部内容，希望文章能够帮你解决Vb.net 汉字转换成拼音所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。