Entwickler-Ecke
Sonstiges (Delphi) - String suchen und Rest der Zeile auslesen ?
Blackheart - Sa 26.02.05 15:19
Titel: String suchen und Rest der Zeile auslesen ?
Hallo Leute
Ich möchte gern nach einem gefundenen String in einem RichEdit den Rest der Zeile in einen String einlesen etwas zufügen und den String dann an die gleiche Stelle zurückschreiben.
Bsp. Erste Zeile
Zweite Zeile // Alter String
Dritte Zeile
Vierte Zeile // Alter String bla
Erste Zeile
Zweite Zeile // (Das ist) Alter String (OK !)
Dritte Zeile
Vierte Zeile // (Das ist) Alter String bla (OK !)
Also Der Such String wäre //
Alter String wäre Alter String
und der Rest vor und dahinter wäre angefügt
Den String // zu finden ist nicht das Problem nur weiß ich ja voher nicht in welchen Zeilen er sich befindet.
Wie kann ich das am besten angehen ?
Delete - Sa 26.02.05 15:29
durchsuch doch einfach alle Zeilen
Delphi-Quelltext
1: 2: 3:
| for n := 0 To richedit1.lines.count-1 do if pos('//',richedit1.lines[n]) > 0 then |
Blackheart - Sa 26.02.05 16:15
Ja das ist Klar
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| procedure TForm1.Button1Click(Sender: TObject); var i:Integer; Suche:String; begin Suche:='//'; for i:=0 to RichEdit1.lines.count-1 do if pos(Suche,RichEdit1.lines[i])>0 then RichEdit1.Lines.Add(Suche+'Alter Sting');
end; end. |
Dann hab ich den Alten String gefunden aber jetzt müsste ich den String nach // auslesen bis zum Zeilenende. zwischenspeichern und hinter Suche+'Alter Sting' einfügen und das ist mein Problem !
Moderiert von
raziel: Delphi-Tags hinzugefügt.
Delete - Sa 26.02.05 16:41
benutze den copy befehl:
Delphi-Quelltext
1:
| stringvar := Copy(stringvar, 1 , 10 ); |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!