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.

[Gollum]

Zitat von Codehunter:

Delphi-Quellcode:

      if MatchesMask(AFilename, SL[I]) then begin
        result:= TRUE;
        Exit;
      end;
    end;
  finally
    SL.Free;
  end;
end;

Die Routine erzeugt hier ein Speicherleck. Statt Exit dann schon eher ein Break oder Du musst die Stringlist an dieser Stelle separat freigeben.

[Codehunter]

Jepp, vollkommen korrekt Gollum Hab mich nämlich auch gewundert dass mir der Code um die Ohren geflogen ist... Daneben habe ich noch ein paar Failsafes eingebaut für den Fall das lange Dateipfade als Filename übergeben werden (Da scheint MatchesMask allergisch zu sein) und auch für den Fall, dass der Filterstring nicht ganz sauber formuliert ist.

So schauts jetzt aus:

Delphi-Quellcode:

function dwMatchesFilter(const AFilename, AFilter: String): Boolean;
var
  I: Integer;
  SL: TStringList;
  S, FN: String;
begin
  result:= FALSE;
  FN:= ExtractFileName(AFilename);
  SL:= TStringList.Create;
  try
    SL.Text:= StringReplace(Trim(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;
    while Pos(';;', S) > 0 do S:= StringReplace(S, ';;', ';', [rfReplaceAll]);
    SL.Text:= StringReplace(S, ';', #13#10, [rfReplaceAll]);
    for I:= 0 to SL.Count - 1 do begin
      S:= SL[I];
      if MatchesMask(FN, S) then begin
        result:= TRUE;
        Break;
      end;
    end;
  finally
    SL.Free;
  end;
end;

Allerdings passt die praktische Erfahrung hier nicht mit der Delphi-Hilfe zusammen, die bei "Exit" folgendes sagt:

Code:

Exit beschränkt sich nicht auf einen Block, sondern beendet die gesamte Prozedur. Exit beeinflusst die Ablaufsteuerung von try..finally-Blöcken nicht. Wenn Sie Exit in einem try..finally-Konstrukt aufrufen, wird die Ausführung in der finally-Klausel fortgesetzt.

Denn wie man hier sehen kann wird SL.Free im finally nicht aufgerufen obwohl es laut Hilfe so sein sollte.

[DeddyH]

Bist Du ganz sicher? Nach meinen Tests vor einiger Zeit wird das finally immer durchlaufen, sobald man das try betreten hat. Es würde mich wundern, wenn sich das geändert haben sollte.

[himitsu]

Zitat:

Die Routine erzeugt hier ein Speicherleck. Statt Exit dann schon eher ein Break oder Du musst die Stringlist an dieser Stelle separat freigeben.

Exit innerhalb eines Try-Finally löst eine "stille" Exception aus und springt damit direkt ins Finally (diese Exception wird dann im End; der Funktion/Prozedur zurückgesetzt).

Außerhalb von Try-Finally/Except ist Exit ein normaler Jump (GOTO) zum End der Prozedur.