vb 获取字符串汉字拼音的首字母

Public Function Pinyin(MyStr As String) As String
    If Len(Trim(MyStr)) = 0 Then
        Pinyin = ""
        Exit Function
    End If
    i As Long
    For i = 1 To Len(MyStr)
        j = asc(Mid(MyStr, i, 1))
        Select Case j
           Case -20319 To -20284: Pinyin = Pinyin + "A"
           Case -20283 To -19776: Pinyin = Pinyin + "B"
           Case -19775 To -19219: Pinyin = Pinyin + "C"
           Case -19218 To -18711: Pinyin = Pinyin + "D"
           Case -18710 To -18527: Pinyin = Pinyin + "E"
           Case -18526 To -18240: Pinyin = Pinyin + "F"
           Case -18239 To -17923: Pinyin = Pinyin + "G"
           Case -17922 To -17418: Pinyin = Pinyin + "H"
           Case -17417 To -16475: Pinyin = Pinyin + "J"
           Case -16474 To -16213: Pinyin = Pinyin + "K"
           Case -16212 To -15641: Pinyin = Pinyin + "L"
           Case -15640 To -15166: Pinyin = Pinyin + "M"
           Case -15165 To -14923: Pinyin = Pinyin + "N"
           Case -14922 To -14915: Pinyin = Pinyin + "O"
           Case -14914 To -14631: Pinyin = Pinyin + "P"
           Case -14630 To -14150: Pinyin = Pinyin + "Q"
           Case -14149 To -14091: Pinyin = Pinyin + "R"
           Case -14090 To -13319: Pinyin = Pinyin + "S"
           Case -13318 To -12839: Pinyin = Pinyin + "T"
           Case -12838 To -12557: Pinyin = Pinyin + "W"
           Case -12556 To -11848: Pinyin = Pinyin + "X"
           Case -11847 To -11056: Pinyin = Pinyin + "Y"
           Case -11055 To -10247: Pinyin = Pinyin + "Z"
           Case -9254: Pinyin = Pinyin + "Z"                ''圳
           Case -3589: Pinyin = Pinyin + "Q"                ''覃
           Case -32185: Pinyin = Pinyin + "C"               ''侴
           Case Else: Pinyin = Pinyin
        End Select
    Next i
   
End Function

你可能感兴趣的:(VB6)