View previous topic :: View next topic |
Author |
Message |
jentoso
Joined: 20 Dec 2007 Posts: 352
|
(Separately) Posted: Tue Apr 30, 2013 15:41 Post subject: |
|
|
ask-rus
Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe %commander_path%\HOTKEY.txt
%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe
AkelPad
%COMMANDER_PATH%\Utils\AkelPad\
-1
|
_________________ TC 11.03 combo, Windows 10 x64 |
|
Back to top |
|
|
ask-rus
Joined: 10 Nov 2009 Posts: 2076 Location: Russian Federation
|
(Separately) Posted: Tue Apr 30, 2013 15:48 Post subject: |
|
|
Мда, а я в поле Параметры ввожу путь до файла... Первый класс. _________________ «Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Tue Apr 30, 2013 15:54 Post subject: |
|
|
по уму, в Параметры и надо – это же параметр для редактора (путь\файл)
Но
1. нужно удваивать %%
2. всё равно не работает
-----------------
похоже на баг |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Apr 30, 2013 16:05 Post subject: |
|
|
Есть ещё такой вариант:
Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\SOFT\AkelPad\AkelPad.exe
NOTE\Note1.txt
wcmicons.dll,28
Открыть файл в текстовом редакторе
%COMMANDER_PATH%\ | или такой: Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\SOFT\AkelPad\AkelPad.exe
..\..\NOTE\Note1.txt
wcmicons.dll,28
Открыть файл в текстовом редакторе
%COMMANDER_PATH%\SOFT\AkelPad\ |
Tol!k wrote: | похоже на баг | С чего бы? То, что AkelPad не понимает иные переменные среды вне методов, - это данность, а не баг.
С методом будет запускаться без проблем:
Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\SOFT\AkelPad\AkelPad.exe
/OpenFile("%%COMMANDER_PATH%%\NOTE\Note1.txt")
wcmicons.dll,28
Открыть файл в текстовом редакторе |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Tue Apr 30, 2013 20:37 Post subject: |
|
|
Flasher wrote: | AkelPad не понимает |
не AkelPad
угадай, откуда в этой кнопке раки?
Code: | TOTALCMD#BAR#DATA
%ProgramFiles%\EditPlus3\editplus.exe
%%commander_path%%\wcx\multiarc\multiarc.ini
%ProgramFiles%\EditPlus3\editplus.exe,4
multiarc.ini
-1
|
Добавлено спустя 15 минут:
вар. №3
Code: | TOTALCMD#BAR#DATA
cmd /c start "" "%commander_path%\AkelPad\AkelPad.exe"
"%%commander_path%%\wcx\multiarc\multiarc.ini"
%commander_path%\AkelPad\AkelPad.exe,1
multiarc.ini
1
-1
|
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Apr 30, 2013 23:02 Post subject: |
|
|
А что же ещё? Больше там понимать нечему. В примере про зимовку уже другого редактора касается. TC же не конвертировал там переменные среды никогда, это by disign (сделано для возможности правильной передачи внутренних переменных интерпретаторов и знаков процента). Обсуждалось несколько раз. В памятке я писал о допустимости (внешними программами, разумеется).
Последний пример с cmd я бы, конечно, не стал предлагать. Лучше уж тогда с nircmd. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
bbcby
Joined: 05 Mar 2006 Posts: 58
|
(Separately) Posted: Thu Jun 13, 2013 03:10 Post subject: |
|
|
Здравствуйте. Помогите с кнопкой.
Процедура, которая выполняется почти вручную, есть 2 файла
makeAvs.cmd
Code: | for %%x in (*.mkv) do (
echo.Import^("template.avs"^)
echo.DoIt^("%%x"^)
) > "%%~nx.avs" |
template.avs
Code: | function DoIt(string filename)
{
FFmpegSource2(filename, vtrack=-1, atrack=1, width=720, height=480, resizer="LANCZOS", colorspace="YUY2")
AssumeFPS(24000, 1001)
ColorMatrix(mode="Rec.709->Rec.601", inputFR=false, clamp=0)
#~ FadeIO0(5)
#~ FadeIO0(5)
#~ ConvertToStereo()
return last
} |
оба файла лежат в директории с MKV файлами, запуском makeAvs.cmd генерирутются AVS файлы,
напр. имеются MKV:
Castle.s05e01.1080p.WEB-DL.mkv
Castle.s05e02.1080p.WEB-DL.mkv
Castle.s05e03.1080p.WEB-DL.mkv
получаем AVS:
Castle.s05e01.1080p.WEB-DL.avs
Castle.s05e02.1080p.WEB-DL.avs
Castle.s05e03.1080p.WEB-DL.avs
Содержание AVS файла:
Code: | Import("template.avs")
DoIt("Castle.s05e02.1080p.WEB-DL.mkv") |
Хотелось бы на это дело кнопку, которая генерировала бы AVS файлы на выделенные в данный момент в коммандере файлы.
И чтобы темплейты (makeAvs.cmd и template.avs) лежали в своей постоянной директории. А то приходится их постоянно тягать туда-сюда.
Надеюсь изложил понятно. Заранее спасибо за помощь. С CMD.EXE не очень дружу. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 13, 2013 06:38 Post subject: |
|
|
bbcby
Содержимое файла template.avs можно было не приводить. makeAvs.cmd выкинуть. Для кнопки:
Команда: %ComSpec% /c for /f "delims=" %x in
Параметры: ('type "%WF"') do >"%%~nx.avs" (echo.Import^("Полный путь к template.avs"^) & echo.DoIt^("%%x"^))
Путь запуска очистить. Поставить галку "в свёрнутом виде". _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
bbcby
Joined: 05 Mar 2006 Posts: 58
|
(Separately) Posted: Thu Jun 13, 2013 13:12 Post subject: |
|
|
Flasher
Спасибо. Все супер.
Один момент только, если назв. файла по-русски получаем кракозяблы внутри AVS.
Добавлено спустя 29 минут:
Flasher
Ничего не дало.
PS это мой ответ на предыдущее сообщение, которое пропало. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 13, 2013 14:06 Post subject: |
|
|
bbcby
А если вместо пробелов знаки подчёркивания? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
bbcby
Joined: 05 Mar 2006 Posts: 58
|
(Separately) Posted: Thu Jun 13, 2013 14:19 Post subject: |
|
|
Flasher wrote: | bbcby
А если вместо пробелов знаки подчёркивания? |
Вы имеете ввиду в имени файла? Если да то ничего. Получается так:
Code: | Import("D:\avs_auto\template_ff_720.avs")
DoIt("‹ҐЈҐ¤ _¤«п_®ЇҐаиЁ.mpg") |
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 13, 2013 14:23 Post subject: |
|
|
bbcby
С исходником? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
bbcby
Joined: 05 Mar 2006 Posts: 58
|
(Separately) Posted: Thu Jun 13, 2013 14:36 Post subject: |
|
|
Flasher wrote: | bbcby
С исходником? |
Что-то я запутался. Поясню так. Исходное имя файла, на который создается AVS:
Кто поедет в Трускавец.mpg
получаем AVS:
Кто поедет в Трускавец.avs
с содержимым
Code: | Import("D:\avs_auto\template_ff_720.avs")
DoIt("Љв® Ї®Ґ¤Ґв ў ’агбЄ ўҐж.mpg") |
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 13, 2013 14:48 Post subject: |
|
|
Исходник - это предложенный вариант кнопки без исправлений.
Вообще тут дело в правильном прочтении текстовым редактором нужной кодировки. Файл сохраняется в OEM.
Программа-то эти avs как читает?
vbs, чтоб не мучаться:
Code: | '===================================================================================
' Создание avs-файлов для выбранных mkv-файлов
' Параметр: %L
'===================================================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
Set File = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not File.AtEndOfStream
F = Trim(File.ReadLine)
If F <> "" Then
If StrComp(.GetExtensionName(F), "mkv", 1) = 0 Then
PF = .GetParentFolderName(F) & "\" : NF = .GetBaseName(F) & ".avs"
If Not .FileExists(PF & NF) Then .OpenTextFile(PF & NF, 2, True).Write _
"Import(""template.avs"")" & vbNewLine & "DoIt(""" & .GetFileName(F) & """)"
End If
End If
Loop
End With | К template.avs дописать полный путь.
Работать можно в режиме без подкаталогов и результатов поиска. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Jun 13, 2013 16:12; edited 1 time in total |
|
Back to top |
|
|
bbcby
Joined: 05 Mar 2006 Posts: 58
|
(Separately) Posted: Thu Jun 13, 2013 15:14 Post subject: |
|
|
Quote: | Файл сохраняется в OEM. |
template_ff_720.avs в OEM? Ничего не дало.
Quote: | Программа-то эти avs как читает? |
Не понял, какую программу имеете ввиду.
Добавлено спустя 11 минут:
Quote: | vbs, чтоб не мучаться: |
а какие параметры для кнопки? |
|
Back to top |
|
|
|