Перемещение нужного количества файлов по папкам

[dam-69]

Ваш последний вариант почти устраивает с параметрами "%WL" 1 приставка 0
но вот только что вводить, если приставка не нужна?
т.е. как "избавиться" от приставки?

[Batya]

dam-69
Используй вот этот скрипт.
Поменяй в нём часть кода "Изменяемые параметры":

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

'========== Изменяемые параметры =====================================
'Массив соответствия, задаваемый регулярными выражениями
EF.Add "^([0]{1,})0\.mp3$", "$10"
EF.Add "^(\d{1,})\d\.mp3$", "$10"
'=====================================================================

И ещё надо добавить создание папки, если не существует.
После строки

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

      Fold = Target & Fold & "\"

добавь

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

      If Not FSO.FolderExists(Fold) Then FSO.CreateFolder(Fold)

Скрипт будет работать для любого количества цифр больше 1 в имени файла (например, для 4-значных - "0000.mp3" ... "9999.mp3").

[dam-69]

Batya
Спасибо, всё работает как должно!
Спасибо Всем!

Добавлено спустя 1 час 1 минуту:

Batya
А какие ещё строки добавить в скрипт, чтобы он сначала переименовал отмеченные файлы:
- если файлов > 99шт - по именам 001 ... 100,102, ... 999.mp3
- если файлов менее 100шт - 01 ... 99.mp3
а затем уж рассовал их по папкам.

Посто не хочется лишний раз пользоваться "Групповым переименованием"

[Batya]

dam-69
Считаю, что неправильно задавать условие по количеству файлов.
Как быть, если, например, выделено только 2 файла - "99.mp3" и "100.mp3"?
Но для нормальной реализации нового желания надо полностью переписать скрипт.

Для быстрого же варианта, если отталкиваться только от твоих условий, то:

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

'========== Изменяемые параметры =====================================
'Массив соответствия, задаваемый регулярными выражениями
EF.Add "^00\.mp3$",         "00"
EF.Add "^(0{2,})0\.mp3$",   "$10"
EF.Add "^(\d)\d\.mp3$",     "$10"
EF.Add "^(\d{2,})\d\.mp3$", "$10"
'=====================================================================

И после строки

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

List = Split(FSO.OpenTextFile(ListF).ReadAll, vbNewLine)

добавляем:

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

If UBound(List) > 99 Then
  EF("^00\.mp3$")     = "000"
  EF("^(\d)\d\.mp3$") = "0$10"
End If

[dam-69]

Batya
Наверно я не достаточно чётко сформулировал просьбу. Уточняю.
Ваш предыдущий скрипт меня полностью устраивает - файлы вида 00.mp3 ... 999.mp3 он "рассовывает" превосходно. Но мне перед применением скрипта приходится файлы, например 001blablaIprIdr.mp3 ... 999blablaIprIdr.mp3 или blabla01IprIdr.mp3 ... blabla99IprIdr.mp3 (имя может быть любое) "Группо-переименовывать", обычно все скопом.
Вот и хотелось, что бы ваш предыдущий скрипт перед "рассованием", имена этих файлов привёл к виду 001.mp3 ... 999.mp3 (если mp3 файлов больше 99шт) или 01.mp3 ... 99.mp3 (если mp3 файлов меньше 100шт)

[Batya]

dam-69
Т.е., старое имя вообще не нужно? Нужно переименовать все файлы согласно сортировке (порядка в файле-списке) от 1 до конца, добавив лидирующие нули, в зависимости от общего количества файлов?
Или переместить по начальным цифрам в имени файла, оставив прежнее имя файла нетронутым?

[dam-69]

Как быть, если, например, выделено только 2 файла - "99.mp3" и "100.mp3"

Тогда нужно их переименовать в "01.mp3" и "02.mp3 (или ещё лучше в "1.mp3" и "2.mp3, если отмечено только 2 файла) и переместить в папку 00 (или ещё лучше в 0)

т.е. Если отмеченных файлов *.mp3
< 10 шт - в папку 0 (1.mp3 ... 9.mp3)
< 100 шт- в папки 00 ... 90 (01.mp3 ... 99.mp3)
< 1000 шт - в папки 000 ... 990 (001.mp3 ... 999.mp3)

Добавлено спустя 5 минут:

Т.е., старое имя вообще не нужно? ?

Да, совсем не нужно.

[Batya]

dam-69
Придёться сильно всё переписывать.
У вас эти операции настолько частые, что становится проблематичным выполнять предварительное групповое переименование, нажимая дополнительно несколько кнопок? (Только не надо говорить про полезность скрипта для других.)
Если вам это действительно настолько необходимо, то сделаю через несколько дней.

[dam-69]

Batya
Нет, не часто
Самое муторное - это распихивание. Но это уже в прошлом!

Спасибо

[sa]

Посто не хочется лишний раз пользоваться "Групповым переименованием"

Даже с учётом того, что в нём можно создать шаблоны операций?

[dam-69]

sa
Да шаблон есть. Просто хотелось всё за раз, на одну кнопку.

[sa]

Ясно. Можно ещё немного сократить количество нажатий, задав имя ходового шаблона в ключе MultiRenameLoadSettings (wincmd.ini).

[Tol!k]

что вводить, если приставка не нужна?
т.е. как "избавиться" от приставки?

Чтобы передать "ничего" в качестве параметра, пишите ""

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

"%WL" 1 "" 0

[dam-69]

"%WL" 1 "" 0

проверил, с "" работает как надо. Спасибо, Tol!k!

MultiRenameLoadSettings

- дельный совет, спасибо, прописал.
Ещё раз спасибо Всем за помощь

[Dmit]

Привет друзья

Почитав тему, я понял что и моя задача решаема, но не пойму какой именно скрипт использовать (никогда ранее скриптами не пользовался).

В одном окне у меня 3330 файлов ( по два с одинаковым именем, но с разными расширениями, пронумеованных c 001 по 1665 )

А в другом 108 папок, в которые нужно выбрать определённые файлы по номерам.

P.S. Сейчас я их раскидываю через выделение группы и туда копипастю *0001.* *0119.* *0122.* .... и перемещаю в нужную папку. Занимает это у меня 30-40 минут безотрывочного копипаста руками.