Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Bestimmte Zeichen aus einer Textdatei entfernen (https://www.delphipraxis.net/108605-bestimmte-zeichen-aus-einer-textdatei-entfernen.html)

gene 16. Feb 2008 12:04


Bestimmte Zeichen aus einer Textdatei entfernen
 
Hallo.

Ich versuche mich gerade an einer Schleife die einen bestimmten String aus einer Textdatei entfernt.

also Inhalt zB.:

haha1;;
hah2;;
hallo;;

Also eine Schleife die alle ; (semicolons) aus der textdatei entfernt.

theoretisch weis ich wie es geht:

Die Schleife die Datei durchlaufen lassen und alle ; löschen.

Aber praktisch komm ich nicht weiter ;/

pilic 16. Feb 2008 12:05

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
ICh würde die Textdatei in eine StringList laden.

Franzelchen 16. Feb 2008 12:10

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
Sieh dir mal StringReplace an.

gene 16. Feb 2008 12:19

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
Zitat:

Zitat von Franzelchen
Sieh dir mal StringReplace an.

ich will den String löschen, nicht ersetzen. Ja ich könnte ihn durch ein Leerzeichen ersetzen und dann mit trim() alle Leerzeichen entfernen aber gerade elegant ist das nicht =(.



Zitat:

Zitat von pilic
ICh würde die Textdatei in eine StringList laden.

Ja hast Recht aber die Schleife krieg ich trotzdem nicht hin.

lbccaleb 16. Feb 2008 12:21

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
bei stringreplace kannst du auch nichts angeben, also auch ohne leerzeichen... dann wird einfach das zeichen entfernt..

taaktaak 16. Feb 2008 12:37

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
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;

Franzelchen 16. Feb 2008 12:41

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
StringReplace(altes Zeichen, neues Zeichen)

bei Dir

StringReplace( ';','')

Sieh Dir die Delphi Hilfe wegen der Syntax nochmal an.

gene 16. Feb 2008 13:46

Re: Bestimmte Zeichen aus einer Textdatei entfernen
 
Danke taaktaak hat super funktioniert!

Danke auch dem Rest!


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz