Страница 13 из 52
Добавлено: Ср окт 31, 2012 11:10
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
Как с двумя нумерациями решить дилемму?
Добавлено: Ср окт 31, 2012 11:18
Batya
Riemann писал(а):Как с двумя нумерациями решить дилемму?
ИГП. Первое число брать из имени, второе - счётчик.
Добавлено: Чт ноя 01, 2012 00:07
CaptainFlint
Riemann
Счётчик может принимать параметры прямо в составе шаблона, и счётчиков этих в маске может быть несколько с разными параметрами. См.
справку. Ну или, действительно, брать первый номер из имени.
Добавлено: Чт ноя 08, 2012 20:15
Riemann
Batya писал(а):ИГП. Первое число брать из имени, второе - счётчик.
Бывает в имени нет цифр, месяц например, поэтому забыл добавить этот вариант.
[mod="Avada"]Избыточное цитирование удалено. Соблюдаем
правила форума.[/mod]
Добавлено: Вт дек 11, 2012 11:07
Sergiusnet
sa писал(а):Iori писал(а):но хотелось бы кнопку
Знакомо: я тоже завёл себе когда-то скрипт, который вызывает пользовательскую команду для выполнения группового переименования по шаблону и посылает нажатия {Enter} и {ESC}.
не поделитесь этим скриптиком? пожалуйста?
Добавлено: Вт дек 11, 2012 11:53
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
Добавлено: Вт дек 11, 2012 11:59
Вахмурка
Sergiusnet писал(а):не поделитесь этим скриптиком? пожалуйста?
Ну, не этим, но похожим -
поделюсь. Только в конце нужно добавить
Первая строчка запускает переименование, вторая - закрывает окно.
Добавлено: Вт дек 11, 2012 14:39
Sergiusnet
не работает, выдаёт ошибку:(
Добавлено: Вт дек 11, 2012 16:41
Вахмурка
Какую?
Добавлено: Вт дек 11, 2012 16:59
Sergiusnet
Error occurred near line 6 of script MultiRename: local Allkeys=ini.enum_keys(Config, "rename")
Добавлено: Вт дек 11, 2012 17:04
Вахмурка
Обрати внимание на строчку в таблице:
Вызываемые плагины: win, ini, vec
Видимо, ini не установлен. Его можно взять
здесь.
Добавлено: Ср дек 12, 2012 10:07
Sergiusnet
прошу прощения, а куда этот ini нужно положить?
Добавлено: Ср дек 12, 2012 10:19
Вахмурка
Туда же, где лежат и остальные плагины - в подпапку plugins (скорее всего по пути c:\Program Files\PowerPro\plugins). Сообщи, что получилось.
Добавлено: Ср дек 12, 2012 10:42
Sergiusnet
получилось, вроде как переименовывается, но окно не закрывается multirename. видимо esc нажимается раньше чем переименовываются все файлы и отменяет переименование до конца
Добавлено: Ср дек 12, 2012 12:53
Вахмурка
Хм, странно - у меня все работало. Ну, если у тебя файлов 1000 штук, то, конечно, подождать придется. Попробуй между keys {enter} и keys {esc} вставить wait.for(50). 50 - это число миллисекунд ожидания. Если не будет успевать переименовываться, увеличь.
А вообще заставлять скрипт жать "Ввод" некузяво. Потому что в случае какой-либо ошибки (и невозможности использования Undo) можно получить крупные неприятности на собственную филейную часть. Так что советую отказаться от моего скрипта (и всех аналогичных ему) и воспользоваться командой MULTIRENAME.