![]() |
Re: Suche effizienter machen
Das kann man noch einkürzen:
Delphi-Quellcode:
Das 'highlighten' habe ich in eine lokale Prozedure ausgelagert, das Begin/Endupdate in Resourcenschutzblöcke gepackt, das LowerCase(FSelect[ii]) herausgezogen und die Variable 'i2' initialisiert (wieso heißt 'i2' eigentlich 'i2' und nicht z.B. 'iLineIndex'?).
Procedure TForm1.HighlightText;
Var ii,i2 : Integer; sLwcLine : String; Procedure _HighlightWord (Const aWord : String; aColor : TColor); Var p : Integer; Begin If aWord='' Then Exit; p := Pos (aWord, sLwcLine); If p>0 Then Begin mmoLines.SelStart := p + i2 - 1; mmoLines.SelLength := Length(aWord); mmoLines.SelAttributes.Color := aColor ; mmoLInes.SelAttributes.Style := [fsBold]; mmoLines.SelLength := 0; End; End; Begin if (text<>'') OR (text2<>'') OR (text3<>'') then begin i2 := 0; // Variable i2 muss initialisiert werden ! text := LowerCase(text); text2 := LowerCase(text2); text3 := LowerCase(text3); mmoLines.Lines.BeginUpdate; Try for ii := 0 to FSelect.Count-1 do begin sLwcLine := LowerCase(FSelect[ii]); If sLwcLine<>'' Then Begin _HighLightWord (text, c); _HighLightWord (text2, c2); _HighLightWord (text3, c3); End; i2 := i2 + Length(FSelect.Strings[ii]) + 2; End; Finally mmoLines.Lines.EndUpdate; End End; End; Jetzt ist es etwas übersichtlicher. @jfHeins: Bei deiner Lösung ist der große Pferdefuß die Generierung des 'Textes'. Ich vermute, Du meinst 'MyRichEdit.Lines.Text'. Das ist Speicher- und Zeitverschwendung, denn der 'Text' wird aus den Zeilen durch Stringkonkatenation gebildet. Ich denke, der Code ist schon ganz ok, die POS-Funktion könnte man noch durch eine schnellere Variante ersetzen (z.B. eine von FastCode oder FastStrings). Wenn man den Textpuffer direkt ansprechen könnte, wäre deine Variante aber sicherlich viel performanter. |
Re: Suche effizienter machen
Hier ist meine Variante:
Delphi-Quellcode:
Ich habe keinen Vergleich, wie schnell sie ist, aber sie funktioniert, wenn auch nur mit einem Suchwort. Für weitere Wörter muss man halt erweitern. Ein paar Kleinigkeiten könnte man auch noch optimieren, z.B. SuchLaenge := Length(edSuchwort.Text); im Voraus zuweisen.
var SuchPos: Integer;
begin if OpenDialog.Execute then begin if Length(edSuchwort.Text) > 0 then begin RichEdit.Lines.LoadFromFile(OpenDialog.FileName); SuchPos := 0; repeat SuchPos := RichEdit.FindText(edSuchwort.Text,SuchPos,Length(RichEdit.Lines.Text),[stWholeWord]); if SuchPos > -1 then begin RichEdit.SelStart := SuchPos; RichEdit.SelLength := Length(edSuchwort.Text); RichEdit.SelAttributes.Color := clRed; SuchPos := SuchPos + Length(edSuchwort.Text); end; until SuchPos = -1; end; end; end; EDIT Der Aufruf von Length scheint viel Zeit zu benötigen. Ich habe das jetzt noch einmal so probiert und der Geschwindigkeitsunterschied ist immens.
Delphi-Quellcode:
var SuchPos, SuchLaenge, RichEditLaenge: Integer;
STime, ETime: Integer; begin if OpenDialog.Execute then begin SuchLaenge := Length(edSuchwort.Text); if SuchLaenge > 0 then begin RichEdit.Lines.LoadFromFile(OpenDialog.FileName); RichEditLaenge := Length(RichEdit.Lines.Text); STime := GetTickCount(); SuchPos := 0; repeat SuchPos := RichEdit.FindText(edSuchwort.Text,SuchPos,RichEditLaenge,[stWholeWord]); if SuchPos > -1 then begin RichEdit.SelStart := SuchPos; RichEdit.SelLength := SuchLaenge; RichEdit.SelAttributes.Color := clRed; SuchPos := SuchPos + SuchLaenge; end; until SuchPos = -1; ETime := GetTickCount(); lbZeit.Caption := IntToStr(ETime - STime); lbZeit.Visible := True; end; end; end; |
Re: Suche effizienter machen
Hallo zusammen,
Warum ersetzt Ihr pos/posex/findtext nicht durch
Delphi-Quellcode:
oder einen anderen Boyer_Moore-Abkömling? Die sind wirklich schnell!
Search_BMH_Unrolled
Der Lösungsvorschlag aus #13 (Hashmap) scheint mir vor allem interessant, wenn mehrere Worte gesucht werden sollen. Gruß K-H P.S. ich hab einmal Pos und Search_BMH_Unrolled gegeneinander laufen lassen und das Laufzeitverhältnis (50MB Text) war ungefähr 5:1 |
Re: Suche effizienter machen
Zitat:
Zitat:
Boyer-Moore ist nicht automatisch schneller, denn es muss zunächst der Suchtext analysiert werden, das erzeugt einen gewissen Overhead. Man müsste für jeden Suchtext eine eigene BM-Engine erzeugen, dann wäre das schneller. Allerdings dürften hier andere Kandidaten (QuickSearch, HorSpool) noch besser sein. In der ( ![]() Boyer-Moore eignet sich zudem erst für längere Suchtexte, der Overhead ist einfach zu groß. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz