Stringsuche

[Stefan Mettenbrink <S dot Metti at gmx dot de>]

Ich suche eine möglichst schnelle Stringsuche. Gefunden habe ich
bisher "Micono InStr" und im MBS-Plugin ist auch eine schnelle Varianten
von Instr. Allerdings komme ich damit nicht zurecht.

Ich habe ein Stringarray (gut 200.000 Strings) und ein Editfield mit dem
Suchtext. Es reicht mir, die Strings zu finden, die den Text enthalten.
Ich habe das so gelöst:

 for i=UBound(Zeilen) DownTo 0
   if InStr(Zeilen(i),EditField1.Text)>0 then s.Append Zeilen(i)
 next

Das dauert aber deutlich zu lange. Akzeptabel wären ca. 2 Sekunden.
Hat jemand einen Tipp, wie ich das schneller löse?

MfG, Metti.