Скрипты для Total Commander
-
Скрипты - уникальный инструмент для достижения различных целей в работе с файлами и не только, особенно в файловом менеджере, даже если вы раньше об этом ничего не слышали и не знали, то путём простых движений вы можете оптимизировать свои действия
Тема тестирования скриптов создана для увеличения функциональности Total Commander
Всё это делается для тех, кто хочет экономить время и автоматизировать работу
Огромное спасибо участникам, авторам и всем повлиявшим на тему
#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#
В этой теме Каждый может выложить свой скрипт, написанный на любом языке: vbs, js, hta, au3,ahk, bat,cmd... - главное, чтобы он относился как-то к Total Commander, можно было им воспользоваться и к нему было должное описание к применению.
#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#
В теме "Тестирование и заказ скриптов" Каждый может протестировать, дать свой комментарий (все комментарии из этой темы будут удаляться)...если есть интересная идея, вы так же можете поделиться ей в соседней теме и заказать скрипт, а вдруг она покажется интересной для авторов...
#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#Сообщение отредактировал LonerD 25 апреля 2017 - 04:38Читайте: Справочные материалы по работе c TC + Онлайн справка TC
22 ноября 2011 - 13:03 / #1 -
FlasherХм. А если в 31 строке после IconFile убрать = , то же самое покажет?
то же самое25 февраля 2012 - 17:58 / #131 -
Так, а сейчас?Сообщение отредактировал Flasher 25 февраля 2012 - 18:0425 февраля 2012 - 18:03 / #132
-
Сценарий: D:\TC Image\Scripts\My scripts\02.vbs
Строка: 31
Символ: 27
Ошибка: Предполагается наличие Then'
Код: 800A03F9
Источник: Ошибка компиляции Microsoft VBScript25 февраля 2012 - 18:18 / #133 -
Прошу прощения, поспешил, добавил Then.25 февраля 2012 - 18:23 / #134
-
Flasher
Ты молодец!!! Работает! Надеюсь такие инструменты многим пригодятся,хотелось бы ,чтобы в сборке тотала они присутствовали
Огромное тебе спасибо!25 февраля 2012 - 18:31 / #135 -
371121
Спасибо на добром слове и на здоровье! (можно и плюсануть на скриптах
). А вот мне интересно - насколько долго скрипт с 4000 папок отрабатывает?
Да, согласен, сами инструменты общий интерес представляют, особенно скрипт перемещения.Сообщение отредактировал Flasher 25 февраля 2012 - 18:5225 февраля 2012 - 18:49 / #136 -
FlasherА вот мне интересно - насколько долго скрипт с 4000 папок отрабатывает?
Самое большее секунд пять (сам удивляюсь)25 февраля 2012 - 19:04 / #137 -
Обновлены вспомогательные скрипты:
FunctionsPlus.vbs (Версия: 2.3 от 22.03.2012) - файл с различными функциями, которые можно использовать в других скриптах
FunctionsINIRWS.vbs (Версия: 1.4 от 19.03.2012) - файл с функциями чтения и записи INI файлов + FunctionsINITextRWS.vbs
скачать можете в шапке темыСообщение отредактировал Andrey_A 23 марта 2012 - 16:21Читайте: Справочные материалы по работе c TC + Онлайн справка TC
23 марта 2012 - 16:20 / #138 -
Ну что ж, внесу свои пять копеек.GoParallelDreamLair.vbs
Перейти в параллельную (соседнюю) директорию, не заходя в текущую.'=================================================================
' GoParallelDreamLair.vbs
' Navigate to parallel directory with bypassing parent directory
' Перейти в параллельный каталог, не заходя в родительский
' Перейти до паралельного каталогу, не заходячи до батьківського
' Parameter: 1 (forward navigation) or 0 (backward navigation)
' Параметр: 1 (прямая навигация) или 0 (обратная навигация)
' Параметр: 1 (пряма навігація) або 0 (зворотня навігація)
'=================================================================
' Author: LonerD (idea by Andrey Averin)
' Build: 1.0 (2012.08.04)
' OfSite: http://dreamlair.net
'=================================================================
TCMC = "%commander_path%\Plugins\exe\TCMC\TCMC.exe"
'=================================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Nav = WScript.Arguments(0)
If StrComp(Nav,0,vbTextCompare) <> 0 and StrComp(Nav,1,vbTextCompare) <> 0 Then WScript.Quit
RunTCMC("CM2002 CM2018") : WScript.Sleep 40 : Path1 = GetClip
Select Case Nav
Case 0 WSH.SendKeys "{UP}" : WScript.Sleep 40 : WSH.SendKeys "{UP}" : WScript.Sleep 40 : WSH.SendKeys "{DOWN}" : WScript.Sleep 40
Case 1 WSH.SendKeys "{DOWN}" : WScript.Sleep 40
End Select
RunTCMC("CM2018") : WScript.Sleep 40 : Path2 = GetClip
If Nav = 1 Then
If FSO.FolderExists(Path2) and (StrComp(Path1,Path2,vbTextCompare) <> 0) Then
RunTCMC("CM2003")
Else
WSH.SendKeys "{HOME}" & "{DOWN}" : WScript.Sleep 400 : RunTCMC("CM2003")
End If
End If
If Nav = 0 Then
If StrComp(Path1, Path2 ,vbTextCompare) = 0 Then
WSH.SendKeys "{END}" : RunTCMC("CM2050") : WScript.Sleep 40 : RunTCMC("CM2018") : WScript.Sleep 40 : Path3 = GetClip : WScript.Sleep 40
If FSO.FolderExists(Path3)=false Then WSH.SendKeys "{UP}"
End If
WScript.Sleep 400 : RunTCMC("CM2003")
End If
Set WSH = Nothing : WScript.Quit
Sub RunTCMC(Comm) : WSH.Exec(TCMC & " 20 " & Comm) : End Sub
Function GetClip
On Error Resume Next
GetClip = ""
Set objIE = CreateObject("InternetExplorer.Application") : objIE.Navigate("about:blank")
GetClip = objIE.document.parentWindow.clipboardData.getData("Text")
objIE.Quit
End Function
Для работы нужна утилита TCMC (указать путь к ней в скрипте).
Навигация возможна в прямом и обратном направлении.
Для навигации вперёд (в следующий каталог) надо указать в параметрах скрипта цифру 1, для навигации назад (в предыдущий каталог) - цифру 0. Если параметры другие, то скрипт ничего не делает и тихо закрывается.
Навигация круговая, то есть если мы в последнем каталоге в панели, то после вызова скрипта оказываемся в первом (при обратной навигации - наоборот, от первого перемещаемся в последний)
Что подразумевается под параллельным каталогом?
Например, имеется несколько каталогов:
С:\2012\Январь\
С:\2012\Февраль\
С:\2012\Март\
С:\2012\Апрель\
Мы находимся в каталоге Февраль. Вызвав скрипт, мы окажемся в каталоге Март, после следующего вызова - в каталоге Апрель, после следующего вызова - в каталоге Январь и т.д. по кругу.
В отличие от скрипта Андрея Аверина GoParallelDirectory.vbs, моя версия скрипта:
- может перемещаться между каталогами как в прямом, так и в обратном направлении;
- работает тихо по-кругу, не высвечивая диалоговых окошек;
- работает заметно медленней, но при этом не вызывает постоянные крахи "Память не может быть read".Сообщение отредактировал LonerD 5 августа 2012 - 00:094 августа 2012 - 17:14 / #139 -
Цитата: LonerDНу что ж, внесу свои пять копеек.
LonerD добрался и до скриптов) Ждём ещё открытий! Молодец!
единственный момент мне не нравится, который я замечал на разных сайтах: Те кто знает английский, почему-то старательно прописывают комментарии в скриптах на английском, причём на русских сайтах. Почему-бы и на русском тоже не написать.Цитата: LonerDно при этом не вызывает постоянные крахи "Память не может быть read"
Ни разу не видел такогоСообщение отредактировал Andrey_A 4 августа 2012 - 19:15Читайте: Справочные материалы по работе c TC + Онлайн справка TC
4 августа 2012 - 18:28 / #140
Статистика форума, пользователей онлайн: 0 (за последние 30 минут)
---
- Создано тем
- 107
- Всего сообщений
- 4048
- Пользователей
- 99000
- Новый участник
- termojader
Powered by Bullet Energy Forum