如题,请问如何将读取的十六进制转换为中文字符.
十六进制字符串:A3A8C4D0D3C3A3A9
对应中文字符串: (男用)

解决方案 »

  1.   

    Dim x As String
        Dim xb() As Byte
        
        x = "A3A8C4D0D3C3A3A9"
        ReDim xb(Len(x) \ 2 - 1)
        
        Dim i As Long
        For i = 0 To UBound(xb)
            xb(i) = Val("&H" & Mid(x, i * 2 + 1, 2))
        Next
        
        MsgBox StrConv(xb, vbUnicode)
      

  2.   

    谢谢 fxy_2002(阿勇) 
    简明易懂,原来有这样的函数可以使用.