Suchfunktion

[Roper]

Also ich hab jetzt dank einiger hilfreicher Threads hier im Forum eine Suchfunktion programmiert

suche = InStr(tfhaupt.Text, "test")
tfhaupt.SelStart = suche - 1
tfhaupt.SelLength = Len("test")

Im Textfeld "tfhaupt" wird nach dem String "test" gesucht (Wird später noch durch eine Benutzereingabe ersetzt)

In der Variable "suche" wird dann ja gespeichert wo der String im Textfeld beginnt.
Den markiere ich dann.

Mein Problem ist jetzt folgendes:
Ich will dass der Benutzer durch erneutes drücken auf einen "Suchen" - Button den Text weiter durchsuchen kann.
Denn ein String kann ja auch öfter auftauchen.

Kann ich eine Suche auch erst ab dem aktuellen Fokus starten oder welche Lösung gibt es?

 

[Elvan]

Vom Prinzip her, brauchst Du nur ab der Vari. "suche" + tfhaupt.selLength weiter suchen.
Also:

lNextPos = InStr(such + tfhaupt.selLength, tfhaupt.Text, "test")

Du solltest aber den Suchtext auf >3 oder 4 beschränken. ;-)

 

[Roper]

Funktioniert. Danke