Как посчитать количество файлов в подпапках за определённый период времени с помощью Delphi и Pascal?

Delphi , Файловая система , Файлы

Подсчет файлов в подпапках за период времени в Delphi/Pascal

Задача, поставленная пользователем, заключается в подсчете количества файлов определенного формата (в данном случае, JPEG) в подпапках указанной директории за заданный период времени. Решение должно предоставить информацию о количестве файлов в каждой подпапке в виде таблицы. В этой статье мы рассмотрим решение этой задачи на Object Pascal (Delphi), а также альтернативные подходы.

Решение, предложенное в исходном вопросе:

Предложенное решение использует функции FindFirst(), FindNext() и FindClose() из модуля SysUtils для итерации по файлам в директориях. Оно также использует FileDateToDateTime() для преобразования даты файла в TDateTime для сравнения с заданным диапазоном дат.

uses
  SysUtils;

function CountFilesInDirInDateRange(const ADir: string;
  const AStartDateTime, AEndDateTime: TDateTime): Integer;
var
  SR: TSearchRec;
  FileDT: TDateTime;
begin
  Result := 0;
  if FindFirst(IncludeTrailingPathDelimiter(ADir) + '*', faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr and faDirectory) = 0 then
      begin
        FileDT := FileDateToDateTime(SR.Time);
        if (FileDT >= AStartDateTime) and (FileDT < AEndDateTime) then
          Inc(Result);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

type
  TFileCount = record
    Dir: string;
    Count: Integer;
  end;
  TFileCounts = array of TFileCount;

function CountFilesInAllSubDirsInDateRange(const AMainDir: string;
  const AStartDateTime, AEndDateTime: TDateTime): TFileCounts;
var
  BasePath: string;
  SR: TSearchRec;
  SubDirs: TStringList;
  I: Integer;
begin
  Result := nil;
  BasePath := IncludeTrailingPathDelimiter(AMainDir);
  SubDirs := TStringList.Create;
  try
    if FindFirst(BasePath + '*', faAnyFile, SR) = 0 then
    try
      repeat
        if ((SR.Attr and faDirectory) <> 0) and
           (SR.Name <> '.') and (SR.Name <> '..') then
        begin
          SubDirs.Add(SR.Name);
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
    SetLength(Result, SubDirs.Count);
    for I := 0 to SubDirs.Count-1 do
    begin
      Result[I].Dir := SubDirs[I];
      Result[I].Count := CountFilesInDirInDateRange(BasePath + SubDirs[I], AStartDateTime, AEndDateTime);
    end;
  finally
    SubDirs.Free;
  end;
end;

Анализ предложенного решения:

• Преимущества:
  • Относительно простое и понятное решение.
  • Использует стандартные функции Delphi, не требующие дополнительных библиотек.
• Недостатки:
  • FindFirst(), FindNext(), FindClose() могут быть не самыми эффективными для больших объемов данных.
  • В предложенном решении не учитывается только JPEG формат файлов. Чтобы это исправить, нужно добавить фильтр в FindFirst(), например faAnyFile + faArchive для JPEG файлов.
  • Проблема с FindClose() (как описано в комментариях) требует внимания к порядку units в uses clause или использования префикса SysUtils..

Альтернативное решение: использование TDirectory (Delphi 2007 и выше):

Начиная с Delphi 2007, класс TDirectory предоставляет более удобный и современный способ работы с файловыми системами. Он позволяет получить список файлов и поддиректорий, что может упростить код и повысить его читаемость.

uses
  System.IOUtils;

function CountFilesInDirInDateRange_TDirectory(const ADir: string;
  const AStartDateTime, AEndDateTime: TDateTime): Integer;
var
  Files: TStringList;
  FileDT: TDateTime;
  File: string;
begin
  Result := 0;
  Files := TStringList.Create;
  try
    try
      TDirectory.GetFiles(ADir, '*', TSearchOption.soAllDirectories, Files);
      for File in Files do
      begin
        if Pos('.jpg', LowerCase(File)) > 0 then // Фильтр по расширению
        begin
          FileDT := FileDateToDateTime(FileExists(File).DateTime);
          if (FileDT >= AStartDateTime) and (FileDT < AEndDateTime) then
            Inc(Result);
        end;
      end;
    finally
      Files.Free;
    end;
  end;
end;

function CountFilesInAllSubDirsInDateRange_TDirectory(const AMainDir: string;
  const AStartDateTime, AEndDateTime: TDateTime): TFileCounts;
var
  Dirs: TStringList;
  I: Integer;
begin
  Dirs := TStringList.Create;
  try
    TDirectory.GetDirectories(AMainDir, '*', TSearchOption.soAllDirectories, Dirs);
    SetLength(Result, Dirs.Count);
    for I := 0 to Dirs.Count - 1 do
    begin
      Result[I].Dir := Dirs[I];
      Result[I].Count := CountFilesInDirInDateRange_TDirectory(Dirs[I], AStartDateTime, AEndDateTime);
    end;
  finally
    Dirs.Free;
  end;
end;

Анализ альтернативного решения:

• Преимущества:
  • Более современный и удобный API.
  • Лучшая читаемость кода.
  • Легче добавить фильтр по расширению файла (в примере используется Pos('.jpg', LowerCase(File)) > 0).
• Недостатки:
  • Работает только в Delphi 2007 и выше.
  • Может быть немного медленнее, чем FindFirst()/FindNext() для очень больших объемов данных (хотя в большинстве случаев разница будет незначительной).

Выбор решения:

Выбор между предложенным решением и альтернативным зависит от версии Delphi, которую вы используете, и требований к производительности. Если вы используете Delphi 2007 или более новую версию, рекомендуется использовать TDirectory для большей простоты и читаемости кода. Если вы работаете с более старой версией Delphi, то предложенное решение с FindFirst()/FindNext() будет более подходящим.

Дополнительные рекомендации:

• Обработка ошибок: В реальных приложениях необходимо добавить обработку ошибок, например, проверку существования директорий и файлов.
• Многопоточность: Для повышения производительности при работе с большими объемами данных можно использовать многопоточность.
• Индексирование: Если необходимо часто выполнять поиск файлов, можно рассмотреть возможность индексирования файлов для ускорения поиска.
• Использование специализированных библиотек: Существуют сторонние библиотеки, предоставляющие более продвинутые возможности для работы с файловой системой.

Создано по материалам из источника по ссылке.

Решение задачи подсчета файлов JPEG в подпапках за указанный период времени с использованием Object Pascal (Delphi) и анализ альтернативных подходов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::