16进制转成普通文字

Question

例如：
7e 7e 7e 7e 7e 30 30 30 30 30 3b 转换后是 ~~~~~00000;

Answer 1

sInput="7e 7e 7e 7e 7e 30 30 30 30 30 3b"
sa=split(sInput," ")
sOutput = ""
for i=0 to ubound(sa)
  sOutput=sOutput & chr( val("&H" & sa(i)) )
next i大概这样吧，没有测试过的

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim aData(0 To 10) As Byte
    Dim sData As String
    
    aData(0) = &H7E
    aData(1) = &H7E
    aData(2) = &H7E
    aData(3) = &H7E
    aData(4) = &H7E
    
    aData(5) = &H30
    aData(6) = &H30
    aData(7) = &H30
    aData(8) = &H30
    aData(9) = &H30
    
    aData(10) = &H3B
    
    sData = StrConv(aData, vbUnicode)
    
    MsgBox sData    '~~~~~00000
End Sub

Answer 3

弄个函数最简单了。Option ExplicitPrivate Function Hext2Str(ByVal HexSource As String, ByVal Division As String) As String
    On Error Resume Next
    Dim lNext As Long, VarData As Variant
    If HexSource = "" Then Exit Function
    VarData = Split(HexSource, Division)
    For lNext = 0 To UBound(VarData)
      Hext2Str = Hext2Str & Chr(Val("&H" & VarData(lNext)))
    Next lNext
End FunctionPrivate Sub Command1_Click()
    MsgBox Hext2Str("7e 7e 7e 7e 7e 30 30 30 30 30 3b", " ")
End Sub

Answer 4

一楼的代码就不错，整理成函数方便调用：Private Sub Command1_Click()
    MsgBox Hex2Str("7e 7e 7e 7e 7e 30 30 30 30 30 3b")
End SubPrivate Function Hex2Str(s As String) As String
    Dim sa() As String, i As Integer
    sa = Split(s, " ")
    For i = 0 To UBound(sa)
      Hex2Str = Hex2Str & Chr(Val("&H" & sa(i)))
    Next i
End Function