Script Request

Обсуждение вопросов автоматизации Total Commander с помощью сторонних программ и скриптовых технологий.

Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер

Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Volniy
Ага, только автор того, что на 11 строке, кто у нас? :wink:

Strek
По нескольку раз надо направлять?
Аватара пользователя
Strek
Сообщения: 205
Зарегистрирован: Вс окт 17, 2010 23:10
Контактная информация:

Сообщение Strek »

Flasher писал(а):По нескольку раз надо направлять?
А это к чему? Что не так?
Аватара пользователя
Volniy
Сообщения: 585
Зарегистрирован: Ср дек 15, 2004 00:17
Откуда: Местный

Сообщение Volniy »

Flasher писал(а):Volniy
Ага, только автор того, что на 11 строке, кто у нас? :wink:
В большинстве строк скрипта есть чего-либо от Microsoft, так может тогда будем сразу БГ запросы направлять? Я же не могу реально отвечать за каждый скрипт, использующий Helper :shock:
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Strek писал(а):А это к чему?
Хелпер установлен?

Volniy
Отвечать за? Я где-то об этом писал? Раз у тебя есть время мониторить темы с появлением твоего ника и отвечать на соотв. сообщения, то и не должно, наверно, затруднить взглянуть на строку с ошибкой в скрипте. Будем из этого исходить.
Аватара пользователя
Strek
Сообщения: 205
Зарегистрирован: Вс окт 17, 2010 23:10
Контактная информация:

Сообщение Strek »

Flasher
Ну так я же написал, что переустанавливал. Последний Beta v12.
И ещё. Вроде как к автоматизации относится. В ярлыке указал брать настройки отсюда /I=wincmd64.ini. Настройки панелей грузятся, а общие нет.
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Strek писал(а):Работал отлично вот этот "tckb.ru/wiki/Перезапуск_Total_Commander" скрипт. Потом в свойствах ярлыка добавил
Было

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

%Total%\TOTALCMD64.EXE
Где было? На TCKB этого нет.
Strek писал(а):Ну так я же написал, что переустанавливал.
Так, как в ReadMe описано?
И цель какая? Просто перезапускать TC? Если да, то этой теме уже обсуждалось.
Strek писал(а):Вроде как к автоматизации относится.
Каким образом?
Аватара пользователя
Strek
Сообщения: 205
Зарегистрирован: Вс окт 17, 2010 23:10
Контактная информация:

Сообщение Strek »

Flasher писал(а):Где было?
Было изначально в свойствах ярлыка, закреплённого в панели задач.
Примечание:Я создал свою системную переменную "%Total%" (то есть путь к Commander-у).
Flasher писал(а):Так, как в ReadMe описано?
Там сложностей нет. Запустил и всё :roll:
Либо "TCWSHelp.exe /REGSERVER". В принципе и так, и так сделал.
Flasher писал(а):И цель какая? Просто перезапускать TC? Если да, то этой теме уже обсуждалось.
Ну да перезапуск. Да вроде как помню, с тобой и обсуждали. Только я же писал, после каких действий перестал работать.
Flasher писал(а):Каким образом?
Тем, что когда перезапуск идёт в Total x64, то подгружать WinCmd64.ini, а когда Total x86 то соответственно WinCmd.ini. Вроде бы как-автоматизация.
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Strek писал(а):Было изначально в свойствах ярлыка, закреплённого в панели задач
А как это к скрипту-то относится?
Strek писал(а):Там сложностей нет.
Сложностей-то нет. Только перед регистрацией желательно дерегистрацию делать.
Strek писал(а):Ну да перезапуск. Да вроде как помню, с тобой и обсуждали.
Со мной, но не с тобой. Пардон, в другой теме.
Strek писал(а):Тем, что когда перезапуск идёт в Total x64
Ясно, с этим тогда уже в автору. Насчёт реализации я уже высказывался.
Аватара пользователя
Strek
Сообщения: 205
Зарегистрирован: Вс окт 17, 2010 23:10
Контактная информация:

Сообщение Strek »

Flasher писал(а):А как это к скрипту-то относится?
Тем, что в скрипте это хочу сделать.
Flasher писал(а):дерегистрацию делать
Сделал. Те же ошибки.
Flasher писал(а):с этим тогда уже в автору
Ну я как бы в твоём скрипте тоже хотел это сделать. Ну да ладно, сейчас пробую на AutoIt сделать.
Flasher писал(а):Со мной, но не с тобой.
:roll:
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Strek писал(а):Тем, что в скрипте это хочу сделать.
Так и надо в нём делать, а не в ярлыке.
Strek писал(а):Ну я как бы в твоём скрипте тоже хотел это сделать.
В моём тебе долго придётся это делать. :lol: Там цели иные.
Strek писал(а):Ну да ладно, сейчас пробую на AutoIt сделать.
Ты AuotIt знаешь? Тогда вообще проблем не вижу..
Аватара пользователя
Strek
Сообщения: 205
Зарегистрирован: Вс окт 17, 2010 23:10
Контактная информация:

