n = Ubound(Zeilen)
t = Editfield1.Text
for i=n DownTo 0
if InStr(Zeilen(i),t)>0 then s.Append Zeilen(i)
next
sollte das ganze um ein Vielfaches beschleunigen....
andy
at 27.09.2006 20:59 Uhr, Stefan Mettenbrink wrote:
> 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.
|