Binärdaten lesen und darstellen
Thomas
ich möchte eine einfache Binärdatei öffnen, also keine Textdatei, sondern eine Datei, die alle ASCII-Zeichen von 0-255 enthalten kann. Diese Datei ist immer 2048 Byte groß. Jedes byte soll in eine Zelle hinein.
Irgendwie klappt das aber nicht so recht, hier mein bisheriger Code:
Public Sub ReadDataBinary()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Dim strEEP As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("Example.bin", ForReading)
strEEP = f.ReadAll
f.Close
Dim arrEEP() As Variant
ReDim arrEEP(127, 15)
For y = 0 To 127
For x = 0 To 15
arrEEP(y, x) = Asc(Mid(strEEP, x + y + 1, 1))
Next
Next
[C2].Resize(128, 16) = arrEEP
End Sub
Das Problem ist nun, dass er die ersten Zellen zwar richtig befüllt, aber sich "verrennt", sobald er in der Datei auf die erste "0x00" stößt, was ja normalerweise ein String-Ende darstellt.
Wie kann ich dies umgehen?
Danke schonmal,
Gruß Thomas