Aktuelle Datei finden

[Willie1]

Hallo Leute,
ich habe eine große Zahl von Dateien mit den Namen: 1-Liga00.fus, ... 2-Liga25, 3-Liga25.fus usw., wobei die Zahl das Jahr angibt. Das Jahr 3??? interessiert hier nicht. Ich will jetzt nur die aktuellen Dateien auswählen können. Der Dateiname wird bei der Anlage so festgelegt.
Ich habe mir Folgendes gedacht:

Delphi-Quellcode:

function FindFootballFiles(const Path: string): TStringDynArray;
var
  FileFilter  : TDirectory.TFilterPredicate;
  s: string;
  J, Lj: Word;
  Po: Integer;
begin
  FileFilter :=
    function(const Path: String; const SearchRec: TSearchRec): Boolean
    begin
      po := Pos('.',SearchRec.Name)-3;
      s := string(SearchRec.Name).SubString(Po,2);
      try
        Lj := s.ToInteger + 2000;
      except
        Exit(false);
      end;
      J := YearOf(Today);
      Result := (J = Lj) or (J = Pred(Lj));
    end;
    Result := TDirectory.GetFiles(Path, '*.fus', TSearchOption.soAllDirectories, FileFilter);
end;

Wie findet ihr diesen Ansatz? Ist mir klar, wenn der Anwender den Dateinamen ändert, funktioniert die Sache nicht mehr.
Gruß Willie.

[ringli]

Ich bin mir nicht sicher ob ich dich richtig verstehe, aber versuch es mal so:

Delphi-Quellcode:

function FindFootballFiles(const Path: string): TStringDynArray;
var
  FileFilter : TDirectory.TFilterPredicate;
begin
  var sYear : string := FormatDateTime('YY', Now);
  SearchPattern := Format('?-Liga%s.fus', [sYear]);

  FileFilter :=
    function(const Path: String; const SearchRec: TSearchRec): Boolean
    begin
      Result := Winapi.ShLwApi.PathMatchSpecW(PChar(SearchRec.Name), PChar(SearchPattern));
    end;
  
  Result := TDirectory.GetFiles(Path, '*.*', TSearchOption.soAllDirectories, FileFilter);
end;

[himitsu]

Debuggen ist wohl etwas, was du nie benutzt?

Zitat:

Delphi-Quellcode:

try
  StrToInt oder .ToInteger
except
  // nix machen
end;

Für sowas sollte einem der Popo verhauen werden.

TryStrToInt oder StrToIntDef

Delphi-Quellcode:

if TryStrToInt(RightStr(ChangeFileExt(SearchRec.Name, ''), 2), i) then
  MachWasMit(i);

[FriedrichAT]

Hallo
Ich machs "meisten" so...

Delphi-Quellcode:

// Liest das Übergebene "Dir" ein
procedure TForm1.ReadDir(const Dir: String);
var ExtMask: TDirectory.TFilterPredicate;
    SOpt: TSearchOption;
begin
  // ----------------------------------------------------------------------
  ExtMask:= function(const Pfad: String; const SR: TSearchRec): Boolean
            begin
              Result:= (ExtractFileExt(SR.Name) = '.fus'); 
            end;
  // ----------------------------------------------------------------------
  if CbRecursive.Checked then                             // Ist ein CheckBox
    SOpt:= TSearchOption.soAllDirectories
  else
    SOpt:= TSearchOption.soTopDirectoryOnly;

  FArr:= TDirectory.GetFiles(Dir, '*.*', SOpt, ExtMask); // Ist dein TStringDynArray
end;

[himitsu]

Zitat:

Ich machs "meisten" so...

abc.FUS ?

SameText/

Zitat:

AnsiSameText

oder SameFileName

Und wenn du eh nur nach der Dateiendung filtern willst, ist das eh unnötig zuviel.
TDirectory.GetFiles(Dir, '*.fus', SOpt)


Und da wir schon dabei sind, gibt es eine geheime Funktion, in der Delphiklasse, denn sie lässt nicht Windows (FindFirstFile) filtern, sondern macht das selbst MatchesMask und das kennt auch Char-Sets/Ranges. (und nein, es ist kein RegEx!!!)

Delphi-Quellcode:

var
  Year, i: Integer;
  Found: string;
begin
  Year  := -1;
  Found := '';
  for var Filename in TDirectory.GetFiles('C:\_D', '*[0-9][0-9].fus', TSearchOption.soAllDirectories) do
    if TryStrToInt(RightStr(ChangeFileExt(Filename, ''), 2), i) and (i > Year) then begin
      Year  := i;
      Found := Filename;
    end;
  ShowMessage(i.ToString + ' ' + Found);
end;

[Willie1]

Zitat von himitsu:

if TryStrToInt(RightStr(ChangeFileExt(Filename, ''), 2), i) and (i > Year) then

Dann muss aber der Compiler auf Kurzschluss gestellt sein. Was enthält i, wenn Try fehlschlägt? Was aber eigentlich nicht passieren kann wg. der Suchmaske.

Dann noch etwas Grundsätzliches: Ich könnte natürlich eine Recent-Liste anlegen. Aber die zeigt stur immer die zuletzt aufgerufenen Dateien an, während meine Lösung die aktuellen Files zur Auswahl anbietet! Oder Beides?

Himitsu, ich habe mal nach deinem Nicknamen gegooglet, interessant. Du hast die besten Tricks drauf. So werde ich es machen.

Willie.