Hallo ihrs!

Ich habe in einer Textdatei daten abgespeichert in etwa dieser Form:
x|y|z
j|p|g
ding|dong|dang

Nun möchte ich genau in die Zeile gehe, wo beispielsweise x zu beginn steht und dort am ende, also zu z, noch etwas hinzufügen...

Kann mir jemand ein paar kleine Hinweise oder Denktipps geben? Mein Hauptproblem ist derzeit das, dass ich nicht weiß, wie ich die Zeile in der etwas angefügt werden soll suchen lassen kann.

Viele liebe Grüße, Sunny

Hai Sunny,

eigentlich brauchst Du meine Procedure aus diesem Thread doch nur leicht zu ändern um das zu machen. Sollte mit 1-2 Zeilen Code zu machen sein

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....

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:

markieren

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

Also mal wieder ganz dolle großes DANKESCHÖN für die flotte Hilfe !

Habs aber bissl anders gemacht, da ich net nach einem Text suchen musste, sondern mir eigentlich die Zeilennummer gereicht hat. (dank der Nummerierung ) Hab den ndx rausgenommen und stattdessen gleich Edittext als Zeilennummer eintragen lassen und dann daran den Rest gehangen. Bis jetzt klappts gut *freu*!

Noch mal ganz vielen lieben Dank! Sunny