Обработка названий файлов с паскаль-скриптом: решение проблемы с дефисами для корректного переименования

Delphi , Интернет и Сети , Браузер

При работе с файлами, особенно с аудиозаписями, часто возникает необходимость в их переименовании. В частности, если название файла содержит информацию о том, кто является приглашённым артистом в треке, то полезно упорядочить эту информацию, переместив её на начало названия. В данном случае, мы сталкиваемся с проблемой, что дефис, разделяющий имя исполнителя и название трека, может встречаться внутри этих частей, что затрудняет корректное переименование.

Решение проблемы с дефисами

Для решения описанной проблемы, можно использовать регулярные выражения (RegEx) в сочетании с паскаль-скриптом. Однако, важно помнить, что не все файлы, содержащие внутри частей названия дефисы, должны быть изменены. Следовательно, необходимо предусмотреть механизм, который позволит исключить такие файлы из обработки.

Пример паскаль-скрипта для обработки файлов:

var
  rgxPattern: string;
  rgxReplace: string;
  dashCount: integer;
  baseName: string;
  extension: WideString;
begin
  baseName := WideExtractBaseName(FileName);
  extension := WideExtractFileExt(FileName);

  // Регулярное выражение для поиска и замены частей названия файла
  // https://stackoverflow.com/questions/32807698/regex-pattern-to-limit-dashes-in-these-circumstances
  rgxPattern := '^(.+)\s+-\s+(.+?)\s+[fF](t|eat(uring)?)?\.?([^([\])\n]+)(.+)?$';
  rgxReplace := '$1 Feat.$5 - $2$6';

  // Подсчёт количества дефисов в названии файла
  dashCount := High(MatchesRegEx(baseName, '\s-\s', false));

  // Если найден только один дефис, то производим замену
  if (dashCount = 1) Then
  begin
    // Выполнение замены
    baseName := ReplaceRegEx(baseName, rgxPattern, rgxReplace, false, true);
    FileName := baseName + extension;
  end;
end.

Пример использования скрипта

Данный скрипт предназначен для использования в программе для переименования файлов, написанной на Delphi. Он проверяет, есть ли в названии файла ровно один дефис, который разделяет имя исполнителя и название трека, и если да, то производит необходимую замену, перемещая информацию о приглашённом артисте на начало названия.

Важные замечания

• Если в названии файла присутствуют дефисы внутри частей, не предназначенных для разделения, скрипт не будет выполнять замену.
• Регулярное выражение должно быть адаптировано под конкретные требования и формат названий файлов.

Используя данный паскаль-скрипт, можно автоматизировать процесс переименования файлов, что значительно экономит время и силы, особенно при работе с большими объёмами данных.

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

Паскаль-скрипт для обработки названий файлов, решением проблемы с дефисами служит использование регулярных выражений для корректного переименования, исключая файлы с дефисами внутри частей названия.

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

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

:: Главная :: Браузер ::