Textdatei lesen und Inhalt in neuer abspeichern

[MutterGans]

Hallo,

ich würde gerne aus einer bereits bestehenden Textdatei auf meinem PC, per Delphi, eine bestimmte Anzahl an Zeilen auslesen und diesen Inhalt in eine neue Textdatei speichern. Ich hab mir schon ein paar Gedanken gemacht aber nie wirklich einen ansatz gefunden der mich zu Ansätzen bringt. Vielleicht kann man die Anzahl der Zeilen mit einer for-Schleife festlegen?!?

[ensaron]

Such mal in der Delphi Hilfe nach "Standardroutinen Eingabe - Ausgabe"

Und ja, das Auslesen einer bestimmten Anzahl von Zeilen kannst du über eine for-Schleife umsetzen.

[DeddyH]

Hallo und Willkommen in der DP ,

Du könntest die Datei im Ganzen in einer TStringlist einlesen, alle Zeilen ab X daraus löschen und anschließend die Stringliste wieder abspeichern oder Du nimmst die "alten" Routinen AssignFile, Reset, Rewrite, WriteLn, ReadLn und CloseFile, um zeilenweise zu lesen und zu schreiben.

[MutterGans]

Hallo DeddyH,

ich hab das schonmal mit den alten Routinen versucht hat aber nicht so geklappt! Ich weiß nicht wie ich mich bei dem einlesen eine bestimmte textdatei auswählen kann auf die er sich bezieht!
Hat vielleicht jemand n kleines Beispiel für mich? Vielleicht n paar Zeilen wie das aussehen könnte?!

[DeddyH]

Den Namen der Datei gibst Du bei AssignFile als 2. Parameter an. Du musst also 2 mal AssignFile aufrufen, einmal für die Quell- und einmal für die Zieldatei. Dann wird die Quelldatei zum Lesen, die Zieldatei zum Schreiben geöffnet (Reset bzw. Rewrite). Nun noch Zeile aus Quelle lesen (ReadLn) und in Ziel schreiben (WriteLn). Zum Schluss beide wieder schließen (CloseFile). Dazu noch ein wenig Fehlerbehandlung und fertig.

[mkinzler]

Besser wäre es aber die Funktionlität von Stringlisten (LoadFromFile, SaveToFile) zu verwenden.

[DeddyH]

Kommt darauf an. Wenn ich von einer 1 GB-Textdatei nur 2 Zeilen brauche (z.B. 80 Byte), dann wäre es ja Blödsinn, sie erst komplett in eine Stringliste zu laden.