Сообщение Strek »

Flasher писал(а):Так и надо в нём делать, а не в ярлыке.
Ну после глюков и начал делать. Только результата нет.
Flasher писал(а):Тогда вообще проблем не вижу
Да вот немного знаю, да проблема та же (по поводу настроек). Что в ярлыке, что в AutoIt, не хочет WinCmd64.ini загружаться правильно. Не пойму откуда он файл настроек подтягивает, если указан путь, откуда нужно его подтянуть?!
Давно как-то пробовал такое (в ярлыке указывать файл настроек). Сначала создал в Roaming\Ghisler, потом в папке Windows, потом на D ... вообщем в разных местах. Пробовал и абсолютный путь прописывать и вообщем по разному. Попотел вообщем, но так и не понял. :)
Можно ли как-то проверить, откуда Total взял настройки (когда он запущен).
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Strek писал(а):откуда нужно его подтянуть?!
Что значит "откуда"? Откуда угодно. Главное - путь писать правильно в нужном месте с указанным ключом.
Strek писал(а):Можно ли как-то проверить, откуда Total взял настройки (когда он запущен).
Множество раз на форуме говорилось - Справка > О Total Commander.
Аватара пользователя
Strek
Сообщения: 205
Зарегистрирован: Вс окт 17, 2010 23:10
Контактная информация:

Сообщение Strek »

Flasher писал(а):Главное - путь писать правильно
Flasher писал(а):Справка > О Total Commander
Всё. :oops:
sergiokapone
Сообщения: 99
Зарегистрирован: Ср ноя 18, 2009 17:53

Сообщение sergiokapone »

Нужен скрипт для программы CPCTool , которая должна обрабатывать выделенный в TC файл следующим образом (пример батника):

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

CPCTool.exe *.tif -o file.cpc 
CPCTool.exe file.cpc -o file.tif
вместо *.tiff -должен быть имя выделенного в ТС файла (входной файл)
file.cpc -имя выходного файла должно быть такое же как и имя входного

Процедура tiff->cpc-tiff должна быть повторена 10 раз. Спасибо.
Аватара пользователя
Rodny
Сообщения: 949
Зарегистрирован: Ср янв 24, 2007 00:59
Откуда: Могилёв, Беларусь

Сообщение Rodny »

sergiokapone
Не совсем понятно, входной файл и "file.tif" в конце второй строки - одно и то же? И 10 раз повторяются эти две строки для одного файла? Если так, то что-то типа (не проверял!):
CPCTool.vbs :

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

'==============================================================================
' Обработка выделенных файлов в CPCTool
' http://forum.wincmd.ru/viewtopic.php?p=91541#91541
'
' Параметры для кнопки (второй и третий параметры необязательны, 
' их можно жёстко прописать в скрипте):
' %L [количество_повторений] "[путь к CPCTool]"
'
' Rodny (с)
'==============================================================================

Option Explicit
'====== Изменяемые параметры ==================================
' Количество повторений
Const DefaultCounter = 10
' Путь к CPCTool
Const DefaultPath = "D:\_install\Graphics\CPC Tool\CPC Tool 5.3\CPCTool-530-Win32-X86.exe"
'==============================================================

Dim FSO, ListFile, F, InputFile, OutputFile, CPCToolPath, Counter, i

Set FSO = CreateObject("Scripting.FileSystemObject")

With WScript
	ListFile = .Arguments(0)
	If .Arguments.Count > 1 Then
		Counter = .Arguments(1)
	Else
		Counter = DefaultCounter
	End If
	If .Arguments.Count > 2 Then
		CPCToolPath = .Arguments(2)
	Else
		CPCToolPath = DefaultPath
	End If
End With

For Each F In Split(FSO.OpenTextFile(ListFile).ReadAll, vbNewLine)
	If (F <> "") And (Right(F, 1) <> "\") Then
		InputFile = """" & F & """"
		OutputFile = FSO.GetParentFolderName(F) & "\" & FSO.GetBaseName(F) & ".cpc"
		
		For i = 1 To Counter
			With CreateObject("WScript.Shell")
				.Run """" & CPCToolPath & """ " & InputFile & " -o """ & OutputFile & """", 0, True
				.Run """" & CPCToolPath & """ """ & OutputFile & """ -o " & InputFile, 0, True
			End With
		Next
		FSO.DeleteFile(OutputFile)
	End If	
Next

Set FSO = Nothing
Wscript.Quit
Кнопка

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Scripts\CPCTool.0.2.vbs
%L 10
C:\Windows\System32\WScript.exe,2
CPCTool.0.2


-1
Последний раз редактировалось Rodny Вт апр 17, 2012 22:00, всего редактировалось 5 раз.
Ответить