Entwickler-Ecke :: Thema anzeigen - Suchen und Ersetzen funktioniert nicht

Danny W. - Fr 03.11.06 12:27

hmm..komischerweise klappt das bei mir jetzt nicht mit dem suchen und ersetzen einer textdatei

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.zeilendeleter;
var i:integer;
liste:TStringList;
begin
  liste := TStringList.Create;
  liste.LoadFromFile('daten\daten.txt');

  for i := 0 to liste.Count - 1 do begin
    if Pos(Substr, liste[i]) = fullstring.caption then
      liste[i] := 'LEER';
  end;
end;

fullstring caption soll gesucht werden und durch 'LEER' ersetzt werden :)

//Offtopic
@jasocul: bist du heute abend auch aufm Taste of Chaos? :)

mfG

jasocul - Fr 03.11.06 12:38

Kann auch nicht funktionieren, da Pos als Ergebnis eine Zahl liefert und Du diese mit einem String vergleichst.

[OT]Keine Ahnung was das ist, aber den Geschmack von Chaos habe ich jedesmal, wenn ich in die Zimmer meine Kinder sehe. :zwinker: [/OT]

Danny W. - Fr 03.11.06 12:57

^^ Kenn ich von meinem kleinen Bruder (3 Jahre alt) ^^

Taste of Chaos ist ein ziemlich lustiges Konzert :) vielleicht aber nichts für einen Mann in deiner Altersklasse *frechwerd* :P

Hmm..stimmt...dafür war pos ja gut *aufdeineseiteguck* ich mach das mal mit stringreplace, dankesehr ;)

mfG

jasocul - Fr 03.11.06 13:07

Mantis1987 hat folgendes geschrieben:

Taste of Chaos ist ein ziemlich lustiges Konzert :) vielleicht aber nichts für einen Mann in deiner Altersklasse *frechwerd* :P

Gaaanz vooorsichtig!! Mein letzte Heavy-Metal-Konzert ist zwar schon 3 oder 4 Jahre her, aber ich fühle mich trotzdem noch nicht zu alt für sowas. Bin halt nur nicht mehr auf dem Laufenden. :wink:

Danny W. - Fr 03.11.06 13:25

Da fühlt sich jemand angegriffen ^^

btw.

mein aktueller code ist jetzt

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.zeilendeleter;
var i:integer;
liste:TStringList;
begin

if zeile_delete = true then
begin
  liste := TStringList.Create;
  liste.LoadFromFile('daten\daten.txt');
        for i := 0 to liste.count-1 do
         memo3.lines.add(liste.strings[i]);

         if fullstring.caption <> '' then
         StringReplace(memo3.text, fullstring.caption, 'LEER', [rfReplaceAll]);
  zeile_delete:=false;
  liste.Text := memo3.text;
  liste.SaveToFile('daten/daten.txt');
end;
end;

und das sollte ja laufen :)

Danny W. - Fr 03.11.06 14:44

in meinem memo3 feld stehen jetz drin:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

03.11.2006,03.11.2006,13:55:00,13:55:30,Bildergalerie.pps
03.11.2006,03.11.2006,13:59:00,13:59:30,Hoffmann.pps
03.11.2006,03.11.2006,13:57:00,13:57:30,Moellering.pps
03.11.2006,03.11.2006,13:58:00,13:58:30,Busemann.pps
03.11.2006,03.11.2006,13:56:00,13:56:30,Citipost.pps
03.11.2006,03.11.2006,13:52:00,13:52:30,Seiters.pps
03.11.2006,03.11.2006,13:53:00,13:53:30,BegrüßungWulff.pps
03.11.2006,03.11.2006,13:54:00,13:54:30,BegrüßmonKult.pps
03.11.2006,03.11.2006,13:51:00,13:51:30,Rotary.pps
03.11.2006,03.11.2006,13:50:00,13:50:30,Querbeet.pps

aber

Delphi-Quelltext

1:	StringReplace(memo3.text, '03.11.2006,03.11.2006,13:55:00,13:55:30,Bildergalerie.pps', 'LEER', [rfReplaceAll]);

funktioniert doch nicht :/

liebe Grüße,
Mantis

JayEff - Fr 03.11.06 14:48

Mantis1987 hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.zeilendeleter;
var i:integer;
liste:TStringList;
begin

if zeile_delete = true then
begin
  liste := TStringList.Create;
  liste.LoadFromFile('daten\daten.txt');
        for i := 0 to liste.count-1 do
         memo3.lines.add(liste.strings[i]);

         if fullstring.caption <> '' then
         Memo3.Text:=StringReplace(memo3.text, fullstring.caption, 'LEER', [rfReplaceAll]);
  zeile_delete:=false;
  liste.Text := memo3.text;
  liste.SaveToFile('daten/daten.txt');
end;
end;

StringReplace ist keine Procedure mit var-Parameter sondern eine Funktion, darum einfach das ge-highlightete hinzufügen ;)

JayEff - Fr 03.11.06 15:28

:!:
/me wirft GTA-Place einen Handschuh ins Gesicht!
/me guckt seeeehr grimmig: GRRRRRRR
Aber lassen wir das OffTopic.
Der selbe Fehler mit StringReplace ist mir auch mal passiert... Tja, da wundert man sich dann erstmal 30 min warum nix passiert... *g*

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!