Datei durchsuchen

[Kompon Ente]

Moin allerseits *gähn*

Folgendes:

Delphi-Quellcode:

if FindFirst(s + '/*.*', faAnyFile - faDirectory, sr) = 0 then
  begin
    ListBox1.Items.Add(sr.Name);
    while FindNext(sr) = 0 do
      ListBox1.Items.Add(sr.Name);
  end;
  FindClose(sr);

Diese Prozedur listet mir jeden File, in dem eines der eingebenen Wörter vorhanden ist.

Sprich: Wenn ich "hjkl" eingebe, sucht er alle Wörter, in denen ein "h" ist, ein "j", ein "k" und ein "l"!

Jedoch sollen nur die kompletten Wörter gesucht werden - also soll "hjkl" als ganzes gesucht werden.

Was muss ich ändern, damit das klappt?

Weil danach möchte ich mit AssignFile die Wörter durchgehn, die ich zuvor in eine StringList geschrieben hab - jede Datei nach gesuchtem Wort untersuchen! ;)

[SirThornberry]

diese procedure listet dir eigentlich alle dateien in denen ein punkt vorkommt.
für deinen fall musst du "*.*" durch "*hjkl*" ersetzen

[Kompon Ente]

Ich möchte aber nur Dateien (keine Verzeichnisse) angezeigt bekommen!

[SirThornberry]

dann musst du entweder mit DirectoryExists herausfinden ob es sich um ein Verzeichnis handelt oder mit

Delphi-Quellcode:

if sr.Attributes and faDirectory = faDirectory then //wenn Bedingungen erfüllt dann = Verzeichnis

[Kompon Ente]

Hat sich erledigt - bin auf dem falschen Weg!

Ich möchte ja die DATEIEN durchsuchen nach dem Suchwort, nicht nach den Dateinamen!

[SirThornberry]

klar, aber wennn du dateien nach einem bestimmten wort durchsuchen willst, dann brauchst du auch nur dateien aufzulisten und keine Verzeichnisse.

[Kompon Ente]

Siehe erste Zeile ;)

Delphi-Quellcode:

if FindFirst(s + '/*.*', faAnyFile - faDirectory, sr) = 0 then

[kalmi01]

Hi Janosch,

Deine Routine listet alle Files auf, die in dem angegebenen Pfad (s) sind.
Willst Du alle Dateien, die im Namen "hjkl" enthallten ?
Dann brauchst Du

Delphi-Quellcode:

if FindFirst(s + '/*hjkl*.*', faAnyFile - faDirectory, sr) = 0 then

Oder willst Du alle Dateien, die als Inhalt "hjkl" an irgend einer Stelle stehen haben ?

[Kompon Ente]

Zitat:

Zitat von kalmi01

Oder willst Du alle Dateien, die als Inhalt "hjkl" an irgend einer Stelle stehen haben ?

Jaaaaaaaaaaaaaaaaaa, genau das!

Ich komm grad absolut nicht weiter :(

Also nicht im Dateinamen als Inhalt "hjkl", sondern IN der Datei drinne!

[kalmi01]

Hi,

dann musst Du die mit obiger Routine gefundenen Dateien Zeilenweise mit ReadLn auslesen und mit

Delphi-Quellcode:

if Pos('hjkl', text)>0 then

nach dem zu suchenden String durchforsten.