Переименование с периодическим сбросом счётчика

[sa]

r136a8
Если хватит терпения размножить требуемые названия файлов в текстовом редакторе, то можно воспользоваться инструментом группового переименования (Ctrl+M), в нём - Загрузить имена из файла… (F10).

[Flasher]

Не нужно тут терпение. Скрипт пишется буквально за 2-3 минуты.

[Вахмурка]

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

[Flasher]

Вахмурка
Когда вся суть скрипта укладывается в 6-10 строк, предлагать идею с 400x3 и перемещениями, мягко говоря, несерьёзно.

[Вахмурка]

2Flasher

Мы тут дольше языки чешем

[Flasher]

ОК. Без чесни и с любой сортировкой, если всё так, как я понял (vbs):

Код: Выделить всё

' Параметр: %L
With CreateObject("Scripting.FileSystemObject")
  Set List = .OpenTextFile(WScript.Arguments(0))
  Do : F = List.ReadLine : N = .GetBaseName(F)
    If IsNumeric(N) And .FileExists(F) Then _
    .GetFile(F).Name = "set" & Int(N/3 - 0.1) + 1 & "-" & Int((N/3 - Int(N/3 - 0.1))*3 + 0.1) & ".png"
  Loop Until List.AtEndOfStream
End With

[r136a8]

Сегодня буду пробовать отпишу. Спасибо.
Вот еще раз для ясности. Есть файлы с 1 по 1095, эти файлы состоят из групп по 3 файла = 365 групп.
Все файлы находятся в одной папке и желательно переименовать их одним махом, чтоб не запутается и не забиться.

[Flasher]

Яснее не стало. Когда задают конкретные вопросы, логично на них и отвечать.

[sa]

В 9.00 версии TC можно использовать инструмент группового переименования (Ctrl+M) с маской для имени файла set[C+1/3]-1, маской для расширения png. Лишние 1 с пробелом и скобками в именах убрать повторным вызовом группового переименования с маской для имени файла [N] и параметрами поиска и замены Найти:1 \((.+)\) Заменить на:$1 с галкой для "Рег. выраж."

[Avada]

Предыдущая цепочка постов перенесена с некоторыми сокращениями из отдельной темы в уже существующую.

[sibirnik]

Нужна кнопка для решения задачи:
Имеется N-количество каталогов с N-количеством в них файлов - нужно переименовать эти файлы по имени каталога с добавлением счётчика, если файлов N-количество. Вот так для примера: имя каталога_счётчик.расширение Спасибо.

[Flasher]

Есть тема, где спросить, и она перед глазами на первой странице.

Остаётся два вопроса.
1. Обрабатывать файлы в выбранных каталогах? Если да, то из какой сортировки исходить?
2. Если нет, то как будут выводиться файлы - через поиск или по Ctrl ( + Shift) + B?

[sibirnik]

Flasher
Спасибо! Работает, но маленько не так как я хотел. Нужно вручную открывать каждый каталог, выделять файлы в нём, а хотелось бы автомата, если это возможно.Выбрал N-количество каталогов - нажал на кнопочку и дело сделано. В каждом каталоге файлы переименованы по имени каталога.

[Flasher]

sibirnik
См. выше. Файлы можно вывести без подкаталогов.

[Staniclaw]

sibirnik
В случае, если позже потребуется таким образом переименовывать файлы в одном-двух каталогах (т. е. не массово), можно будет воспользоваться инструментом группового переименования с плагином FileX: зайти в каталог, выбрать файлы, вызвать ИГП с маской [=filex.ParentDir].[C]