Binärdatei einlesen und in Bin umwandeln...

[funkheld]

Hallo, guten Tag.
Ich möchte bitte eine Binär-Datei auslesen und in Bin umwandeln und als Text abspeichern.

So wird es abgespeichert als Textdatei:
----------------------
00000000
00000001
00000010
11111111
10000001
------------------------

Wie funktioniert das? Es müssen immer 8 Stellen sein.

So in etwa lese ich ein!
wert=ReadByte(0)
WriteString (1,.... )

Danke.
Gruss

[ts-soft]

Code: Alles auswählen

EnableExplicit

Define File.s = "c:\bla.bin"
Define Text.s = "c:\bla.txt"
Define value.a

If ReadFile(0, File)
  If CreateFile(1, Text)
    While Not Eof(0)
      value = ReadAsciiCharacter(0)
      WriteStringN(1, RSet(Bin(value, #PB_Ascii), 8, "0"))
    Wend
    CloseFile(1)
  EndIf
  CloseFile(0)
EndIf

Aber bedenke, die "Bin" Datei wird sehr gross!

[funkheld]

Jup,danke für deine Hilfe.

Gruss