Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Veränderungen Textdateien

  Alt 26. Jul 2004, 10:41
Zitat von Sunny123:
stimmt...

aber wie kann ich ihm sagen, dass er gerade in zeile so und so das und das ändern soll? vielleicht steht das schon indirekt drin und ich bin nur zu blöd das richtig zu finden... Ich hab irgendwie ein Zeilenauffindproblem....
Hai Sunny,

entscheidend sind diese Zeilen:
Delphi-Quellcode:
....
    for ndx := 0 to myStringList.Count -1 do
    begin
      line := myStringList.Strings[ndx];
      delpos := Pos(delimiter,line); // Position des Trennzeichens
      Delete (line,1,delpos); // Alles bis einschliesslich Trennzeichen löschen
      myStringList.Strings[ndx] := IntToStr (ndx) + delimiter + line; // Neue Zeilennummer
    end;
....
In der Zeile mit delpos wird die erste Position des Trennzeichens ermittelt.
Mit Delete wird alles bis zu diesem gelöscht. So, genau da musst Du ansetzen. Du löschst jetzt nicht vom Zeilenanfang bis zu dem Trennzeichen sondern vergleichst ob der Text von Position 1 bis Position Trennezeichen -1 deinem Suchtext enstpricht (Stichwort hier für ist Copy. Wenn dies zutrifft hängst Du an den Text in line deinen neuen Text an und schreibst ihn wieder in die Aktuelle Zeile der StringListe.

Versuche mal ob Du damit weiterkommst. Wenn nicht -> Fragen
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat