Einzelnen Beitrag anzeigen

Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Alles in einer *.txt NACH einem bestimmten Satz löschen

  Alt 9. Okt 2005, 09:42
Nimm dir eine Textfile-Variable und kopiere die Zeilen per Readln(Original,str) und writeln(Kopie,str) rüber. Zwischen Lesen und schreiben kontrollierst du immer, ob pos('- Last updated',str)>0. Wenn das der Fall ist, wurde dieser String in der Zeile gefunden und du brichst die Schleife per Break ab.
Danach löschst du das Original und speicherst die neue Datei unter dem Namen ab.

Delphi-Quellcode:
Newfile: Textfile;

// Original öffnen

While not EOF(Original) do
begin
 readln(Original,str);
 if pos('- Last updated',str)>0 then break;
 writeln(Newfile,str);
end;

// Original schließen und löschen
// Neue Datei speichern.
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat