Bestimmte Zeichen aus einer Textdatei entfernen

[taaktaak]

Moin, Moin,

hier mal ein Beispiel:

Delphi-Quellcode:

procedure Tfo~~.Button1Click(Sender: TObject);
var ListBuf : TStringList;
begin
  ListBuf:=TStringList.Create;
  try
    ListBuf.LoadFromFile('dein datei name');
    ListBuf.Text:=StringReplace(ListBuf.Text,'suchtext','ersetzentext',[rfReplaceAll]);
    //RichEdit1.Lines.Assign(ListBuf); // falls du es vorher noch mal anschauen möchtest
    ListBuf.SaveToFile('dein datei name');
  finally
    ListBuf.Free;
    end;
end;