[SOLVED] Dateien in Binären Code umwandeln

[R3booz]

Hat jemand eine Ahnung wie ich das anstellen kann?

mfg R3booz

[ts-soft]

Wenn Du uns erklären würdest, was Du damit meinst?
Welche Dateien in welchem Format, sollen in welches Format gewandelt werden?

[R3booz]

Jede Datei egal welches Format einfach in 01001001 11010110
einfach nur so nichts kompliziertes

[ts-soft]

Also als Textformat mit lauter einsen und nullen?

[Kiffi]

Jede Datei egal welches Format einfach in 01001001 11010110

jede Datei besteht aus Nullen und Einsen.

Grüße ... Kiffi

[Falko]

Vielleicht sowas (Wie Thomas schon geschrieben hatte) als Textdatei??

Code: Alles auswählen

Dateiname$=OpenFileRequester("Change2Bin","*.*","*.*",1)
CreateFile(1,Dateiname$+".txt")
If ReadFile(0, Dateiname$)   ; wenn die Datei geöffnet werden konnte, setzen wir fort...
    While Eof(0) = 0           ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
      Datas$=Bin(ReadByte(0),#PB_Ascii)
      WriteString(1,Datas$)      ; Zeile für Zeile im Debugger-Fenster anzeigen)
    Wend
    CloseFile(0)               ; schließen der zuvor geöffneten Datei
  Else
    MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf

[R3booz]

Tut mir leid das ich so spät antworte aber hat sich schon erledigt

mfg R3booz

PS: Wär genau das was ich gesucht habe