Memo/Richedit durchsuchen & kopieren

[Counter909]

Moin

also ich bin gerade an so einem kleinem Programm, was am Ende können sollte:
ich schreibe einen Text in einem Richedit Feld oder kann eine .txt mit einem Button laden, das funktioniert auch alles soweit (auch nicht weiter schwer ).
Sagen wir, ich habe jetzt einen Text, der ca 4 Seiten oder so ist und nun möchte ich in einem Edit-Feld zum Beispiel ein Wort eingeben und das sucht er dann in dem text und kopiert es anschließend auch, sodass das kopierte in eine neue Tstringlist eingefügt wird und abgespeichert werden kann ( das ist dann ja auch wieder recht einfach).


Also mir gehts eigentlich nur ums suchen bzw. das Gesuchte kopieren. Ist es einfacher in dem Richedit selber zu suchen oder die .txt zu durchsuchen ?


mfg
counter

[LordPsychoter]

Die Suche hilft manchmal..

Klick mich

[RavenIV]

Du kannst auf den Text per TRichEdit.Lines.Text zugreifen.
Dann ist der Text als ein String repräsentiert.
Darin kannst Du mit Pos pder PosEx oder StrPos nach dem Wort suchen.
Oder Du benutzt eine andere Funktion aus der Kategorie String-Verarbeitung.

[p80286]

Hallo Counter909,

warum willst Du ein Wort was in einem Edit-Feld steht in einem anderen (Text-)Feld suchen, und dann, wenn es da sein sollte, aus diesem Text-Feld heraus in eine Stringliste kopieren?

Nimm doch einfach den Inhalt des Edit-Feldes und pack ihn in Deine Stringliste wenn Du das Wort gefunden hast.
Der Unterschied ist nicht so groß bei 4 Seiten aber wenn's mehr wird ...

Gruß
K-H

[Counter909]

ne also ich will in einem edit Feld ein wort eingeben, das ich suche und in einem zweiten Feld die Anzahl der Zeile nach dem wort... sodass die dann herauskopiert werden und einer neuen stringlist hinzugefügt werden

[Blackheart]

Zitat von Counter909:

ne also ich will in einem edit Feld ein wort eingeben, das ich suche und in einem zweiten Feld die Anzahl der Zeile nach dem wort... sodass die dann herauskopiert werden und einer neuen stringlist hinzugefügt werden

Damit sind nun endgültig alle Klarheiten beseitigt !

[Counter909]

also das ist hier zum beispiel ein Text: (nachrichten )

Zitat:

Alle 73.000 Mitarbeiter des Münchner Autokonzerns BMW erhalten dieses Jahr die bislang höchste Gewinnbeteiligung. Durchschnittlich kassieren sie eine Prämie von 5.600 Euro.
Auf der Hauptversammlung des weiß-blauen Autobauers wurden auch die Aktionäre mit 1,06 Euro pro Stammaktie bedacht. Niedrigere Gewinne habe BMW im größten Absatzmarkt USA hinnehmen müssen. Dort haben sich durch den Dollar-Verfall 40 Prozent an Ertragseinbußen für den Autokonzern ergeben.
Der Vorstandsboss Norbert Reithofer erwartet dennoch für das laufende Jahr neuerliche Absatzrekordzahlen für alle Modelle und Marken. Im US-Fertigungswerk Spartanburg (South Carolina) sollen jährlich künftig 240.000 Autos gebaut werden, gab Reithofer bekannt. Quelle: www.abendzeitung.de

möchte das nur an einem Beispiel etwas deutlicher machen!

jetzt gebe ich im edit Feld zum beispiel das Wort "BMW" ein und im zweiten eine "4" zum Beispiel...dann würde er 4 Zeilen nach dem Wort BMW herauskopieren!

Zitat:

BMW erhalten dieses Jahr die bislang höchste Gewinnbeteiligung. Durchschnittlich kassieren sie eine Prämie von 5.600 Euro.
Auf der Hauptversammlung des weiß-blauen Autobauers wurden auch die Aktionäre mit 1,06 Euro pro Stammaktie bedacht. Niedrigere Gewinne habe BMW im größten Absatzmarkt USA hinnehmen müssen. Dort haben sich durch den Dollar-Verfall 40 Prozent an Ertragseinbußen für den Autokonzern ergeben.

ich hab das bis jetzt nur so, dass ich zwei Wörter eingeben muss: also wo er beginnt zu kopieren und das wort wo er aufhören soll, aber das mit Zeilen finde ich besser, hat vllt einer ein denkanstoß ?

[p80286]

Hallo Counter909,
falls Du übers Wochenende nicht darauf gekommen bist:
Definiere die Zeilenanzahl n,
suche Deine Startzeile,
kopiere sie (ab gefunden pos) in Deine Stringlist
kopiere die nächsten n-1 Zeilen in die Stringlist
fertig!

Gruß K-H

[Counter909]

also ich bin übers Wochenende sehr weit gekommen bzw hab das auch schon gut fertig....aber ich hab es bis jetzt nur so gemacht, dass ein beliebiges Wort gesucht werden kann mit "pos(...)" und in einem weiter Edit-Feld kann man ein Zahl eingeben, die in einer Variable(k) gespeichert wird.

anschließend mache ich Copy(pos('gesuchtewort'..,k)

so funktioniert das ja schonmal ganz gut, aber ich hab es eben noch nicht hinbekommen ,dass ich eine ganze Zeile definieren kann, was vermutlich um einiges einfacher ist, weil die Pos-Werte in die Hunderte gehen!

also wie kann ich eine Zeile definieren ?

[Blackheart]

lines