Das deutsche QBasic- und FreeBASIC-Forum

[Type]

Hallo Leute,

ich hab ein Programm geschrieben, welches eine Datei kopieren soll. (Kopierroutine hab ich aus der QBMonFaq )
- Klappt soweit ganz gut.
Wenn die Datei aber schon existiert soll sie allerdings aktualisiert werden.

Also wollte ich den Datensatz aus der Quell-Datei und der Zieldatei auslesen, ihn vergleichen und wenn er anders ist, den Quell-Datensatz in die Ziel-Datei an dem jeweiligen Punkt einfügen.
Leider macht FreeBasic das nicht. Er erkennt zwar, dass die Datensätze verschieden sind, aber es erfolgt kein Schreib-Zugriff.
Existiert die Datei hingegen gar nicht, wird sie Problemlos kopiert.
Kann es sein, das man bestehende Datensätze in einer Datei nicht ändern kann?

Ich möchte nicht die gesammte Datei noch einmal komplett kopieren und die alte ersetzen!

[volta]

Hi,
ich vermute deine Dateien sind kleiner als 128kByte?
Dann wird hier

[Type]

Hallo,

Alles klar, jetzt geht es.
Allerdings eröffnen sich mir gerade neue Probleme:

Dadurch das man ja alle Dateien kopieren können soll (also auch sehr kleine) habe ich zwischen den beiden Open-Befehlen noch eine Abfrage gesetzt, die den Puffer gegebenenfalls verkleinern soll.


Code:

OPEN Dat1 FOR BINARY ACCESS READ LOCK WRITE AS #1       IF LOF(1) < teil THEN teil = LOF(1)       OPEN Dat2 FOR BINARY ACCESS READ WRITE LOCK READ WRITE AS #2


Aber irgendwie hat es keinen Effekt. - Ich weis nicht, ob es für die Performance klug ist, ab 128KB alles byteweise zu kopieren. - also z.B. mit:

Code:

IF LOF(1) < teil THEN teil = 1


- was aber Funktioniert

Das nächste Problem ist, dass es zu Fehlern kommt, wenn die Blöcke am Ende ungleich groß sind. (Wenn also die Quell-Datei größer oder kleiner ist, als die Zieldatei.)
Ist die Quelle größer als das Ziel, so wird mit der PUT-Anweisung nichts geschrieben.
Ist die Quell-Datei kleiner, so müsste man den Rest vom Ziel abschneiden. -> wie geht das!?

Danke schonmal für eure Mühe!
MfG Type