Dateiliste - Dateien und Verzeichnisse aussortieren anhand einer StringListe

[KaiW]

Hi Jim,

also wenn ich Dich richtig verstanden habe, stehen in der Stringliste sowohl Verzeichnisnamen als auch Dateinamen, die ausgeschlossen werden sollen.
Dann würde ich die Prüfung genau anders herum machen, also bei jeder gefunden Datei den kompletten Dateinamen inkl. Pfad in einer String-Variablen speichern und dann die Stringliste durchgehen und auf Vorkommen in dem Pfad testen. Also ähnlich Deinem Einfall beim Einkaufen, aber leicht abgeändert.

Klingt zugegebenermaßen etwas konfus, daher hier mal etwas Pseudocode:

Delphi-Quellcode:

ADateiname:= APfad + SR.Name; //SR ist ein TSearchRec, APfad ist der aktuelle mit FindFirst durchsuchte Pfad inkl. abschließendem "\"

AImFilter:= False;
FOR i:=0 TO SL.Count-1 DO
 begin
      IF Pos(SL[i], ADateiname) > 0 THEN
       begin
            AImFilter:= True;
            Break;
       end;
 end;

IF NOT AImFilter THEN
 begin
      //Datei verarbeiten
 end;

Es werden also alle "ausgefiltert", die einen der ausgeschlossenen Einträge aus der StringList im Dateinamen haben.

Wenn dann AFileName beispielsweise "c:\Verzeichnis1\datei1.txt" ist, könnte in der StringList (SL) sowohl "c:\Verzeichnis1\datei1.txt", als auch "c:\Verzeichnis1\" oder auch nur "Verzeichnis1" stehen, um die Datei auszuschließen.

War es in etwa das was Du gesucht hast?

Viele Grüße

Kai

[Jim Carrey]

Danke für die Hilfe!

ich habe es jetzt so gelöst...
in meiner Datei stehen alle Pfade in absoluter Form. Z.B. D:\Verzeichnis1\*
In meiner Funktion wird nun geprüft, ob das letzte Zeichen ein * ist, wenn ja, wird es entfernt.
Dann wird geprüft, ob es sich um ein Verzeichnis oder um eine Datei handelt.

Und dann

Delphi-Quellcode:

sAktuellerPfad := sl.Strings[i];
if (bIsDirectory and (PosEx(sAktuellerPfad, sMeinPfad, 1) = 1)) or ((not bIsDirectory) and (sAktuellerPfad = sMeinPfad)) then

Wenn in der StringListe steht:

Zitat:

D:\Verzeichnis1\*

Dann wird D:\Verzeichnis1\ und alles was da drin ist aussortiert.

Und

Zitat:

D:\Verzeichnis1\Datei.txt

würde nur diese Datei aussortieren.

Aktuell noch umständlich und schlecht erweiterbar, aber ich gucke mal was sich machen lässt.

Ich prüfe jetzt also jeden Pfad der mit FindFirst gefunden wird mit allen Pfaden aus der StringList.