Textdatei lesen und Inhalt in neuer abspeichern

[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.

[MutterGans]

Dsa ich bei Delphi n absoluter Neuling bin, wäre es nett wenn jemand mir nen Beispiel-Code hier rein stellen könnte!
Wie der Code so ungefähr gegliedert werden muss, welche Variablen ich dazu noch brauche usw.

[stahli]

Du könntest zwei Memos verwenden.
Mit Memo1.LoadFromFile kannst Du eine Datei laden.
Dann kannst Du per Memo1.Lines[X] bestimmte Zeilen in Memo2.Linies kopieren und dann mit Memo2.SaveToFile den neuen Text speichern.

Das ist ein einfacher Weg, aber für den Anfang m.E. nicht falsch.

[mkinzler]

Stringlist:

Delphi-Quellcode:

var
 sl: TStrings;
...
begin
    sl := TStringList.Create;
    sl.LoadFromFile( '<Quelldatei>');
    ... 
    sl.SaveToFile( 'Zieldatei>');
   ...
end;

I/O Routinen:

Delphi-Quellcode:

var
  tfQuelle, tfZiel: TextFile;
  s: string;
...
begin
    AssignFile( tfQuelle, '<Quelldatei>');  
    AssignFile( tfZiel, '<Zieldatei>');
    Reset( tfQuelle); //Öffnet zum Lesen
    Rewrite( tfZiel); //Öffnet zum Schreiben
    s := Readln( tf); //Liest eine Zeile ein
    Writeln (tfZiel, s); //Schreibt eine Zeile
    ...
    CloseFile( tfZiel);
    CloseFile( tgQuelle);
end;

[MutterGans]

Vielen Dank schonmal...
ich habe jetzt gerade mal versucht das einzubauen... Leider kommt bei dieser Zeile :" s := Readln(tfQuelle); //Liest eine Zeile ein" noch diese Fehlermeldung :"[Pascal Error] Unit1.pas(39): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter'"!!!

[DeddyH]

Markus hat das so wie ich aus dem Kopf getippt und sich dabei wohl vertan. Schau doch einfach in die Hilfe, wie ReadLn aufzurufen ist (ich glaube, ich habe das richtig gemacht, bin aber auch nicht sicher).

[DeddyH]

Aus dem Kopf getippt und ohne jegliche Fehlerbehandlung:

Delphi-Quellcode:

procedure KopiereZeilen(const Quelle, Ziel: string; Anzahl: Cardinal);
var
  Src, Dest: TextFile;
  Zeile: Cardinal;
  Inhalt: string;
begin
  AssignFile(Src, Quelle);
  AssignFile(Dest, Ziel);
  Reset(Quelle);
  Rewrite(Ziel);
  Zeile := 0;
  while (Zeile < Anzahl) and not EOF(Src) do
    begin
      ReadLn(Src, Inhalt);
      WriteLn(Dest, Inhalt);
      inc(Zeile);
    end;
  CloseFile(Src);
  CloseFile(Dest);
end;