VB 数据chr的转换

来源：百度知道 编辑：UC知道 时间：2024/09/23 04:50:20
比如我的 59 6E 转换成chr就是
Chr(89) & Chr(110)

我现在有很多的数据
比如"59 E9 8B AD 51 6F 64 A1 ......."
可不可以给写个代码转换成
Chr(89) & Chr(110) & ....
这样的格式呢 拜托了
各位理解错了....我不是让输出chr的计算
是输出那样格式的文本

先把那些数据读出来，再写成：
Chr(&H59) & Chr(&HE9) & ....

Dim S as string
S="59 E9 8B AD 51 6F 64 A1 ......."
Dim A
A=Split(S," ")
For i=0 To Ubound(A)
S= S & Chr(clng("&H" & A(I)))
Next
Print S

楼上的好拽啊 俺也刚学 可以用循环吧应该 很简单的

Private Sub Command1_Click()
Debug.Print getCode("59 E9 8B AD 51 6F 64 A1 ")
End Sub

Function getCode$(ByVal vStr$)
Dim vTemp$
vStr = Replace$(vStr, " ", "")
For i = 0 To Len(vStr) \ 2 - 1
vTemp = vTemp & Chr$("&H" & Mid$(vStr, i * 2 + 1, 2))
Next
getCode = vTemp
End Function