Rich Edit/löschen von Zeilen

[LeXx]

Hallo Leute ..

Ich habe ca. 3.500 Textdateien, alle unterschiedlich groß, und in jeder Datei soll die letzte Zeile gelöscht werden.

Ich möchte mir ein Programm machen,das diese Dateien nacheinander in ein Richedit einliest,die Zeile löscht und neu speichert.

Mein Problem,

wie automatisiere ich das löschen der letzten Zeile ??

Danke für jeden Schippsel Code...

Der Verzweifelnde

Lexx

[nailor]

Mein Problem: Wenn es Textdateien sind, wozu dann der Weg über ein RichEdit?

[Christian Seehase]

Moin Lexx,

erst einmal herzlich willkommen.

Das ganze dürfte, wie Nailor schon so richtig bemerkte, auch ganz gut ohne RichEdit funktionieren.
Allerdings bietet es sich aus Gründen der Einfachheit an das Ganze mit einer TStringList zu lösen.
Diese beinhalten die Methode LoadFromFile, mit der Du dann auf einen Rutsch jeweils eine ganze Textdatei laden kannst (bzw. SaveToFile um sie wieder zu speichern).

Nach dem Laden dann einfach die letzte Zeile (Index ist Count-1) mit der Methode Delete löschen und wieder wegspeichern.

Reicht Dir diese Variante? Das dürfte nämlich mit der Zeit, auch in Abhängigkeit der Grösse der Dateien, ziemlich langsam werden.

[RomanK]

Also hier mal die Umsetzung von Christians Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
str:TStringList;
begin
str:= TStringlist.Create;
str.LoadFromFile('C:\test.txt');
str.Delete(str.Count-1);
str.SaveToFile('C:\test.txt');
str.Free;
end;

[LeXx]

Tausend Dank für die schnellen Antworten !!

Das Richedit hatte Ich benutzt,weil noch einige unerwünschte Zeichen aus den Texten entfernt werden sollten. Klappte auch alles ganz gut
bis auf halt die letzte Zeile..

Zitat:

str.Delete(str.Count-1);

Diese Zauberformel bewahrt mich vor tagelanger Plagerei ...

:hello:

Mfg

Lexx