Dateinamen mit einem File Filter vergleichen

[Codehunter]

Hallo!

Ich such jetzt schon eine ganze Weile aber bin nicht recht fündig geworden. Ich habe einen String mit einem FileFilter im identischen Format wie es auch bei TOpenDialog etc. verwendet wird und ich habe andererseits einen String mit einem Dateinamen ("filename.ext'). Wie kann ich prüfen, ob der Filter auf den Dateinamen zutrifft? Gibt es da nicht evtl. eine API-Funktion etc.? Kann mir nicht vorstellen, dass ich das zu Fuß per RegEx auseinandernehmen muss.

Grüße
Cody

[DeddyH]

Ist PathMatchSpec in etwa das, was Du suchst?

[Uwe Raabe]

Schau mal in unit Masks.pas nach function MatchesMask(const Filename, Mask: string): Boolean;

[Codehunter]

Leider nein, weder PathMatchSpec noch MatchesMask funktionieren mit Filter-Strings im Format von TOpenDialog wie z.B.:

Code:

Alle (*.png;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.png;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|Portable Network Graphics (*.png)|*.png|JPEG-Grafikdatei (*.jpg)|*.jpg|JPEG-Grafikdatei (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Symbole (*.ico)|*.ico|Erweiterte Metadateien (*.emf)|*.emf|Metadateien (*.wmf)|*.wmf

[himitsu]

z.B. via Explode('|', ... den String aufteilen,
dann nochmal jeden zweiten Eintrag im Ergebnis an ';' aufsplitten
und danach nur noch den Dateinamen mit allen Masken vergleichen.

[Codehunter]

Hehe, da hatten wir wohl beide den selben Gedanken. Wobei explode() eher eine PHP-Funktion ist als Delphi ^^ Aber sinngemäß hab ich das jetzt so umgesetzt und scheint zu funktionieren:

Delphi-Quellcode:

uses Masks;

function MatchesFilter(const AFilename, AFilter: String): Boolean;
var
  I: Integer;
  SL: TStringList;
  S: String;
begin
  result:= FALSE;
  SL:= TStringList.Create;
  try
    SL.Text:= StringReplace(AFilter, '|', #13#10, [rfReplaceAll]);
    for I:= 0 to SL.Count - 1 do begin
      if I mod 2 <> 0 then begin
        S:= S + SL[I] + ';';
      end;
    end;
    SL.Text:= StringReplace(S, ';', #13#10, [rfReplaceAll]);
    for I:= 0 to SL.Count - 1 do begin
      if MatchesMask(AFilename, SL[I]) then begin
        result:= TRUE;
        Exit;
      end;
    end;
  finally
    SL.Free;
  end;
end;

Ich sag mal so: Es ist vielleicht nicht besonders elegant oder effizient. Eine dedizierte API-Funktion oder VCL-Funktion wär mir auch lieber gewesen. Aber unterm Strich zählt erstmal das Ergebnis.