Question

VB中 如何将16进制的 ASCII码序列 转换为 字符串

udpPeerA.GetData strDat, vbByte + vbArray 'winsock接收到的数据 16进制
Dim l As Long, m As String, n As String, k As String
Dim TempArr() As String
For l = 0 To UBound(strDat)
m = Hex(strDat(l)) '数据已经转换为16进制 肯定没问题 试过了
n = n + ChrW("&h" + m) ’这句我想将字符存成字符串，之后无法显示，请赐教
’n= ChrW("&h" + m) 单个字符可以存进来 并且显示
txtOutput.Text = n '我想将存好的字符串显示 如果是n=n+的那个无法显示

Next
PS: home20010252 的方法试过了 还是 显示空白。
cwa9958的方法也试了。。还是不行。。 其实是速度太快了。。十六进制的ASC码就能显示 转成 字符就显示不了。。奇怪啊。。
yxy7688 的方法也试了。。

现在发现主要问题了 就是 n =n + chrw() 和 n & chrw()一样都不能显示， 但是 n = chrw()+ n 或者chrw & n都可以显示 但字符串是反向的。
怎么办。。 比如应该2009 但是显示的是9002.。 反向字符串的函数也不管用 mid()也不行

请帮忙

Answer 1

我感觉你的ChrW没有问题,问题出在n上,n没有初值,错误不可预见.可以这样
Dim l As Long, m As String, n As String, k As String
n = ""
Dim TempArr() As String
......应该就没问题了

补充:
换成
n = cstr(n) + cstr(ChrW("&h" + m))
或n = format(n)+ format(ChrW("&h" + m))
试试

Answer 2

理论上是对的,可以显示,但是不能用你的代码调试.
是不是端口传过来的数据太慢了呢?
这样测试一下:

udpPeerA.GetData strDat, vbByte + vbArray 'winsock接收到的数据 16进制
Dim l As Long, m As String, n As String, k As String
Dim TempArr() As String
For l = 0 To UBound(strDat)
m = Hex(strDat(l)) '数据已经转换为16进制 肯定没问题 试过了
n = n & ChrW("&h" + m) ’这句我想将字符存成字符串，之后无法显示，请赐教
’n= ChrW("&h" + m) 单个字符可以存进来 并且显示
sleep 500 '暂停一下
Next
txtOutput.Text = n '我想将存好的字符串显示 如果是n=n+的那个无法显示

Answer 3

把这句改一下试试：
n=n+chrw()
改为
n=n & chrw()

Answer 4

先得出，后反向字符串的函数，再不管用两个一块上，咋？