arrays - vbscript 将整数序列化为字节数组

Question

我想将一个数字的 vbscript 变量的内容写入二进制文件。有没有办法将二进制表示作为字节数组访问？（整数，浮点数等）。我一直在尝试玩：Adodb.recordset 对象，附加一个数字字段然后读取它，但它没有用。

Answer 1

干得好：

http://www.motobit.com/tips/detpg_binarytostring/

这是另一个讨论它的线程：

在VBscript中读写二进制文件

intYourVar = 255
hexYourVar = HEX(intYourVar)
binYourVar = MultiByteToBinary(hexYourVar)

Function MultiByteToBinary(MultiByte)
  ' 2000 Antonin Foller, http://www.motobit.com
  ' MultiByteToBinary converts multibyte string To real binary data (VT_UI1 | VT_ARRAY)
  ' Using recordset
  Dim RS, LMultiByte, Binary
  Const adLongVarBinary = 205
  Set RS = CreateObject("ADODB.Recordset")
  LMultiByte = LenB(MultiByte)
  If LMultiByte>0 Then
    RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
    RS.Open
    RS.AddNew
      RS("mBinary").AppendChunk MultiByte & ChrB(0)
    RS.Update
    Binary = RS("mBinary").GetChunk(LMultiByte)
  End If
  MultiByteToBinary = Binary
End Function