Bestimmten Text unter eine bestimmte Zeile einer Textdatei

[himitsu]

Dann mußt du eben die Zeile erstmal suchen und dann in der nachfolgenden Zeile ein Insert ausführen.

Wenn du die komplette Zeile kennst, dann wäre SL.IndexOf eine Lösung.

Delphi-Quellcode:

i := SL.IndexOf('abc');
SL.Insert(i + 1, 'xyz);

[Ghostleader]

Gut, danke ich probiers gleich aus

Edit: Hat leider nicht geklappt.

[DeddyH]

Hast Du Dir einmal angesehen, was IndexOf macht? Ich vermute, Du suchst nur nach einem Teilstring oder etwas in der Art, deshalb findet IndexOf nichts. Aber das sind alles nur Vermutungen, da Du ja nicht mit Infos herausrückst ("klappt nicht" gilt nicht als Info).

[Ghostleader]

Ich kann leider keine Informationen nennen wenn das Ergebnis von IndexOf = nichts war.
Aber, dass Problem hat sich jetzt erledigt. Ich habe eine andere Möglichkeit gefunden es zu lösen.
Danke für die hilfreichen Antworten.

Mfg Ghost

[Luciano]

Hallo zusammen,

ich hatte so ein ähnliches Problem. Ich hatte es wie folgt gelöst:

Die Zeile aus dem Memo ist je bekannt, bzw. wo es in die Textdatei rein geschrieben werden soll.

Es gibt einmal Pos und PosEx. Ich hatte die die Zeile der Textdatei herausgesucht und dann noch einmal zum nächsten Zeilenumbruch gesucht. Nach diesem Zeilenumbruch hatte ich dann die Zeile eingefügt.

So ähnlich sieht es bei mir aus. Das soll nur den Weg zeigen, wie ich es bei mir gelöst habe. Vor allem ist meine Textdatei nur 10 Zeilen lang ohne viel Inhalt.

Delphi-Quellcode:

SL.LoadFromFile(GetCurrentDir + PathDelim + cfg);
s := SL.Text;
ipos := Pos('Contact', s);
i2 := PosEx(#13#10, s, ipos);
i2 := i2+1;
s2 := copy(s,0, i2);  //Den Text bis zur Position an der eingefügt werden soll in s2 schieben
Insert('PUTSERIAL '+StartingHexAdress + ' ' +NewSn+ #13#10, s2, i2); 
SL.Text := s2;
SL.SaveToFile(GetCurrentDir + PathDelim + cfg);

Gruß
Mike

//Oh... das war ja schon erledigt...?!