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

Question

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

Answer 1

这是我在another site找到的一项功能：

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