vbscript 将整数序列化为字节数组答案

【问题标题】：vbscript serialize integer to byte arrayvbscript 将整数序列化为字节数组
【发布时间】：2013-05-08 07:26:16
【问题描述】：

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

【问题讨论】：

标签： arrays vbscript byte binaryfiles

【解决方案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

【讨论】：

谢谢。这实际上适用于字符串，但我的号码是用 ASCII 写的。我正在寻找一种方法来获取例如数字 255 的 4 字节二进制数组：0xFF000000
啊，我现在看到了困境。我更新了示例中的代码。