Volltextsuche mit Delphi

[Balosh]

Hallo zusammen,

ich bin ein "fast" Neuling in Delphi. :) Habe vor eine "Volltextsuche" mit Delphi zu programmieren, das Dateien mit der Endung (.pas und .dfm) durchsucht. Und zwar soll in diesen Dateien nach Wörtern im Quelltext gesucht werden die ich über ein EditField eingebe. Hat da jemand ein paar Tipps oder vielleicht sogar ein Beispiel, was man da am besten benutzt.

Danke schonmal für eure Hilfe

Balosh

[Bernhard Geyer]

Willst du das zum lernen machen?
Falls du nur da was haben willst, installier dir GExperts. Dort gibts eine gute suche. Wenn du da was lernen willst, schau dir den Quellcode von GExpert an dieser stelle an.

[Mavarik]

Zitat:

Zitat von Balosh (Beitrag 1298636)

Hallo zusammen,

ich bin ein "fast" Neuling in Delphi. :) Habe vor eine "Volltextsuche" mit Delphi zu programmieren, das Dateien mit der Endung (.pas und .dfm) durchsucht. Und zwar soll in diesen Dateien nach Wörtern im Quelltext gesucht werden die ich über ein EditField eingebe. Hat da jemand ein paar Tipps oder vielleicht sogar ein Beispiel, was man da am besten benutzt.

Danke schonmal für eure Hilfe

Balosh

Also Pos wäre da ein Anfang...
Aber .dfm Dateien müssen nicht zwangsläufig als Text gespeichert sein...
Da wäre dann ein bisschen mehr Arbeit nötig...

Mavarik

[Bjoerk]

Wohl eher PosEx. Und ggf. AnsiLowerCase. TStringList class. String. Wenn man mit PosEx einen Substring gefunden hat kann man z.B. überprüfen ob die Stellen links und rechts davon gewisse Kriterien erfüllen, z.B. ein Leerzeichen sind.

[mjustin]

Zitat:

Zitat von Balosh (Beitrag 1298636)

das Dateien mit der Endung (.pas und .dfm) durchsucht

Textsuche *.dfm? Das kann gruselig werden :) Es kann sein, dass das gesuchte Wort einem Zeilenumbruch zum Opfer gefallen ist. Delphi fügt dann diverse ' + #13 + ... + ' Zeichen ... in die (Text-)DFM Datei ein. Und davor, und danach, steht jeweils ein Teil des gesuchten Wortes. Also z.B. "... SELECT * FROM S' + #13 + ... + 'TAMMDATEI' ...

[p80286]

Zitat:

Zitat von mjustin (Beitrag 1298653)

Zitat:

Zitat von Balosh (Beitrag 1298636)

das Dateien mit der Endung (.pas und .dfm) durchsucht

Textsuche *.dfm? Das kann gruselig werden :) Es kann sein, dass das gesuchte Wort einem Zeilenumbruch zum Opfer gefallen ist. Delphi fügt dann diverse ' + #13 + ... + ' Zeichen ... in die (Text-)DFM Datei ein. Und davor, und danach, steht jeweils ein Teil des gesuchten Wortes. Also z.B. "... SELECT * FROM S' + #13 + ... + 'TAMMDATEI' ...

Wenn das der Fall sein könnte, muß man den Text eben entsprechen aufbereiten, z.B. nach jedem ";" eine neue Zeile beginnen. Aber Vorsicht, Kommentare und Strings müßen gesondert behandelt werden.

Gruß
K-H

[mjustin]

Zitat:

Zitat von p80286 (Beitrag 1298666)

nach jedem ";" eine neue Zeile beginnen. Aber Vorsicht, Kommentare ...

Semikolon und Kommentare sind in in DFM Dateien eher selten :gruebel:

[Neutral General]

Die mögliche Problematik mit DFMs ignoriere ich mal und beantworte die Frage mal allgemein:

- [Datei finden] Du suchst die Dateien mit FindFirst/FindNext
- [Datei öffnen] Die gefundenen Dateien lädst du dann per LoadFromFile in eine TStringlist (z.B.)
- [Datei durchsuchen] Innerhalb dieser Stringlist suchst du nun das Suchwort per pos() oder/und posEx()
- Je nachdem ob in der durchsuchten Datei das Suchwort enthalten ist oder nicht wird die Datei als Ergebnis aufgelistet.

[Dejan Vu]

Schon mal findstr probiert?

Nebenbei: Keines der hier vorgestellten Vorschläge hat etwas mit Volltextsuche zu tun. Ich bezweifle auch, das der TE etwas derartiges möchte.

"Suche in Dateien" kommt dem dann schon etwas näher.

[Balosh]

Vielen Dank für die vielen Ratschläge und Tipps. Einige helfen mir sehr viel weiter. Gerne könnt hier weiterhin Ratschläge, Tipps und Beispiele nennen. Je mehr desto besser.

Zitat:

Zitat von Bernhard Geyer (Beitrag 1298640)

Willst du das zum lernen machen?
Falls du nur da was haben willst, installier dir GExperts. Dort gibts eine gute suche. Wenn du da was lernen willst, schau dir den Quellcode von GExpert an dieser stelle an.

Das hat mir einige neue Ideen eingebracht.

Gruß
Balosh