如何将下列16进制转换成汉字？
45 00 00 BB 36 13 40 00 80 06 17 49 C0 A8 01 4E
CF 2E 1B BC 11 6F 07 47 61 E4 8E 64 C3 9F D4 66
50 18 FF 10 AD 8E 00 00 4D 53 47 20 37 35 20 4E
20 31 33 33 0D 0A 4D 49 4D 45 2D 56 65 72 73 69
6F 6E 3A 20 31 2E 30 0D 0A 43 6F 6E 74 65 6E 74
2D 54 79 70 65 3A 20 74 65 78 74 2F 70 6C 61 69
6E 3B 20 63 68 61 72 73 65 74 3D 55 54 46 2D 38
0D 0A 58 2D 4D 4D 53 2D 49 4D 2D 46 6F 72 6D 61
74 3A 20 46 4E 3D 4D 53 25 32 30 53 68 65 6C 6C
25 32 30 44 6C 67 25 32 30 32 3B 20 45 46 3D 3B
20 43 4F 3D 30 3B 20 43 53 3D 31 3B 20 50 46 3D
30 0D 0A 0D 0A E6 B5 8B E8 AF 95
谢谢
[解决办法]
Private Sub Command1_Click()
Debug.Print Hex2String(Text1.Text)
End Sub
Private Function Hex2String(ByVal sHex As String, Optional bUnicode As Boolean)
Dim sByte As Variant
Dim byChar() As Byte
Dim i As Long
sHex = Replace(sHex, vbCrLf, " ")
sByte = Split(sHex, " ")
ReDim byChar(0 To UBound(sByte)) As Byte
For i = 0 To UBound(sByte)
byChar(i) = Val( "&h " & sByte(i))
Next
If bUnicode Then
Hex2String = byChar
Else
Hex2String = StrConv(byChar, vbUnicode)
End If
End Function
不过你的16进制貌似不是中文，有英文
