Total Commander

Flasher писал(а):Достаточно скопировать в любую подпапку Коммандера и прописать путь с переменной среды в скрипте

с TCFS2 и с переменной среды разобрался (хоть узнал, что это такое

)
в скрипте у меня теперь девятая строка выглядит так, до последней запятой:

TCFS2 = "%COMMANDER_PATH%\Utils\TCF32\TCFS2.exe"

скрипт запускается (по крайней мере, происходит пауза) и выдает такую ошибку:
строка 40, символ 19, вызванный объект был отключен от клиентов, код 80010108

2Tol!k:

при запуске вашего кода выдает - строка 1, символ 9, синтаксическая ошибка, код 800А03ЕА

пс. вы извините, что я так занудничаю. просто о программировании представления не имею никакого практически, а заставить скрипт работать хочется

Рамирес_Такт писал(а):при запуске вашего кода выдает - строка 1, символ 9, синтаксическая ошибка, код 800А03ЕА

сохранили как .vbs ?
а это была

Tol!k писал(а):кнопка

Рамирес_Такт
IE и Windows каких версий?

Рамирес_Такт писал(а):...TCF32\TCFS2.exe"

Почему 3?

Tol!k писал(а):сохранили как .vbs ?

Откуда тогда ошибке взяться?

Flasher писал(а):Откуда

а хз

Так это и есть ошибка сервера сценариев. Она из воздуха не берётся.

Рамирес_Такт
А если удалить в 40-й стоке то, что в кавычках?: " : .Quit"

Flasher писал(а):Она из воздуха не берётся.

ещё раз посмотри, откуда ей здесь взяться )

Tol!k
Ага, не досмотрел, думал - мне вопрос. )

Flasher писал(а): IE и Windows каких версий?

windows xp
google chrome

Flasher писал(а):Почему 3?

поправил

А если удалить в 40-й стоке то, что в кавычках?: " : .Quit"

скрипт запускается, но не происходит вообще ничего

Рамирес_Такт писал(а):google chrome

При чём тут Хром? IE - это вполне конкретный и встроенный в систему браузер.

Рамирес_Такт писал(а):скрипт запускается, но не происходит вообще ничего

Параметры указаны в соответствии с данными из шапки?

Flasher писал(а):Параметры указаны в соответствии с данными из шапки?

да, вот так:

"%P" "%T" jpg cr2

эксплорер версии 6.0.29

Рамирес_Такт
Это какая же XP установлена и сколько лет назад при таком Windows Internet Explorer?

Рамирес_Такт писал(а):но не происходит вообще ничего

Активна та панель, что с jpg файлами?

Рамирес_Такт
Не буду настаивать на обновлении старинного IE. Сделаем так:
Добавляем кавычки в 9 строке

TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""

и меняем нижний кусок кода на
[cut="этот:"]

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

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

[/cut]
Забыл, что в XP нет команды clip. Для XP кусок [cut="такой:"]

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

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

[/cut]9 строку не править. Между 9 и 10-й строкой вставить:

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

'================================= Путь к утилите clip ================================== 
Clip  = "%COMMANDER_PATH%\Utils\clip.exe"

Скачать clip.

Tol!k писал(а):осталось
3. Загрузить выделение из файла.

Если для третьего пункта “прикрутить” TCFS2, то можно обойтись одной кнопкой:

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

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

sa
Решил испробовать. Открывается окно выбора файла - и тишина, в корне C: остаётся торчать этот файл. Win7/TC x32.

Total Commander

Выделение файлов с одинаковыми именами и разным расширением