Windows Wildcards negieren

[uschi]

Guten Morgen zusammen.

Ich stehe vor einen kniffligen Problem und ich hoffe ihr könnt mir weiterhelfen.

Es geht um die Wildcards von Windows.

Wenn ich jetzt eine JPEG Datei suche gebe ich ein *.jpg oder *.jpeg das ist klaro.

Jetzt aber zu meiner Frage...

Ist es möglich nach allem anderen zu suchen außer *.jpg z.B. "<>*.jpg" oder so ähnlich?



danke schonmal!

[alcaeus]

Du musst mit FindFirst und FindNext alle Dateien (*.*) suchen, und anschliessend mit ExtractFileExt ueberpruefen, ob sie jpg-Dateien sind. Falls ja, ueberspringst du sie einfach.
Eine andere Moeglichkeit kenne ich nicht...

Greetz
alcaeus

[uschi]

Danke für die schnelle Antwort, allerdings wollte ich genau das vermeiden

[sakura]

Zitat von uschi:

Danke für die schnelle Antwort, allerdings wollte ich genau das vermeiden

Da kommst Du aber nicht drumrum. Hier mal ein einfacher Ansatz (direkt getippt, nicht getestet):

Delphi-Quellcode:

uses
  Masks;

...

var
  SR: TSearchRec;
  Mask: TMask;
begin
  Mask := TMask.Create('*.jpg');
  try
    if FindFirst('C:\Temp\*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Attr and (faDirectory or faSymLink)) <> 0 then
          Continue;
        if not Mask.Matches(SR.Name) then
        begin
          // die Datei ist okay, mach was
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  finally
    Mask.Free;
  end;
end;

......

[MathiasSimmack]

Habe auch noch was zu dem Thema: klick. Aus dem Jahr 2003.


Edit: Es ist zwar löblich, dass du politisch korrekt sein willst, aber es heißt trotzdem negieren.