VB 二进制数组与十六进制字符串相互转换

1.VB 二进制Byte()数组转换成十六进制字符串函数：

Private Function BytesToHex(bytB() As Byte) As String
Dim strTmp As String, i As Long
For i = 1 To UBound(bytB)
strTmp = strTmp & " " & Hex(bytB(i))
DoEvents
Next
BytesToHex = strTmp
End Function

2.VB 16进制字符串转二进制数组函数：

Private Function HexToBytes(strHex As String) As Byte()
strHex = Trim$(strHex)
Dim TempData() As String
Dim Data() As Byte, i As Long

TempData = Split(strHex, " ")

ReDim Data(UBound(TempData))

For i = 0 To UBound(TempData)
Data(i) = CInt("&H" & TempData(i))
Next i
HexToBytes = Data()

End Function

摘自：网络整理

---

相关文章参考1：

---

☆VB 二进制文件的操作

☆进制转化进10进制数

☆VB 二进制文件的操作

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

---

相关文章参考2：

※VB SendMessage向其他程序窗口发送字符串消息实例

※VB 二进制数组与十六进制字符串相互转换

※VB 汉字字符串转换成拼音

※VB查找替代字符串的函数

※VB中字符串匹配的多种方式

※vb 字符串转为数字和判断字符串是否是数字字符串【转】

※查找替代字符串的函数

※VB中使用