[SOLVED] Dateien in Binären Code umwandeln
Verfasst: 19.02.2013 21:51
Hat jemand eine Ahnung wie ich das anstellen kann?
mfg R3booz
mfg R3booz
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
jede Datei besteht aus Nullen und Einsen.R3booz hat geschrieben:Jede Datei egal welches Format einfach in 01001001 11010110
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