View previous topic :: View next topic |
Author |
Message |
Sergiusnet
Joined: 11 Dec 2012 Posts: 11
|
(Separately) Posted: Tue Dec 11, 2012 15:10 Post subject: Групповое переименование одной кнопкой |
|
|
Имеется несколько шаблонов для группового переименования, нужно вынести кнопки для каждого шаблона на панель инструментов и переименовывать все файлы в активной панели по соответствующему шаблону, без вызова дополнительного диалогового окна multirename. то есть только одной кнопкой, нажал и переименовалось. |
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10415 Location: Россия, Саратов
|
(Separately) Posted: Tue Dec 11, 2012 15:44 Post subject: |
|
|
Sergiusnet
Использование команды multirename имя_шаблона с последующим нажатием Enter (нажатие кнопки "Выполнить"), а затем Escape (закрытие окна инструмента). И окно всё равно фактически отображаться будет, только ненадолго. Вообще без вызова окна задача не решается. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
Sergiusnet
Joined: 11 Dec 2012 Posts: 11
|
(Separately) Posted: Tue Dec 11, 2012 15:51 Post subject: |
|
|
про комманду multirename имя_шаблона знаю, но нужно именно чтобы без дополнительных нажатий, на то она и автоматизация, может быть возможно скриптом это организовать? |
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10415 Location: Россия, Саратов
|
(Separately) Posted: Tue Dec 11, 2012 16:06 Post subject: |
|
|
Sergiusnet
Скриптом — возможно. Прочитают специалисты — напишут. И в правила форума советую заглянуть. Ненужное цитирование удалено. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
sa
Joined: 29 Apr 2009 Posts: 2689
|
(Separately) Posted: Tue Dec 11, 2012 16:13 Post subject: |
|
|
Sergiusnet
Code: | '==================================================================
' Описание: Выделить все файлы, вызвать пользовательскую команду
' и послать нажатия клавиш Enter и ESC
' Параметр: Имя пользовательской команды
' Требования: Необходима регистрация WSH Helper for TC by Volniy
'==================================================================
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_SelectAllFiles"
TCS.UserCmd WScript.Arguments(0)
TCS.SendKeystroke "{Enter}"
TCS.SendKeystroke "{ESC}"
Set TCS = Nothing
Wscript.Quit |
Вообще-то, нажатия из скрипта небезопасны. |
|
Back to top |
|
 |
Sergiusnet
Joined: 11 Dec 2012 Posts: 11
|
(Separately) Posted: Tue Dec 11, 2012 16:38 Post subject: |
|
|
не работает |
|
Back to top |
|
 |
sa
Joined: 29 Apr 2009 Posts: 2689
|
(Separately) Posted: Tue Dec 11, 2012 17:33 Post subject: |
|
|
Кнопка:
Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\VBS\MRT.vbs
em_MRT_XXX
wcmicons.dll,46
Выделить все файлы, вызвать команду em_MRT_XXX, нажать Enter и ESC
-1
|
|
|
Back to top |
|
 |
Вахмурка

Joined: 27 Dec 2004 Posts: 2586 Location: Большая деревня Москва
|
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10415 Location: Россия, Саратов
|
(Separately) Posted: Wed Dec 12, 2012 11:22 Post subject: |
|
|
Вахмурка wrote: | Здесь дискуссия на ту же тему. |
Совершенно верно. Поэтому текущую тему закрываю. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
|