vb 16进制 转 unicode

Private Sub Form_Load()Dim a As StringDim as1() As StringDim ab() As Bytea = "B1 82 45 9B 00 00 00 00"as1 = Split(a, " ")ReDim ab(UBound(as1))For i = 0 To UBound(as1) - 1ab(i) = CByte(Val("&h" & as1(i)))Nexta = abEnd Sub 

 

换成函数

Function HexToUnicode(inname As String) As StringDim a As StringDim as1() As StringDim ab() As Bytea = innameas1 = Split(a, " ")ReDim ab(UBound(as1))For i = 0 To UBound(as1) - 1ab(i) = CByte(Val("&h" & as1(i)))NextHexToUnicode = abEnd Function 

 

strtohex

 

Function StrToHex(inname As String) As String Dim abyte1() As Byte abyte1 = inname For i = 0 To UBound(abyte1) StrToHex = StrToHex & Hex(abyte1(i)) NextEnd Function