Am 27.09.2006 um 20:59 schrieb Stefan Mettenbrink:
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
Der Code ist nicht gut....
Ende = Ubound(Zeilen)
for i=Ende DownTo 0
if InStr(Zeilen(i),EditField1.Text)>0 then s.Append Zeilen(i)
next
das sollte gehörig was bringen...
Ob das permanente Auslesen aus dem Editfield gut ist oder lieber eine
variable verwendet werden sollte, müsste getestete werden.
Das dauert aber deutlich zu lange. Akzeptabel wären ca. 2 Sekunden.
Hat jemand einen Tipp, wie ich das schneller löse?
MfG, Metti.
Claudius
--
iMac CD 2GHz / MacOS X 10.4de / RB 2006r3/ Valentina 2.4.2
Homepage http://www.ClaSai.de
iChat ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]
|