Групповое переименование

[Riemann]

Подскажите мне такую ситуацию
Было
01.pdf
02.pdf
03.pdf
04.pdf
05.pdf

Должно
Вокруг света №1 (2844) 2011.pdf
Вокруг света №2 (2845) 2011.pdf
Вокруг света №3 (2846) 2011.pdf
Вокруг света №4 (2847) 2011.pdf
Вокруг света №5 (2848) 2011.pdf

Как с двумя нумерациями решить дилемму?

[Batya]

Как с двумя нумерациями решить дилемму?

ИГП. Первое число брать из имени, второе - счётчик.

[CaptainFlint]

Riemann
Счётчик может принимать параметры прямо в составе шаблона, и счётчиков этих в маске может быть несколько с разными параметрами. См. справку. Ну или, действительно, брать первый номер из имени.

[Riemann]

ИГП. Первое число брать из имени, второе - счётчик.

Бывает в имени нет цифр, месяц например, поэтому забыл добавить этот вариант.

[mod="Avada"]Избыточное цитирование удалено. Соблюдаем правила форума.[/mod]

[Sergiusnet]

но хотелось бы кнопку

Знакомо: я тоже завёл себе когда-то скрипт, который вызывает пользовательскую команду для выполнения группового переименования по шаблону и посылает нажатия {Enter} и {ESC}.

не поделитесь этим скриптиком? пожалуйста?

[sa]

Sergiusnet
Что-то вроде этого:

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

'=============================================================================================
' Описание:   Вызвать пользовательскую команду em_MRT_XXX и послать нажатия клавиш Enter и ESC
' Требования: Необходима регистрация WSH Helper for TC by Volniy
'=============================================================================================
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.UserCmd "em_MRT_XXX"
TCS.SendKeystroke "{Enter}"
TCS.SendKeystroke "{ESC}"
Set TCS = Nothing
Wscript.Quit

[Вахмурка]

не поделитесь этим скриптиком? пожалуйста?

Ну, не этим, но похожим - поделюсь. Только в конце нужно добавить

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

keys {enter}
keys {esc}

Первая строчка запускает переименование, вторая - закрывает окно.

[Sergiusnet]

не работает, выдаёт ошибку:(

[Вахмурка]

Какую?

[Sergiusnet]

Error occurred near line 6 of script MultiRename: local Allkeys=ini.enum_keys(Config, "rename")

[Вахмурка]

Обрати внимание на строчку в таблице:

Вызываемые плагины: win, ini, vec

Видимо, ini не установлен. Его можно взять здесь.

[Sergiusnet]

прошу прощения, а куда этот ini нужно положить?

[Вахмурка]

Туда же, где лежат и остальные плагины - в подпапку plugins (скорее всего по пути c:\Program Files\PowerPro\plugins). Сообщи, что получилось.

[Sergiusnet]

получилось, вроде как переименовывается, но окно не закрывается multirename. видимо esc нажимается раньше чем переименовываются все файлы и отменяет переименование до конца

[Вахмурка]

Хм, странно - у меня все работало. Ну, если у тебя файлов 1000 штук, то, конечно, подождать придется. Попробуй между keys {enter} и keys {esc} вставить wait.for(50). 50 - это число миллисекунд ожидания. Если не будет успевать переименовываться, увеличь.
А вообще заставлять скрипт жать "Ввод" некузяво. Потому что в случае какой-либо ошибки (и невозможности использования Undo) можно получить крупные неприятности на собственную филейную часть. Так что советую отказаться от моего скрипта (и всех аналогичных ему) и воспользоваться командой MULTIRENAME.