'汉字转换成拼音
比如:“张三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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。