GetFiles SearchPattern

[Willie1]

Hallo Leute,
ich will alle Bildformate aus einem Ordner herausfiltern. Die KI schlägt mir folgendes vor:

Delphi-Quellcode:

uses
  System.SysUtils, System.IOUtils;

procedure FindAllImageFiles(const Path: string);
var
  ImageFiles: TStringDynArray;
  SearchPattern: string;
begin
  // Definiere die Suchmuster für die gängigen Bildformate
  SearchPattern := '*.jpg;*.jpeg;*.bmp;*.png;*.gif;*.tiff;*.ico;*.heif;*.heic';
  
  // Verwende TDirectory.GetFiles, um die Dateien zu finden
  ImageFiles := TDirectory.GetFiles(Path, SearchPattern, TSearchOption.soAllDirectories);

Ich meine, das mit dem Strichpunkt auch schon mal gelesen zu haben. Aber es funktioniert nicht. In der Delphi-Dokumentation steht nur "z.B. *.exe" nicht "*.bmp;*.jpg; ...". Eine weitere Erklärung gibt es nicht.

Danke und Gruß Willie.

[himitsu]

Das ist EINE FileMask.

Entweder erst alles suchen und dann rausfiltern
oder du gibst eine Suchmethode an (gern auch anonym) und filterst dort beim Suchen.

Oder mehrmals suchen und die Ergebnisse kombinieren.
Oder ein FeatureRequest.

[Willie1]

Okay Himitsu,

das ist also eine KI-Ente. Als ich bei der KI nachgefragt habe, bekam ich heraus, was du vorschlägst. Die KI schlägt jetzt ein array of string für SearchPattern vor!

Ich habe verstanden und weiß, wie es geht. Die "Suchmaske" mit den ; ist zu schön, um wahr zu sein.

Willie.

[himitsu]

Muß ich die KI jetzt verklagen, weil sie meine Ideen klaut?

Delphi-Quellcode:

Files := nil;
for var SP in '*.jpg;*.jpeg;*.bmp;*.png;*.gif;*.tiff;*.ico;*.heif;*.heic'.Split([';']) do
  Files := Files + TDirectory.GetFiles(Path, SP, TSearchOption.soAllDirectories);

Files := TDirectory.GetFiles(Path, '*.*', TSearchOption.soAllDirectories,
  function(const Path: string; const SearchRec: TSearchRec): Boolean
  begin
    Result := MatchText(ExtractFileExt(SearchRec.Name),
      ['.jpg', '.jpeg', '.bmp', '.png', '.gif', '.tiff', '.ico', '.heif', '.heic']);
  end);

[himitsu]

Zitat von Willie1:

ist zu schön, um wahr zu sein.

Zitat von himitsu:

Oder ein FeatureRequest.

Besser du fragst das selbst ... ich glaub fast die ignorieren mich meistens, da im QP.

[Willie1]

Zitat von ringli:

Zitat von Willie1:

Ich habe verstanden und weiß, wie es geht. Die "Suchmaske" mit den ; ist zu schön, um wahr zu sein.

Im Anhang eine Demo wie es funktioniert.

Hier im Forum bekommt man immer eine gute Lösung. Danke. Aber wie wäre es damit:

Delphi-Quellcode:

function FilterFiles(const Path, Mask: string): TStringDynArray;
var
  TypeFilter: TDirectory.TFilterPredicate;
  Ext: Tfilename;
begin
  TypeFilter := function(const Path: string; const SR: TSearchRec): Boolean
  begin
    Ext :=LowerCase(ExtractFileext(SR.Name));
    Result := Pos(Ext, string('.bmp;.jpg;.jpeg;.tif;.gif;.png;.heic;')) > 0;
  end;
  Result := TDirectory.GetFiles(Path, Mask, TypeFilter);
end;

Das ist meine eigene Idee. Wo die Performance besser ist, weiß ich nicht. Willie.

[himitsu]

Zitat:

aber wie ...

findet auch .gi oder .p

Pos(';' + Ext + ';', string(';.bmp;.jpg;.jpeg;.tif;.gif;.png;.heic;')
aber weil man hier vorne schon einen Punkt hat, kann man den mit benutzen
Pos(Ext + ';', string('.bmp;.jpg;.jpeg;.tif;.gif;.png;.heic;')
Pos(Ext + '.', string('.bmp.jpg.jpeg.tif.gif.png.heic.')



PS: Du wirst es nicht glauben, aber MatchText war absichtlich ausgewählt, da es funktionial super, sicher und schnell passt.

Pos() > bzw. <> 0
entspricht ContainsStr

LowerCase + Pos
entspricht ContainsText

SameText / SameStr
MatchText / MatchStr
IndexText / IndexStr
...

Und mit EndsText müßte man nichtmal den Dateiname trennen, aber das geht nur mit "einer" Dateiendung gleichzeitig.


if Pos('fig.', ReverseString('C:\irgendwo\test.gif')) = 1 then

[ringli]

Zitat von Willie1:

Ich habe verstanden und weiß, wie es geht. Die "Suchmaske" mit den ; ist zu schön, um wahr zu sein.

Im Anhang eine Demo wie es funktioniert.