7,785
社区成员




dim aa() as byte
aa=strconv("é",vbFromUniocde)
msgbox(aa(0))
Dim EnAsc As New Text.ASCIIEncoding
Dim EnUtf8 As New Text.UTF8Encoding
Dim EnUtf32 As New Text.UTF32Encoding
Dim EnUni As New Text.UnicodeEncoding
Console.WriteLine(Asc("é"c))'-22362
Console.WriteLine(AscW("é"c)) '233 = &HE9
Console.WriteLine(ChrW(233)) 'é
Console.WriteLine(BitConverter.ToString(EnAsc.GetBytes("é"c))) '3F
Console.WriteLine(BitConverter.ToString(EnUtf8.GetBytes("é"c))) 'C3-A9
Console.WriteLine(BitConverter.ToString(EnUtf32.GetBytes("é"c)))'E9-00-00-00
Console.WriteLine(BitConverter.ToString(EnUni.GetBytes("é"c)))'E9-00