将汉字转换为大写的拼音首字母

'函数名 :GetSpellCode


'函数功能:将汉字转换为大写的拼音首字母


'传入参数:Cnstr:待转换的汉字字符串


'返回值 :拼音字符串


'制作人 :zzz


'制作日期:2007-02-10


'说 明 :对于U、V无法转换




Public Function GetSpellCode()Function GetSpellCode(ByVal CnStr As String) As String


Dim strTemp As String = ""


Dim iLen As Int16 = CnStr.Length, i As Int16 = 0




For i = 0 To iLen - 1


strTemp += GetCharSpellCode(CnStr.Substring(i, 1))


Next




GetSpellCode = strTemp


End Function




'函数名 :GetCharSpellCode


'函数功能:将一个汉字转换为大写的拼音首字母


'传入参数:Cnstr:待转换的汉字字符


'返回值 :拼音字符


'制作人 :zzz


'制作日期:2007-02-10


'说 明 :对于U、V无法转换




Private Function GetCharSpellCode()Function GetCharSpellCode(ByVal CnChar As String) As String


Dim iCnChar As Long


Dim Zw() As Byte = System.Text.Encoding.Default.GetBytes(CnChar)




'如果是字母，则直接返回


Dim i1 As Int16 = Zw(0)


Dim i2 As Int16 = Zw(1)




iCnChar = i1 * 256 + i2


If ((iCnChar >= 45217) And (iCnChar <= 45252)) Then


Return "A"


ElseIf ((iCnChar >= 45253) And (iCnChar <= 45760)) Then


Return "B"


ElseIf ((iCnChar >= 45761) And (iCnChar <= 46317)) Then


Return "C"


ElseIf ((iCnChar >= 46318) And (iCnChar <= 46825)) Then


Return "D"


ElseIf ((iCnChar >= 46826) And (iCnChar <= 47009)) Then


Return "E"


ElseIf ((iCnChar >= 47010) And (iCnChar <= 47296)) Then


Return "F"


ElseIf ((iCnChar >= 47297) And (iCnChar <= 47613)) Then


Return "G"


ElseIf ((iCnChar >= 47614) And (iCnChar <= 48118)) Then


Return "H"


ElseIf ((iCnChar >= 48119) And (iCnChar <= 49061)) Then


Return "J"


ElseIf ((iCnChar >= 49062) And (iCnChar <= 49323)) Then


Return "K"


ElseIf ((iCnChar >= 49324) And (iCnChar <= 49895)) Then


Return "L"


ElseIf ((iCnChar >= 49896) And (iCnChar <= 50370)) Then


Return "M"


ElseIf ((iCnChar >= 50371) And (iCnChar <= 50613)) Then


Return "N"


ElseIf ((iCnChar >= 50614) And (iCnChar <= 50621)) Then


Return "O"


ElseIf ((iCnChar >= 50622) And (iCnChar <= 50905)) Then


Return "P"


ElseIf ((iCnChar >= 50906) And (iCnChar <= 0.51386)) Then


Return "Q"


ElseIf ((iCnChar >= 51387) And (iCnChar <= 51445)) Then


Return "R"


ElseIf ((iCnChar >= 51446) And (iCnChar <= 52217)) Then


Return "S"


ElseIf ((iCnChar >= 52218) And (iCnChar <= 52697)) Then


Return "T"


ElseIf ((iCnChar >= 52698) And (iCnChar <= 52979)) Then


Return "W"


ElseIf ((iCnChar >= 52980) And (iCnChar <= 53640)) Then


Return "X"


ElseIf ((iCnChar >= 53689) And (iCnChar <= 54480)) Then


Return "Y"


ElseIf ((iCnChar >= 54481) And (iCnChar <= 55289)) Then


Return "Z"


Else


Return ("?")


End If


End Function