MatchesMask

[zeras]

Ich möchte im Zusammenhang mit TDirectory.Getfiles und MatchesMask Dateien suchen, die nur aus Ziffern bestehen.
In einem Beitrag hatte ich folgendes gefunden, was aber nicht funktioniert.
'*[0-9]*.*;*.*[0-9]*'
Wie muss ich die Maske definieren, damit ich Dateien finde wie 01234567.890, aber keine beispielsweise mit einem Buchstaben. Alle Dateinamen haben alle 8 Stellen + 3 für Extension.

Zusatz:
Jetzt habe ich folgendes eingetragen, bin aber nicht sicher, ob das so richtig ist. Wenn ich das interpretiere, muss dann am Anfang ein Ziffer stehen und dann ist alles erlaub. Bei der Extension dann alles und am Ende dann eine Ziffer.
'[0-9]*.*[0-9]'

[peterbelow]

Zitat von zeras:

Ich möchte im Zusammenhang mit TDirectory.Getfiles und MatchesMask Dateien suchen, die nur aus Ziffern bestehen.
In einem Beitrag hatte ich folgendes gefunden, was aber nicht funktioniert.
'*[0-9]*.*;*.*[0-9]*'
Wie muss ich die Maske definieren, damit ich Dateien finde wie 01234567.890, aber keine beispielsweise mit einem Buchstaben. Alle Dateinamen haben alle 8 Stellen + 3 für Extension.

Zusatz:
Jetzt habe ich folgendes eingetragen, bin aber nicht sicher, ob das so richtig ist. Wenn ich das interpretiere, muss dann am Anfang ein Ziffer stehen und dann ist alles erlaub. Bei der Extension dann alles und am Ende dann eine Ziffer.
'[0-9]*.*[0-9]'

Verwende besser einen der overloads von GetFiles der eine Filtermethode als Parameter erlaubt. Dieser Methode wird dann jede gefundenen Datei übergeben und da kannst Du den Namen über eine regular expression untersuchen. Das ist wesenlich flexibler, z. B. würde die regular expression '\d{8}\.\d{3}' deinen Anforderungen genügen. Mit MatchesMask müßtest Du sowas wie

'[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].[0-9][0-9][0-9]'

verwenden, da die Syntax da keinen repeat count kennt.

[zeras]

Ich hatte das bisher so gelöst:

Delphi-Quellcode:

  FilterPredicate := function(const Path: string; const SearchRec: TSearchRec): Boolean
                     begin
                       //wir filtern das Hidden Directory "System Volume Information" raus
                       if (TFileAttribute.faHidden in TPath.GetAttributes(Path))
                       or (TFileAttribute.faSystem in TPath.GetAttributes(Path))
                       then begin
                         Result := False;
                         Exit;
                       end;
                       //auch keine Index und Indexold auswerten
                       if (UpperCase(SearchRec.Name) = UpperCase(fNameIDXFile))
                       or (UpperCase(SearchRec.Name) = UpperCase(fNameIDXFileOld))
                       then begin
                         result := False;
                         Exit;
                       end;
                       //es dürfen nur Dateien sein, die nur Ziffern im Dateinamen haben
                       if not MatchesMask(SearchRec.Name, '[0-9]*.*[0-9]') then begin
                         result := False;
                         Exit;
                       end;
                       Result := true;
                     end;


  WFiles := TDirectory.GetFiles(DriveDisk, FilterPredicate);

Wir würde ich denn deinen Vorschlag einbauen?
regular expression '\d{8}\.\d{3}'

[peterbelow]

Zitat von zeras:

Ich hatte das bisher so gelöst:

Delphi-Quellcode:

  FilterPredicate := function(const Path: string; const SearchRec: TSearchRec): Boolean
                     begin
                       //wir filtern das Hidden Directory "System Volume Information" raus
                       if (TFileAttribute.faHidden in TPath.GetAttributes(Path))
                       or (TFileAttribute.faSystem in TPath.GetAttributes(Path))
                       then begin
                         Result := False;
                         Exit;
                       end;
                       //auch keine Index und Indexold auswerten
                       if (UpperCase(SearchRec.Name) = UpperCase(fNameIDXFile))
                       or (UpperCase(SearchRec.Name) = UpperCase(fNameIDXFileOld))
                       then begin
                         result := False;
                         Exit;
                       end;
                       //es dürfen nur Dateien sein, die nur Ziffern im Dateinamen haben
                       if not MatchesMask(SearchRec.Name, '[0-9]*.*[0-9]') then begin
                         result := False;
                         Exit;
                       end;
                       Result := true;
                     end;


  WFiles := TDirectory.GetFiles(DriveDisk, FilterPredicate);

Wir würde ich denn deinen Vorschlag einbauen?
regular expression '\d{8}\.\d{3}'

etwa so (uses system.regularexpressions).

Delphi-Quellcode:

function TForm1.Filter(const Path: string; const SearchRec: TSearchRec):
    boolean;
begin
  Result := false ;
//  log('Path: %s',[path]);
//  log(  'Name: %s',[SearchRec.Name]);
  if (searchrec.Attr and (faDirectory or faHidden or faSysFile)) = 0 then
    result := Tregex.IsMatch(Searchrec.Name, '\d{8}\.\d{3}',[roIgnoreCase, roSingleline]);
end;

[zeras]

Zitat von peterbelow:

etwa so (uses system.regularexpressions).

Delphi-Quellcode:

function TForm1.Filter(const Path: string; const SearchRec: TSearchRec):
    boolean;
begin
  Result := false ;
//  log('Path: %s',[path]);
//  log(  'Name: %s',[SearchRec.Name]);
  if (searchrec.Attr and (faDirectory or faHidden or faSysFile)) = 0 then
    result := Tregex.IsMatch(Searchrec.Name, '\d{8}\.\d{3}',[roIgnoreCase, roSingleline]);
end;

Danke, werde ich am Wochenende einbauen.

[zeras]

Zitat von peterbelow:

Delphi-Quellcode:

function TForm1.Filter(const Path: string; const SearchRec: TSearchRec):
    boolean;
begin
  Result := false ;
//  log('Path: %s',[path]);
//  log(  'Name: %s',[SearchRec.Name]);
  if (searchrec.Attr and (faDirectory or faHidden or faSysFile)) = 0 then
    result := Tregex.IsMatch(Searchrec.Name, '\d{8}\.\d{3}',[roIgnoreCase, roSingleline]);
end;

Danke, funktioniert.