Question

求VB 16进制转字符方法

从串口抓取到数据：Length: 0045, Data: 55 00 28 64 03 00 C8 00 01 00 0C 00 12 00 01 00 0C 00 0B 00 18 00 50 00 02 00 0A 00 01 00 00 00 00 00 44 44 44 44 44 44 44 F4 88 99 2B
怎么把它转换成字符？非常感谢！

Answer 1

DIM strData as string
strData = data 'Data: 55 00 28 64...
For i = 1 To Len(strData) Step 3 '处理为ASCII字符
sj = Val("&H" & Mid(strData, i, 2))
If sj < 32 Or sj > 128 Then '当接收字节中有Chr(0)时，其后字符被切割
strDat = strDat & "."
Else
strDat = strDat & Chr(sj)
End If
Next
msgbox(strDat ) 'strDat 为转换成的字符

Answer 2

这个就要看你要什么编码的字符了 gb2312 UTF8 都各不一样，所以组合出来的也不一样

Answer 3

yong ji suan qi
pinyin