FindFirst / FindNext findet zu viele Dateien

UweK · Verfasst: Di 17.05.22 11:28

Hallo,

Diese simple kleine Funktion stellt mir eine Liste der zu einem Namensschema passenden Dateien in einem Verzeichnis zusammen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function GetExistingFileNames(ADirectory, AFileNameTemplate: String; AFileNamesFound: TStringList): Integer;
var
  SearchRecord: TSearchRec;
  FullPath: String;
  SearchResult: Integer;
begin
  FullPath:= IncludeTrailingPathDelimiter(ADirectory) + AFileNameTemplate;

{Liste der Dateinamen zusammenstellen. Sie muss bereits vorher mit "TStringList.Create" erzeugt worden sein.}
  SearchResult:= FindFirst(FullPath, faNormal, SearchRecord);
  try
    while (SearchResult = 0) do
      AFileNamesFound.Add(SearchRecord.Name);
      SearchResult:= FindNext(SearchRecord);
    end;
  finally
    FindClose(SearchRecord);
    Result:= AFileNamesFound.Count;
  end;
end;

Mein Problem ist nun, dass für die Extension des angegebenen AFileNameTemplate nicht nur dieser String akzeptiert wird, sondern auch alle längenen Extensions, die mit diesem String beginnen. Beispiel: "AFileNameTemplate = '*.txt' => wird als '*.txt*' interpretiert, d.h. es kommt auch '*.txt_backup' durch. Meine erste Idee war, noch einmal von Hand zu prüfen, ob die Extension in AFileNameTemplate wirklich genau gleich der Extension einer gefundenen Datei ist. Aber das funktioniert nur, wenn die Extension explizit angegeben wird. Es funktioniert nicht mehr, wenn z.B. "AFileNameTemplate = '*.*'" oder "AFileNameTemplate = '*.t*" übergeben wird, weil dann natürlich der '*' nicht als allgemeines Auslassungszeichen, sondern als dieses spezielle Zeichen behandelt wird. '*.*' findet dann gar nichts mehr.

Hat jemand einen Tipp für mich? Vielen Dank und Gruß von Uwe

Th69 · Verfasst: Di 17.05.22 15:09

Hallo,

das kann ich nachvollziehen. Ich habe unter File-Routines das Beispielprojekt (ganz unten) heruntergeladen und bei mir ausgeführt ("Find") und erhalte bei "*.txt" sowohl die ".txt"-Dateien als auch ".txt_backup" sowie alle anderen mit längerer ".txt"-Extension.
Die Suche nach "*.tx" liefert jedoch dann keine Ergebnisse.

Da FindFirst intern auch nur die WinAPI-Funktion FindFirstFile aufruft, liegt die Antwort (der Fehler?) wohl dort. Ich erhalte dasselbe Ergebnis auch bei Verwendung von "dir" in der Eingabeaufforderung (Windows-Konsole).

Ist wahrscheinlich bedingt durch die ehemalige 8.3 Dateinamenbegrenzung.

Als Lösung fällt mir nur ein die "Extension" als Parameter getrennt zu übergeben und, wie du geschrieben hast, selber zu überprüfen.
Oder mal den Code aus dem Anhang überprüfen (den ich irgendwoher aus den Tiefen des Internets habe)...

Einloggen, um Attachments anzusehen!

UweK · Verfasst: Fr 20.05.22 11:52

Hallo,

Danke fürs Probieren. Wenn ich die Extensions der von "FindFirst/FindNext" gelieferten Dateien noch einmal mit der Delphifunktion "MatchesMask" nachprüfe, funktioniert es nun wie beabsichtigt.

Gruß Uwe

jaenicke · Verfasst: Fr 20.05.22 17:03

Es gibt dafür eine Einstellung: Win95TruncatedExtensions
Diese dürfte nicht nur für die Kommandozeile, sondern auch für diese Befehle gelten. Getestet habe ich das nicht.

Hintergrund ist, dass intern die Kommandozeile und ältere API-Befehle die 8.3 Schreibweise der Dateinamen verwenden, wobei die Dateierweiterung auf 3 Zeichen verkürzt wird. Der Rest der Erweiterung wird daher ignoriert.

Moderiert von Th69: URL-Titel hinzugefügt.

Sinspin · Verfasst: Mo 23.05.22 18:45

Generell verwende ich FindFirst / FindNext immer mit *.* und faAnyFile.
Und untersuche dann die Ergebnisse mit Dateinamenzerpflücken und Dateiattribut überprüfen weiter.
Es gab in der Vergangenheit (je nach Pascal oder Delphi Version) zu oft Probleme mit den gelieferten Ergebnissen, als das ich mich auf FindFirst / FindNext noch verlassen wollen würde.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

jaenicke · Verfasst: Mo 23.05.22 22:24

Sinspin hat folgendes geschrieben :

Es gab in der Vergangenheit (je nach Pascal oder Delphi Version) zu oft Probleme mit den gelieferten Ergebnissen, als das ich mich auf FindFirst / FindNext noch verlassen wollen würde.

Da das ja nur Wrapper um die entsprechenden API-Funktionen sind, ist die Frage, ob daran die Delphi-Version schuld war. Abgesehen von einem Problem mit dem Dateidatum hatte ich mit den Funktionen nie Probleme (und ich habe diese relativ oft benötigt).

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme