vbscript序列化整数到字节数组

Question

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

Answer 1

你走了：

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

以下是讨论它的另一个主题：

Read and write binary file in 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