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

Delphi-Quellcode:

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

Delphi-Quellcode:

Explode('|', ...

den String aufteilen,
dann nochmal jeden zweiten Eintrag im Ergebnis an

Delphi-Quellcode:

';'

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:

Zitat von Codehunter (Beitrag 1093864)

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.

[Maik81ftl]

gegenfrage an euch??? würde euch da ggf eine LCL-Routine ausreichen?

Wenn ja schaut mal bitte bei Lazarus-Crr da dies zu 95% mit delphi konform geht, wäre dies doch eine Sinnvolle alternative.

[himitsu]

Delphi-Quellcode:

uses Masks;

function MatchesFilter(const Filename, Filter: String): Boolean;
var
  SL: TStringList;
  i:  Integer;
begin
  SL := TStringList.Create;
  try
    SL.StrictDelimiter := True;
    SL.Delimiter := '|';
    SL.DelimitedText := Filter;
    for i := 0 to SL.Count div 2 - 1 do
      SL.Delete(i);
    SL.DelimitedText := ';';
    SL.Text := SL.Text;
    for i := SL.Count - 1 downto 0 do
      if MatchesMask(Filename, SL[i]) then
        Exit(True);
  finally
    SL.Free;
  end;
  Result := False;
end;

// oder um nocheine Zeile kürzer
function MatchesFilter(const Filename, Filter: String): Boolean;
var
  SL: TStringList;
  i:  Integer;
begin
  SL := TStringList.Create;
  try
    SL.LineBreak := '|';
    SL.Text := Filter;
    for i := 0 to SL.Count div 2 - 1 do
      SL.Delete(i);
    SL.LineBreak := ';';
    SL.Text := SL.Text;
    for i := SL.Count - 1 downto 0 do
      if MatchesMask(Filename, SL[i]) then
        Exit(True);
  finally
    SL.Free;
  end;
  Result := False;
end;

Statt

Delphi-Quellcode:

Exit(True);

kann man auch (für ältere Delphis) auf Folgendes ausweichen.

Delphi-Quellcode:

begin
  Result := True;
  Exit;
end;

PS: nicht getestet ... sollte aber gehn :oops:

PPS: In der CodeLb sollte von mir eine MaskMatch-Version rumliegen, welche speziell für Dateinamen vorgesehen ist,
denn "*.*" findet eigentlich auch "DateiOhneEndung", was Masks.MatchesMask nicht macht.

[Codehunter]

Um jetzt nochmal auf die Frage mit dem Try und dem Exit zurückzukommen:

Ich bin die Sache Step by Step via F8 durchgegangen. In der konkreten Funktion wird Finally tatsächlich NICHT angesprungen, in anderen Routinen meiner Programme bei ähnlicher Konstellation dagegen schon. Ich konnte noch nicht herausfinden wo es im konkreten Fall klemmt. Evtl. ist das auch ein Bug im Linker? Nichtsdestotrotz ist Break die bessere Lösung anstelle von Exit. "Exit(x)" ähnelt mehr dem C-Konstrukt "return x" und wurde von mir bisher nie verwendet. Ich weise immer Result das Ergebnis zu, der Übersicht wegen.

[himitsu]

Zitat:

Zitat von Codehunter (Beitrag 1094859)

"Exit(x)" ähnelt mehr dem C-Konstrukt "return x" und wurde von mir bisher nie verwendet.

Ist in Delphi 5 eh noch nicht vorhanden. :angle2: