| View previous topic :: View next topic |
| Author |
Message |
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
 (Separately) Posted: Sat May 30, 2009 22:02 Post subject: |
 |
|
Обмен кнопками превратили в обсуждение темы обмена кнопками.
Batya, вместо того чтоб поддаваться на провокации, просто посылал бы новичков в соответствующую тему |
|
| Back to top |
|
 |
GGS
Joined: 02 May 2009
Posts: 322
|
| (Separately) Posted: Mon Jun 01, 2009 11:37 Post subject: |
|
|
Возможно ли сделать кнопку для группового переименования выделенных файлов с применением заранее выбранного (сохранённого ранее) шаблона переименования?
Как команде "cm_MultiRenameFiles" передать имя шаблона? |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Mon Jun 01, 2009 11:52 Post subject: |
|
|
| GGS wrote: | | Как команде "cm_MultiRenameFiles" передать имя шаблона? |
У Вахмурки есть скрипт для PowerPro |
|
| Back to top |
|
|
Avada
Joined: 01 Aug 2008
Posts: 10252
Location: Россия, Саратов
|
| (Separately) Posted: Mon Jun 01, 2009 12:59 Post subject: |
|
|
| GGS wrote: | Возможно ли сделать кнопку для группового переименования выделенных файлов с применением заранее выбранного (сохранённого ранее) шаблона переименования?
Как команде "cm_MultiRenameFiles" передать имя шаблона? |
Да, возможно, и в 7.50 это элементарно делается без всяких скриптов. Поскольку появилась новая внутренняя команда с параметрами как раз для этого.
| Quote: | | 12. MULTIRENAME открывает инструмент группового переименования с сохранёнными в указанном шаблоне переименования настройками. |
Это перевод дописки в раздел про панель инструментов. Ну то есть MULTIRENAME имя_шаблона_переименования.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
D1P
Joined: 20 Dec 2004
Posts: 2973
Location: Тбилиси
|
| (Separately) Posted: Mon Jun 01, 2009 15:11 Post subject: |
|
|
| Quote: | | Ну то есть MULTIRENAME имя_шаблона_переименования |
OW SHI~~~ сколько же оно мне времени сэкономило бы, если б сразу выполняло переименование, а не открывало MRT, где ещё ентер надо жать...
Или для этого тоже параметр найдётся?
_________________
База знаний о Total Commander
Блог |
|
| Back to top |
|
|
Scorpkoms
Joined: 31 Mar 2008
Posts: 27
Location: Россия
|
| (Separately) Posted: Tue Jun 02, 2009 15:47 Post subject: |
|
|
Доброго времени!
На ТС 7.04 сделал кнопку перезагрузки ТС,работало,
потом спустя некоторое время вылетают вот такие ошибки:
Вчем может быть дело, TCWSHelpстоит,регестрирован.
На скринах разные пути,это в разное время куда ставил. |
|
| Back to top |
|
|
AR74
Joined: 24 May 2009
Posts: 11
|
| (Separately) Posted: Tue Jun 02, 2009 17:56 Post subject: Обмен кнопками |
|
|
Использование функций Ashampoo UnInstaller с помощью кнопок панели инструмента Total Commander.
Ashampoo UnInstaller - программа инсталятор/деинсталятор, позволяющая поддерживать чистоту системы.
.
Я использую Ashampoo UnInstaller 1.0.
Но мне в ней не нравится:
1. Отсутствие сортировки отчетов-логфайлов *.ecl по времени установки.
2. То что она висит в трее.
3. То что там много чего лишнего, чего я не использую и мешает мне сосредоточится на нажатии нужной кнопки 
Находим в help к Ashampoo UnInstaller информацию по Batch command line parameters. Внимательно читаем и На основании этого создаем три кнопки. Путь к Uninstaller.exe и к иконкам конечно же свои (я их вытащил из Uninstaller.exe и подредактировал, могу выслать кому надо). Еще я создаю папку [C:\Program Files\ashampoo\ECL save\] и указываю ее в настройках AU как "folder of logfile". Это чтоб не мучится с фильтрами для *.ecl в дефолтной save папке и чтобы по контекстному меню кнопки можно было перейти к списку *.ecl.
1) Сохранеие конфигурации. Просто сохраняет и выгружаеццо.
TOTALCMD#BAR#DATA
"C:\Program Files\Ashampoo\Ashampoo UnInstaller Platinum Suite\Uninstaller.exe"
/STORECONFIG
C:\totalcmd\icons\Bar_Icons\ashampoo\storeconfig.ico
STORECONFIG
C:\Program Files\ashampoo\ECL save\
-1
2) Сравнение конфигураций после установки новой программы,создание разностного ecl- файла. Встаем курсором на exe программы или на ее инсталлятор, если он имеет осмысленное имя и жмем на кнопку.В предлагаемом окошке-подтверждении названия файла отчета его (название) можно подредактировать. К сожалению параметр ?%O не позволяет передать имя папки программы, только имена файлов.
TOTALCMD#BAR#DATA
C:\Program Files\Ashampoo\Ashampoo UnInstaller Platinum Suite\Uninstaller.exe /COMPARE
?%O
C:\totalcmd\icons\Bar_Icons\ashampoo\compare.ico
COMPARE
C:\Program Files\Ashampoo\ECL save\
-1
3) Деинсталяция. Переходим по контекстному меню к папке сохранений, сортируем по времени создания или по названию, выбираем *.ecl и деинсталируем. Выгружаеццо опять же само.
TOTALCMD#BAR#DATA
C:\Program Files\Ashampoo\Ashampoo UnInstaller Platinum Suite\Uninstaller.exe /UNINSTALL
%P%N
C:\totalcmd\icons\Bar_Icons\ashampoo\uninstal.ico
UNINSTALL
C:\Program Files\ashampoo\ECL save\
-1
Недостаток - нелзя делать incremental compare. Может есть какая команда недокументированная или кто скрипт напишет?
Вот переделанные конки AU для total панели
ashampoo_total _ico.zip
Last edited by AR74 on Mon Jun 08, 2009 21:07; edited 1 time in total |
|
| Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005
Posts: 349
Location: Москва
|
| (Separately) Posted: Tue Jun 02, 2009 23:29 Post subject: |
|
|
Scorpkoms
приводил бы чтоли скрипт, скринов маловато будет
держи скрипты на корректный рестарт тотала без участия хелпера
способ прикрутки выбирай по вкусу
_________________
  |
