string - 获取字节数组的十六进制字符串

Question

在VB6中，有没有办法获得字节数组的字符串表示？sys.fn_varbintohexstr我需要在 SQL Server 中的等价物。如果这是一个愚蠢的问题，我很抱歉，但我的 VB6 ......不是很好......帮助？

Answer 1

这是我在另一个站点找到的功能：

Function ByteArrayToHexStr(b() As Byte) As String
   Dim n As Long, i As Long

   ByteArrayToHexStr = Space$(3 * (UBound(b) - LBound(b)) + 2)
   n = 1
   For i = LBound(b) To UBound(b)
      Mid$(ByteArrayToHexStr, n, 2) = Right$("00" & Hex$(b(i)), 2)
      n = n + 3
   Next
End Function