Suchfunktion schneller machen

[horsthorn]

Hiermit suche ich in der ersten Spalte einen Eintrag
19670 Einträge existieren (im Moment)

PROC PLZ_SUCH_ERGEBNIS
DECLARE meldung&
PARAMETERS sucher$
sucher$=UPPER$(sucher$)
Windowstyle 2
meldung&=CREATE("WINDOW",%HWnd,"Gesucht wird: "+sucher$,(%MaxX/2-135),(%MaxY/2-35),270,85)
txt%=CREATE("TEXT",meldung&,"Bitte warten - \ndas Programm sucht die Eingabe.",10,10,300,60)
SetFont txt%,font1%
anzahl%=GETCOUNT(listview&)
SelectLine(listview&,y&,6)
I%=0:y&=0
DIM bereich#,512
WHILENOT I% = anzahl%
GetItemText(listview&,bereich#,0,y&)
ort$=String$(bereich#,0)
ort$=UPPER$(ort$)
INC y&
INC I%
IF ort$ = sucher$
DesTRoyWindow(meldung&)
SELECTLINE(listview&,0,0)
SELECTLINE(listview&,(y&-1),7)
SELECTSTRING(listview&,-1,sucher$)
BREAK
ENDIF
ENDWHILE
DisPose bereich#
ENDPROC

ca. 6 Sekunden werden gebraucht, wenn ich den letzten Eintrag suchen lasse.
Kann man das auch schneller machen ???

[AHT]

Das kann man über die message LVM_FINDITEM sehr schnell regeln.
Muss gleich zur Arbeit - kann leider etwas dauern, bis ich Code schreiben kann....

[Bangkok]

Kannst du nicht einfach mit nur mit SelectString() suchen, das entspricht LVM_FINDITEM und ist die Suchmessage für ein Listview. Dann brauchst du nicht alle Strings zu vergleichen. Zum weitersuchen dann dann bei der gefundenen Zeile weitersuchen.

[Bangkok]

etwa so, hatte eben den falschen Button gedrückt

proc suchen
parameters suchstring$
ergebnis& = 0
Pos& = -1
whilenot ergebnis& = -1
ergebnis& = selectstring(lv&,pos&,suchstring$)
if ergebnis& <> -1
x% = Messagebox("Weitersuchen ?","Frage",36)
if x% = 7
break
else
pos& = ergebnis&
endif
endwhile
endproc

[Frabbing]

Benutzt du da die Listview.dll? Wenn ja, könntest du doch SearchText() benutzen.

[horsthorn]

@Frank

Zitat von Frabbing

Benutzt du da die Listview.dll? Wenn ja, könntest du doch SearchText() benutzen.

Searchtext() ist zu genau
Wenn ich z. B. "München" suche, zeigt mir Searchtext() schon vorher alles, was mit "münchen" in der ganzen Zeile vorkommt.
Ich will aber nur die erste Spalte suchen.

[THFR]

Horst,
du kannst doch die Spalte vorgeben.
Wenn du z.B. nur "Hamburg" suchen willst, dann hänge, so mach ich es, ein oder zwei " " an, damit "Hamburger" nicht gefunden wird. Ansonsten sind da ja noch einige Schalter, wie "am Itemanfang" usw. .

Gruß Thomas

[Frabbing]

Ganz genau.