Binäre Datei einlesen, String anhängen, wieder abspeichern

[Delle]

Okay das macht man sicher mit OpenFile() ... und wie weiter?

Eine Schleife mit Read...(), aber welches genau für binäre Daten?

Vermisse so eine einfache Funktion wie in PHP:

$inhalt = implode("",file($datei));

[Icke]

Ein kleines Beispiel. Ich hab eine JPG mal erweitert, das Ergebnis bleibt weiterhin ohne irgendwelche Symptome ausführbar...

Code: Alles auswählen

ReadFile(0,"d:\1.jpg")
CreateFile(1,"d:\2.jpg")

Repeat
  
  UseFile(0)
  a=ReadByte()
  
  UseFile(1)
  WriteByte(a)
  
Until Eof(0)


a$="--- Das hängen wir dran ---"

Repeat
  
  zaehler+1
  
  a=Asc(Mid(a$,zaehler,1))
  
  WriteByte(a)
  
Until a=0

CloseFile(0)

CloseFile(1)

Danach die Ergebnisdatei einfach mal mit Hex oder Texteditor öffnen und ans Ende schaun.

.

[Batze]

Es gibt doch FileSeek() !
Warum so umständlich?

Code: Alles auswählen

OpenFile(0,"d:\1.jpg")
FileSeek(Lof())

a$="--- Das hängen wir dran ---"
WriteString(a$)

CloseFile(0) 

Edit: Wie bin ich nur auf Lof()-1 gekommen?

[ts-soft]

>> FileSeek(Lof()-1)

Warum -1, Sicher ??

[Deeem2031]

Also ich hab auch immer FileSeek(Lof()) benutzt (also ohne -1).
Ist meiner Meinung nach auch richtig. Wenn eine Datei 1 Byte groß ist und man ans Ende springen will, springt man an Stelle 1 und nicht 1-1 (0 ), das wär ja das eine Byte was am Anfang steht.

[ts-soft]

Also ich hab auch immer FileSeek(Lof()) benutzt (also ohne -1).
Ist meiner Meinung nach auch richtig. Wenn eine Datei 1 Byte groß ist und man ans Ende springen will, springt man an Stelle 1 und nicht 1-1 (0 ), das wär ja das eine Byte was am Anfang steht.

Danke, so mach ich es auch , wollte mich nur vergewissern

[redacid]

Es gibt doch auch eof() (End of file), oder irre ich mich da? Wäre noch etwas eleganter, wie ich finde

[ts-soft]

Es gibt doch auch eof() (End of file), oder irre ich mich da? Wäre noch etwas eleganter, wie ich finde

EOF ist doch nur ein Flag, das #True ergibt wenn du das ende erreicht hast, du muß also durch die ganze Datei iterieren, was natürlich dauert. Zum anhängen von Daten wäre das umständlich und langsam

Nachtrag: ts-soft wahr 60 sekunden schneller als der düstere Drachen

[DarkDragon]

Es gibt doch auch eof() (End of file), oder irre ich mich da? Wäre noch etwas eleganter, wie ich finde

Das ist aber nur zum rausfinden, ob die aktuelle Position dem End of File entspricht. Deswegen hat ja die Diskussion angefangen . FileSeek(Lof()) so mach ich das auch immer, wenn ich ans Ende will.

[redacid]

oh Mist, ich dachte, ich hätte im Hinterkopf, dass EOF() ein normaler Befehl ist, um eben an das Ende einer Datei zu hüpfen. Das kommt davon, wenn man seit Ewigkeiten nichts mehr programmiert hat...