汉字首字母拼音码(vb.net & csharp)

CSharp

public string GetPinYin(string text)
{
char pinyin;
byte[] array;
System.Text.StringBuilder sb = new System.Text.StringBuilder(text.Length);
foreach(char c in text)
{
pinyin = c;
array = System.Text.Encoding.Default.GetBytes(new char[]{c});

if(array.Length == 2)
{
int i = array[0] * 0x100 + array[1];

if(i < 0xB0A1) pinyin = c; else
if(i < 0xB0C5) pinyin = 'a'; else
if(i < 0xB2C1) pinyin = 'b'; else
if(i < 0xB4EE) pinyin = 'c'; else
if(i < 0xB6EA) pinyin = 'd'; else
if(i < 0xB7A2) pinyin = 'e'; else
if(i < 0xB8C1) pinyin = 'f'; else
if(i < 0xB9FE) pinyin = 'g'; else
if(i < 0xBBF7) pinyin = 'h'; else
if(i < 0xBFA6) pinyin = 'g'; else
if(i < 0xC0AC) pinyin = 'k'; else
if(i < 0xC2E8) pinyin = 'l'; else
if(i < 0xC4C3) pinyin = 'm'; else
if(i < 0xC5B6) pinyin = 'n'; else
if(i < 0xC5BE) pinyin = 'o'; else
if(i < 0xC6DA) pinyin = 'p'; else
if(i < 0xC8BB) pinyin = 'q'; else
if(i < 0xC8F6) pinyin = 'r'; else
if(i < 0xCBFA) pinyin = 's'; else
if(i < 0xCDDA) pinyin = 't'; else
if(i < 0xCEF4) pinyin = 'w'; else
if(i < 0xD1B9) pinyin = 'x'; else
if(i < 0xD4D1) pinyin = 'y'; else
if(i < 0xD7FA) pinyin = 'z';
}

sb.Append(pinyin);
}

return sb.ToString();
}
vb.net

Public Function GetPinYin(ByVal str As String) As String
Dim pinyin As Char
Dim c As Char
Dim array() As Byte
Dim i As Integer
Dim sb As New System.Text.StringBuilder(str.Length)
For Each c In str.ToCharArray
pinyin = c
array = System.Text.Encoding.Default.GetBytes(New Char() {c})
If array.Length = 2 Then
i = array(0) * &H100 + array(1)
If i < &HB0A1 Then
pinyin = c
ElseIf i < &HB0C5 Then
pinyin = "a"
ElseIf i < &HB2C1 Then
pinyin = "b"
ElseIf i < &HB4EE Then
pinyin = "c"
ElseIf i < &HB6EA Then
pinyin = "d"
ElseIf i < &HB7A2 Then
pinyin = "e"
ElseIf i < &HB8C1 Then
pinyin = "f"
ElseIf i < &HB9FE Then
pinyin = "g"
ElseIf i < &HBBF7 Then
pinyin = "h"
ElseIf i < &HBFA6 Then
pinyin = "g"
ElseIf i < &HC0AC Then
pinyin = "k"
ElseIf i < &HC2E8 Then
pinyin = "l"
ElseIf i < &HC4C3 Then
pinyin = "m"
ElseIf i < &HC5B6 Then
pinyin = "n"
ElseIf i < &HC5BE Then
pinyin = "o"
ElseIf i < &HC6DA Then
pinyin = "p"
ElseIf i < &HC8BB Then
pinyin = "q"
ElseIf i < &HC8F6 Then
pinyin = "r"
ElseIf i < &HCBFA Then
pinyin = "s"
ElseIf i < &HCDDA Then
pinyin = "t"
ElseIf i < &HCEF4 Then
pinyin = "w"
ElseIf i < &HD1B9 Then
pinyin = "x"
ElseIf i < &HD4D1 Then
pinyin = "y"
ElseIf i < &HD7FA Then
pinyin = "z"
End If
End If
sb.Append(pinyin)
Next
Return sb.ToString()
End Function