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