View previous topic :: View next topic |
Author |
Message |
Рамирес_Такт
Joined: 29 Aug 2013 Posts: 7
|
(Separately) Posted: Fri Sep 13, 2013 23:48 Post subject: |
|
|
Flasher wrote: | Достаточно скопировать в любую подпапку Коммандера и прописать путь с переменной среды в скрипте |
с TCFS2 и с переменной среды разобрался (хоть узнал, что это такое )
в скрипте у меня теперь девятая строка выглядит так, до последней запятой:
Quote: | TCFS2 = "%COMMANDER_PATH%\Utils\TCF32\TCFS2.exe" |
скрипт запускается (по крайней мере, происходит пауза) и выдает такую ошибку:
строка 40, символ 19, вызванный объект был отключен от клиентов, код 80010108
2Tol!k:
при запуске вашего кода выдает - строка 1, символ 9, синтаксическая ошибка, код 800А03ЕА
пс. вы извините, что я так занудничаю. просто о программировании представления не имею никакого практически, а заставить скрипт работать хочется |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Sep 14, 2013 00:10 Post subject: |
|
|
Рамирес_Такт wrote: | при запуске вашего кода выдает - строка 1, символ 9, синтаксическая ошибка, код 800А03ЕА | сохранили как .vbs ?
а это была |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Sep 14, 2013 00:51 Post subject: |
|
|
Рамирес_Такт
IE и Windows каких версий?
Рамирес_Такт wrote: | ...TCF32\TCFS2.exe" | Почему 3?
Tol!k wrote: | сохранили как .vbs ? | Откуда тогда ошибке взяться? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Sep 14, 2013 01:11 Post subject: |
|
|
а хз
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Sep 14, 2013 01:18 Post subject: |
|
|
Так это и есть ошибка сервера сценариев. Она из воздуха не берётся.
Рамирес_Такт
А если удалить в 40-й стоке то, что в кавычках?: " : .Quit" _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Sep 14, 2013 01:23 Post subject: |
|
|
Flasher wrote: | Она из воздуха не берётся. | ещё раз посмотри, откуда ей здесь взяться ) |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Sep 14, 2013 01:27 Post subject: |
|
|
Tol!k
Ага, не досмотрел, думал - мне вопрос. ) _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Рамирес_Такт
Joined: 29 Aug 2013 Posts: 7
|
(Separately) Posted: Sun Sep 15, 2013 01:15 Post subject: |
|
|
Flasher wrote: |
IE и Windows каких версий?
|
windows xp
google chrome
поправил
Quote: | А если удалить в 40-й стоке то, что в кавычках?: " : .Quit" |
скрипт запускается, но не происходит вообще ничего |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 15, 2013 09:36 Post subject: |
|
|
Рамирес_Такт wrote: | google chrome | При чём тут Хром? IE - это вполне конкретный и встроенный в систему браузер.
Рамирес_Такт wrote: | скрипт запускается, но не происходит вообще ничего | Параметры указаны в соответствии с данными из шапки? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Рамирес_Такт
Joined: 29 Aug 2013 Posts: 7
|
(Separately) Posted: Sun Sep 15, 2013 11:02 Post subject: |
|
|
Flasher wrote: | Параметры указаны в соответствии с данными из шапки? |
да, вот так:
эксплорер версии 6.0.29 |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10278 Location: Россия, Саратов
|
(Separately) Posted: Sun Sep 15, 2013 11:18 Post subject: |
|
|
Рамирес_Такт
Это какая же XP установлена и сколько лет назад при таком Windows Internet Explorer? _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2590
|
(Separately) Posted: Sun Sep 15, 2013 20:37 Post subject: |
|
|
Рамирес_Такт wrote: | но не происходит вообще ничего |
Активна та панель, что с jpg файлами? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Sep 15, 2013 22:17 Post subject: |
|
|
Рамирес_Такт
Не буду настаивать на обновлении старинного IE. Сделаем так:
Добавляем кавычки в 9 строке Quote: | TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe""" | и меняем нижний кусок кода на
этот: Code: | With CreateObject("WScript.Shell")
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c clip < """ & TempFile & """",0,True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run TCFS2 & " /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c clip < """ & TempFile & """",0,True
.Run TCFS2 & " /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "%comspec% /c type|clip ",0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |
Забыл, что в XP нет команды clip. Для XP кусок такой: Code: | With CreateObject("WScript.Shell")
Clip = .ExpandEnvironmentStrings(Clip)
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run """" & TCFS2 & """ /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
.Run """" & TCFS2 & """ /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "cmd /c type|" & Clip,0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |
9 строку не править. Между 9 и 10-й строкой вставить: Code: | '================================= Путь к утилите clip ==================================
Clip = "%COMMANDER_PATH%\Utils\clip.exe" | Скачать clip. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2590
|
(Separately) Posted: Tue Sep 24, 2013 15:39 Post subject: |
|
|
Tol!k wrote: | осталось
3. Загрузить выделение из файла. |
Если для третьего пункта “прикрутить” TCFS2, то можно обойтись одной кнопкой:
Code: | TOTALCMD#BAR#DATA
%ComSpec% /c chcp 1251 &(for /f "delims=" %# in ('dir /b *.jpg') do @echo %~n#.cr2)>C:\.cr2.lst
& "%%COMMANDER_PATH%%\Utils\TCFS2\TCFS2.exe" /ef "tcm(4002) tcm(2032,1) delay(500) send(`~(C:\.cr2.lst){ENTER}`, findwnd(`#32770`)) delay(500) tcm(4001)"
wcmicons.dll,26
Выделить в пассивной правой панели файлы .cr2 одноимённые с файлами *.jpg в активной левой
1
-1
|
Last edited by sa on Thu Sep 26, 2013 21:00; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Sep 25, 2013 22:51 Post subject: |
|
|
sa
Решил испробовать. Открывается окно выбора файла - и тишина, в корне C: остаётся торчать этот файл. Win7/TC x32. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|