|
| Back to top |
|
|
Scorpkoms
Joined: 31 Mar 2008
Posts: 27
Location: Россия
|
| (Separately) Posted: Wed Jun 03, 2009 10:17 Post subject: |
|
|
| LocKtaR-o-DarK wrote: | Scorpkoms
приводил бы чтоли скрипт, скринов маловато будет
держи скрипты на корректный рестарт тотала без участия хелпера
способ прикрутки выбирай по вкусу |
Спасибо,скрипт взят с RU.TCKB.chm вот он:
| Quote: | 'Перезагрузка
Option Explicit
Dim TCS, WshShell, TCexe, Timeout, QuitByTimeOut
Set TCS = CreateObject("TCScript.Helper")
Set WshShell = WScript.CreateObject("WScript.Shell")
TCexe = """" & TCS.TCPath & "\totalcmd.exe"""
'Завершаем работу ТС
TCS.SendCommand "cm_Exit", True
'Ожидание завершения работы ТС
Timeout = 3000 ' Сколько ждать выключения в мсек
Do
Timeout = Timeout - 100
If Timeout < 0 Then QuitByTimeOut = True: Exit Do
WScript.Sleep 100
Loop While TCS.IsRunningTC
'Запускаем новый экземпляр программы
If Not QuitByTimeOut Then WshShell.Run TCexe
Set TCS = Nothing
Set WshShell = Nothing
WScript.Quit
|
|
|
| Back to top |
|
|
BezDNaU
Joined: 31 May 2008
Posts: 65
|
| (Separately) Posted: Wed Jul 08, 2009 20:58 Post subject: Re: Обмен кнопками |
|
|
| Andrey_A wrote: | Для создания образов я пользуюсь программой UltraISO
вот кнопка
TOTALCMD#BAR#DATA
UltraISO.exe
?-copy G:\\ -output D:\MyDiskIso_1 измените привод и путь сохранения
%COMMANDER_PATH%\Programs\UltraISO\UltraISO.exe
Быстро создать образ CD\DVD не открывая UltraISO (в появившимся окошке измените привод G: на свой и укажите свой путь сохранения образа)
%COMMANDER_PATH%\Programs\UltraISO\
-1
следует поменять свой путь к программе
после нажатия вылетает окно в котором можно поменять привод и путь сохранения |
А как сделать чтоб файл создавался с именем=метке диска. |
|
| Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005
Posts: 349
Location: Москва
|
| (Separately) Posted: Sun Jul 12, 2009 16:51 Post subject: |
|
|
BezDNaU
Сценарий:
@echo off
title Создание ISO-образа в папку "%1"
set "pp=%commander_path%\programs\UltraISO.exe"
if not exist "%pp%" (echo Программа UltraISO не найдена&pause)
:dr
set /p "dr= Введите букву привода (пример: h): "
set "dr=%dr:~,1%"
if not defined dr (echo Вы не ввели букву привода&goto:dr)
for /f "tokens=6*" %%a in ('vol %dr%:') do set "label=%%b"
if not defined label set "label=Без метки"
"%pp%" -copy %dr%: -output "%1%label%"
кнопка та же
_________________
|
|
| Back to top |
|
|
universal007
Joined: 16 Jul 2009
Posts: 16
|
| (Separately) Posted: Thu Jul 16, 2009 21:38 Post subject: |
|
|
| LocKtaR-o-DarK wrote: | | Назначение: эта кнопка будет создавать и дополнять вам описание |
Сделал вот так:
w = WScript.CreateObject("WScript.Shell");
w.Run("C:\\Program Files\\Total Commander\\Script\\notepad описание.txt",0);
if (w.AppActivate("Akelpad")){
WriteWord();
KL = false;}
function WriteWord() {
WScript.Sleep(30);
w.SendKeys("~");
w.SendKeys("{~ 80}");
WScript.Sleep(120);
w.SendKeys("~");
WScript.Sleep(30);
w.SendKeys("^v");
WScript.Sleep(30);
w.SendKeys("{F2}");
w.SendKeys("{ESC}");}
И кнопку:
TOTALCMD#BAR#DATA
"c:\Program Files\Total Commander\Script\desc.js"
write
Создание и добавление описания в файл
%COMMANDER_PATH%\Script
-1
Но при нажатии на кнопку получаю сообщение:
Сценарий: c:\Program Files\Total Commander\Script\desc.js
Строка: 2
Символ: 1
Ошибка: Не удается найти указанный файл.
Код: 80070002
Источник: (null)
Где я напортачил?
_________________
universal007 |
|
| Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005
Posts: 349
Location: Москва
|
| (Separately) Posted: Fri Jul 17, 2009 15:48 Post subject: |
|
|
universal007
это старая версия решения задачи
ну раз не найден файл, значит его нет
проверь наличие файла C:\Program Files\Total Commander\Script\notepad.exe
или исправь 2-ю строку на
w.Run("C:\\Program Files\\Total Commander\\Script\\akelpad описание.txt",0);
вот новая версия решения этой задачи, akelpad в ней больше не используется
_________________
|
|
| Back to top |
|
|
universal007
Joined: 16 Jul 2009
Posts: 16
|
| (Separately) Posted: Wed Jul 22, 2009 10:37 Post subject: |
|
|
| VeTeR wrote: | | А может, кто подскажет кнопку, как распакавать архив |
Ответ:
| Spine wrote: | Создаёшь вот такой скрипт
Код:
' File: UnpackHere.vbs
' Description: Распаковывает выделенные архивы в ту же директорию
' где расположены сами архивы, причем каждый архив в
' отдельную папку с именем, как у файла архива
' Requirements: WSH Helper for TC by Volniy |
Хорошо бы, чтобы при этом создавалась одноименная папка, в которую бы и происходила распаковка, а сам архив перемещался в эту же директорию но в подпапку с именем Архив
_________________
universal007 |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Wed Jul 22, 2009 18:39 Post subject: |
|
|
| universal007 wrote: | | Хорошо бы, чтобы при этом создавалась одноименная папка, в которую бы и происходила распаковка |
А скрипт разве не это делает?
| universal007 wrote: | | а сам архив перемещался в эту же директорию но в подпапку с именем Архив |
Ответ уже дан в этой же теме
http://forum.wincmd.ru/viewtopic.php?p=18547#18547 |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
