Wie erstellen BinaryArray in VbScript?

Ich manuell ausführen möchten, erstellen Sie eine binäre Skript und speichern es dann als Binär-Datei.

Möchte ich anfügen, alle folgenden bytes an und erstellen Sie eine binäre Datei aus.

&HF0
&HF1
&HF2

Möchte ich in der Lage, so etwas zu tun :

Dim generateData(3) As Byte
generateData(0) = &HFF
generateData(1) = &HFE
generateData(2) = &HFC

Aber offensichtlich Als Byte funktioniert nicht auf Vbscript. Ich nutze die folgende Funktion zu schreiben, Binär-array auf der Festplatte (zumindest werde ich, wenn ich in der Lage, erstellen Sie ein binäres array)

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2

  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")

  'Specify stream type - we want To save binary data.
  BinaryStream.Type = adTypeBinary

  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.Write ByteArray

  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

InformationsquelleAutor dr. evil | 2009-02-13

  1. 1

    Habe ich gesehen, etwas entlang diesen Linien verwendet:

    Sub WriteBinary(FileName, Buf)  

    Dim I, aBuf, Size, bStream  

    Size = UBound(Buf): ReDim aBuf(Size \ 2)  

    For I = 0 To Size - 1 Step 2  

        aBuf(I \ 2) = ChrW(Buf(I + 1) * 256 + Buf(I))  

    Next  

    If I = Size Then aBuf(I \ 2) = ChrW(Buf(I))  

    aBuf=Join(aBuf, "")  

    Set bStream = CreateObject("ADODB.Stream")  

    bStream.Type = 1: bStream.Open  

    With CreateObject("ADODB.Stream")  

        .Type = 2 : .Open: .WriteText aBuf  

        .Position = 2: .CopyTo bStream: .Close  

    End With  

    bStream.SaveToFile FileName, 2: bStream.Close  

    Set bStream = Nothing  

End Sub
    Genau das, was ich gesucht habe! Cheers

    InformationsquelleAutor Mitch Wheat

Schreibe einen Kommentar