Question

我想把一串16进制机内码转成字符串显示，我需要VB.NET程序.

字符串中包含汉字，英文以及各种符号。比如 31B8DB 转成 1港

Answer 1

不知道你是什么编码，我查了“1港”的编码是这样：
Dim a() As Byte
Dim b As String
a = {&H31, &HE6, &HB8, &HAF} 'UTF-8编码
b = System.Text.Encoding.UTF8.GetString(a)
MsgBox(b)
a = {&H31, 0, &H2F, &H6E} 'Unicode编码
b = System.Text.Encoding.Unicode.GetString(a)
MsgBox(b)

追问

asc("港")=B8DB

我得到数据也是这样 如何转换？

追答

和asc对应的函数是chr：
Dim a As Integer = &HB8DB
MsgBox(Chr(a))

追问

这个我知道 关键是 31B8DB30是连着读上来的 要转换成1港0 才行

追答

Dim a() As Byte = {&H31, &HDB, &HB8, &H30}
Dim b As String = ""
For i = 0 To a.Length - 1
If a(i) < &HA0 Then b = b & Chr(a(i)) Else b = b & Chr(a(i) + a(i + 1) * 256) : i = i + 1
Next
MsgBox(b)