string - バイト配列の 16 進文字列を取得します

Question

VB6 で、バイト配列の文字列表現を取得する方法はありますか? sys.fn_varbintohexstrSQLサーバーに相当するものが必要です。ばかげた質問で申し訳ありませんが、私の 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