如何把一个表示Hex 数据的字符串解析为 ByteArray ，或者反过来

Question

比如字符串为 "6A 6B 6C 6D 6E 6F", 我如何把这个字符串生成一个byte类型的数组？或者是字符串（5个字符）"jklno"，反过来如何把"jklno"变为"6A 6B 6C 6D 6E 6F"？

Answer 1

如何把一个ByteArray 转化为String或反过了

Answer 2

Private Sub Command1_Click()MsgBox hextostr("6A 6B 6C 6D 6E 6F")MsgBox strtohex("jklno")
End Sub
Function hextostr(ByVal x As String) As String
Dim temp
temp = Split(x, " ")
For i = 0 To UBound(temp)
hextostr = hextostr & Chr("&H" & temp(i))
Next
End FunctionFunction strtohex(ByVal x As String) As StringFor i = 1 To Len(x)
strtohex = strtohex & Hex(Asc(Mid(x, i, 1))) & " "
Next
strtohex = Trim(strtohex)
End Function

Answer 3

1)val( "&h" & "EE" )2)iif( a < 16, 0 & hex( a ), hex( a ) )

Answer 4

1)val( "&h" & "EE" )2)iif( a < 16, "0" & hex( a ), hex( a ) )

Answer 5

thx
收分，不过JennyVenus(一袋烟后老汉绕村后的老槐树三圈有 得没有看懂