vb 16进制 转 unicode

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

换成函数

Function HexToUnicode(inname As String) As String Dim a As String Dim as1() As String Dim ab() As Byte a = inname as1 = Split(a," ") ReDim ab(UBound(as1)) For i = 0 To UBound(as1) - 1 ab(i) = CByte(Val("&h" & as1(i))) Next HexToUnicode = ab End 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)) Next End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!