Описание вспомогательной функции


_Exit

Завершает процесс TCIMG.

_Exit()

Параметры

Нет

Примечания


Функцию можно подключить через команду exect

Примеры:
 Как создать кнопку?


exect=$var_i1=[info=x10]||$var_i2=[info=x11]||$var_i3=($var_i1=0~~OR~~$var_i2=0)?_Exit():($var_i1>$var_i2?$var_i2:$var_i1) slist=[tc=AL] sends=[tc=TL]??-1 forpgs <FOR> 1 <TO> $var_i3 copyy=GLOBALSLIST<:INDEX:>||GLOBALSENDS<:INDEX:>//0 <NEXT> ;; копировать выделенные файлы по одному в соответствующие порядку выделения папки другой панели

exect=$var_s=NOT~~ClipGet()?_Exit():0 ;; если буфер обмена пуст, то завершение работы (можно вставлять перед серией команд для проверки)

exect=$var_s=NOT~~ClipGet()?_Exit():'Буфер~~не~~пустой'||_ViewValues('$var_s') ;; если буфер обмена пуст, то завершение работы (можно вставлять перед серией команд для проверки)

exect=$var_s=FileSelectFolder('Выберите~~каталог.','::{450D8FBA-AD25-11D0-98A8-0800361B1103}',1)||Eval('var_s')?_ViewValues('$var_s'):_Exit() ;; отображает диалог выбора папки. Если не выбрана, то выход

exect=$var_s=FileSaveDialog('Выберите~~имя.','::{450D8FBA-AD25-11D0-98A8-0800361B1103}','Скрипт(*.aut;*.au3)|Текстовый~~файл(*.ini;*.txt)',2)||Eval('var_s')?_ViewValues('$var_s'):_Exit() ;; отображает диалог сохранения файла. Если не выбран, то выход

exect=$var_s=FileOpenDialog('Выберите~~имя.','::{450D8FBA-AD25-11D0-98A8-0800361B1103}','Скрипт(*.aut;*.au3)|Текстовый~~файл(*.ini;*.txt)',2)||Eval('var_s')?_ViewValues('$var_s'):_Exit() ;; отображает диалог открытия файла. Если не выбран, то выход

exect=$var_put=FileOpenDialog('Select~~the~~file','::{450D8FBA-AD25-11D0-98A8-0800361B1103}','File~~Wallet(*.exe)',2)||_ViewValues('$var_put')||$var_put=$var_put=''''?_Exit():$var_put||_ViewValues('$var_put') ;; отображает диалог открытия файла. Если не выбран, то выход

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Продолжить~~работу?',20)||$var_i=$var_n=7?_Exit():1||_ViewValues('Работа~~продолжена') ;; пример вызова диалога, завершение при нажатии на кнопку "Нет", продолжение при нажатии на кнопку "Да", при истечении 20 секунд после появления диалога так же продолжения работы...

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Отменить~~задачу?',20)||$var_i=$var_n=6?_Exit():1||_ViewValues('Работа~~продолжена') ;; пример вызова диалога, завершение при нажатии на кнопку "Да", продолжение при нажатии на кнопку "Нет", при истечении 20 секунд после появления диалога так же продолжения работы...

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Заменить~~содержимое~~в~~папке~~ПН?')||$var_i=$var_n=7?_Exit():1 delss=PS<%T%M>||1 copys=FOLDC<%WL>||%T%M//0 beepss ;; заменить содержимое каталога в панели назначения на содержимое выделенных папок в активной панели

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~текущую~~папку?')||$var_i=$var_n=7?_Exit():1 tcimg=$cm2002 delsm="%p"||1||upd<1> ;; удалить текущую папку (возможность отмены действия)

exect=$var_s=ClipGet()||$var_i=StringRegExp(ClipGet(),'([^A-Za-z\d])',0)?MsgBox(48+4096,'Результат','Число~~в~~буфере~~не~~является~~хэшем.')&_Exit():1||$var_i=StringLen('$var_s')||$var_n=$var_i=8?3:($var_i=32?1:($var_i=64?6:($var_i=128?8:MsgBox(48+4096,'Результат','Число~~в~~буфере~~не подходит~~под~~условие~~проверки.')&_Exit())))||$var_path=$var_n&'%P%N' <IF> <info=f$var_path|1//> = $var_s <THEN> exect=MsgBox(64+4096,'Результат','Контрольные~~суммы~~совпадают.') <ELSE> exect=MsgBox(48+4096,'Результат','Контрольные~~суммы~~не~~совпадают.') <ENDIF> ;; сравнить контрольные суммы файла под курсором и буфера обмена, в зависимости от длины строки буфера: если 8, то сравнение происходит по CRC32, если 32 - MD5, если 64 - SHA256, если 128 - SHA512, в сплывающем окне с ручным закрытием, сообщить результат

textv=C:\Test.txt exect=$var_n=MsgBox(4+32+262144,'Сообщение','Продолжить~~выполнение~~команды?')||$var_i=$var_n=7?_Exit():1 sends=C:\Test.txt??-1||&&[^\r\n]+=!! textt=C:\Test.txt||##TOTALCMD#BAR#DATA@CRLFGLOBALSENDS<x2>@CRLFGLOBALSENDS<x3>@CRLFGLOBALSENDS<x1>@CRLFGLOBALSENDS<x6>@CRLFGLOBALSENDS<x4> ;; открыть в просмотрщике файл C:\Test.txt , закрыть просмотрщик, в появившемся диалоговом окне выбрать продолжение команды или отмена, если продолжить, то в содержимом файла C:\Test.txt оставить все, что после первого знака равенства и манипулируя полученными строками привести их к желаемому виду

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Отменить~~последнее~~переименование?')||$var_i=$var_n=7?_Exit():1 renms=$f200Lists\AfterRenaming.txt||list<$f200Lists\BeforeRenaming.txt>||upd<1> ;; отменить последнее переименование осуществленное командами TCIMG (требуется подтверждение)

exect=$var_i1=[info=x10]||$var_i2=[info=x11]||$var_i3=($var_i1=0~~OR~~$var_i2=0)?_Exit():($var_i1>$var_i2?$var_i2:$var_i1) slist=[tc=AL] sends=[tc=TL]??-1 forpgs <FOR> 1 <TO> $var_i3 movee=GLOBALSLIST<:INDEX:>||GLOBALSENDS<:INDEX:>//0 <NEXT> desel=10 ;; переместить выделенные файлы по одному в соответствующие порядку выделения папки другой панели

exect=$var_i1=[info=x10]||$var_i2=[info=x11]||$var_i3=($var_i1=0~~OR~~$var_i2=0)?_Exit():($var_i1>$var_i2?$var_i2:$var_i1) slist=[tc=AL] sends=[tc=TL]??-1 forpgs <FOR> 1 <TO> $var_i3 copyy=GLOBALSLIST<:INDEX:>||GLOBALSENDS<:INDEX:>//0 <NEXT> desel=10 ;; копировать выделенные файлы по одному в соответствующие порядку выделения папки другой панели

exect=$var_i=##<info=t1-1>||$var_s=$var_i=4?'v,1,4':($var_i>4?'v,3,5':_Exit())||_ViewValues('$var_s') rends=-1??-1||?T|$var_s GLOBALRENDS<a> ;; если в буфера обмена 4 строки, то выполнить одну команду, если больше 4, то другую, если меньше, то выход

exect=$var_i=##<info=t1-1>||$var_s=$var_i=4?'v,1,4':($var_i>4?'v,3,5':MsgBox(4096,'Ошибка','Э-э-э,~~а~~где~~нормальные~~данные?')&_Exit())||_ViewValues('$var_s') rends=-1??-1||?T|$var_s GLOBALRENDS<a> ;; если в буфера обмена 4 строки, то выполнить одну команду, если больше 4, то другую, если меньше, то сообщение с выходом

exect=$var_i=##<info=t1-1>||$var_s=$var_i=4?_CmdCm('rends=-1??-1¦¦?T|v,1,4¦¦?F63¦¦?E|1:-1'):($var_i>4?_CmdCm('rends=-1??-1¦¦?T|v,3,5'):_Exit()) GLOBALRENDS<a> ;; если в буфера обмена 4 строки, то выполнить одну команду, если больше 4, то другую, если меньше, то выход

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы~~с~~счётчиком~~_№~~в~~конце~~имени?')||$var_i=$var_n=7?_Exit():1 delss=PS<"%p"//1//0>||1||test<1n!!_\d+$>||upd<1> ;; удалить файлы в активной панели с нумерацией _№ в конце имени (без рекурсии)

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы~~с~~цифрами~~в~~именах?')||$var_i=$var_n=7?_Exit():1 delss=PS<"%p"//1//0>||1||test<1n!!\d>||upd<1> ;; в активной панели удалить файлы в имени которых есть цифры (без рекурсии)

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы~~с~~цифрами~~в~~именах?')||$var_i=$var_n=7?_Exit():1 delss=PS<"%p"//1//0>||1||test<1n!!\d>||upd<1> ;; в активной панели удалить файлы в имени которых есть цифры (с запросом для подтверждения)

exect=$var_i=StringRight('D:\Test\File.vhd',3)='vhd'?_CmdCm('команда'):_Exit() ;; проверить расширение файла, если совпадает, то запустить заданную команду, в ином случае выход

exect=$var_0=Assign('STRUCT_1',DllStructCreate('dword~~Size;hwnd~~hWndOwnder;handle~~hInstance;dword~~rgbResult;ptr~~CustColors;dword~~Flags;lparam~~lCustData;ptr~~lpfnHook;ptr~~lpTemplateName'),2)+Assign('STRUCT_2',DllStructCreate('dword[16]'),2)+DllStructSetData($STRUCT_1,'Size',DllStructGetSize($STRUCT_1))+DllStructSetData($STRUCT_1,'hWndOwnder',GUICreate(0,200,300,-1,-1))+DllStructSetData($STRUCT_1,'rgbResult','0xC5B248')+DllStructSetData($STRUCT_1,'CustColors',DllStructGetPtr($STRUCT_2))+DllStructSetData($STRUCT_1,'Flags',259)||$var_iyn=DllCall('comdlg32.dll','bool','ChooseColor','struct*',$STRUCT_1)[0]||$var_0=$var_iyn=0?_Exit():1||$var_num=DllStructGetData($STRUCT_1,'rgbResult')||$var_ibrg=Hex($var_num,6)||_ViewValues('$var_ibrg','BRG~~Color') ;; создание и запуск окна выбора цвета

exect=$var_0=Assign('STRUCT_ICON',DllStructCreate('int'),2)+Assign('STRUCT_STRING',DllStructCreate('wchar[260]'),2)+DllStructSetData($STRUCT_STRING,1,@SystemDir&'\shell32.dll')||$var_iyn=DllCall('shell32.dll','int',62,'hwnd',GUICreate(0,400,400,-1,-1),'struct*',$STRUCT_STRING,'int',DllStructGetSize($STRUCT_STRING)/2,'struct*',$STRUCT_ICON)[0]||$var_0=$var_iyn=0?_Exit():1||$var_s=DllStructGetData($STRUCT_STRING,1)&','&DllStructGetData($STRUCT_ICON,1)||_ViewValues('$var_s','Путь~~и~~номер~~значка') ;; выбор значка в системном диалоге

imgpr=1 start=FLAC||-s||--ignore-chunk-sizes||-8||list<%WL>||%%d||&&hide||&&wait exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~исходные~~файлы~~WAV?')||$var_i=$var_n=7?_Exit():1 delss=%WL||1 ;; конвертировать выделенные файлы WAV в формат FLAC с максимальной компрессией с сохранением в активной панели, с удалением (требуется подтверждение) исходных WAV в корзину (используется кодер/декодер FLAC)

exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~выделенные~~объекты?')||$var_i=$var_n=7?_Exit():1 delss=%WL||1 ;; удалить выделенные объекты минуя корзину (требуется подтверждение)

imgpr=1 slist=%WL xlist=%WL||##path<4> <FOR> 1 <TO> GLOBALSLIST<0> start=FFmpeg||-i||GLOBALSLIST<:INDEX:>||-acodec||libmp3lame||-q:a||[input=BOX84]||GLOBALXLIST<:INDEX:>.mp3||&&hide||&&wait <NEXT> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~исходные~~файлы?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||upd<1> ;; конвертировать выделенные файлы (медиаконтент) в mp3 с переменным битрейтом (выбор в диалоговом окне), с сохранением в активной панели + удаление исходных файлов (требуется подтверждение)
sends=-1||?F2,sym1 exect=$var_i='GLOBALSENDS<1>'?1:_Exit() bufsr=&&(?s)(GLOBALSENDS<1>)(.+GLOBALSENDS<1>)(.*)!!$1$3||?F63 ;; в буфере обмена удалить информацию между повторяющимися строками (если они есть), оставив одну из них + удалить

sends=@%P%N exect=$var_i3=[info=i6GLOBALSENDS<1>]>1?_Exit():0 infbx=InfoBox_TEST1 ;; пример проверки: если под курсором анимированный GIF файл, то выход
marks=1||test<1n!!\(\d+\)$> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы~~с~~счётчиком~~()~~в~~конце~~имён?')||$var_i=$var_n=7?_Exit():1 delss=[tc=AL]||1||upd<1> ;; удалить файлы с счётчиком (№) в конце имён

exect=$var_i=<info=s70Notepad.exe>=1?_Exit():0 start=%%WINDIR%%\notepad.exe ;; если не существует процесса Notepad.exe, то запустить программу

slist=FOLDC<"C:\PathList.txt"//0//1>||<dellist=C:\DelList.txt|5> exect=$var_i='GLOBALSLIST<1>'=''''?_CmdCm('infht=-1¦¦Сообщени妦Список~~файлов~~для~~удаления~~пуст¦¦260¦¦70<¤>toexit'):1 exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> beepss ;; удалить все файлы в каталогах из списка путей C:\PathList.txt исключая файлы, чьи имена совпадают с именами из списка имён C:\DelList.txt (в корзину с подтверждением)

alist=@%P%N||&&\.bak$!!||**2!! listx=@GLOBALALIST<1>||2 <IF> <info=t61$GLOBALLISTX[1]> = 0 <THEN> copyy=%P%N||"%p"//1||&&\.bak$!!||**2!! <ELSE> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Заменить~~существующий~~объект~~из~~*.bak?')||$var_i=$var_n=7?_Exit():1 copyy=%P%N||"%p"//1||&&\.bak$!!||**2!! <ENDIF> ;; восстановить объект из *.bak под курсором автоматически, если объект отсутствует, в случае наличия объекта выдать запрос на замену

alist=[tc=AF-1f]||<dellist=C:\files.txt|6> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALALIST||1||upd<1> <ELSE> infht=-1||Сообщение||Подобных~~файлов~~не~~найдено||230||60 <ENDIF> ;; удалить, минуя корзину, файлы в активной панели по списку(имена с расширениями) C:\files.txt (требуется подтверждение удаления)

alist=[tc=AF-1f]||<dellist=C:\files.txt|6> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALALIST||1||recycle<1>||upd<1> <ELSE> infht=-1||Сообщение||Подобных~~файлов~~не~~найдено||230||60 <ENDIF> ;; удалить в корзину файлы активной панели по списку(имена с расширениями) C:\files.txt (требуется подтверждение удаления)

imgpr=1 slist=PS<"%T"//2//0>||test<1f!!1!!0!!Del.fl> exect=$var_i='GLOBALSLIST<1>'=''''?_CmdCm('infbx=InfoBox17<¤>toexit'):1 xlist=FOLDC<$GLOBALSLIST//0//0>||<dellist=C:\ListOfNames.txt|5> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~объекты?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALXLIST||1 ;; в папках неактивной панели содержащих файл Del.fl удалить все объекты кроме указанных в списке имён из файла C:\ListOfNames.txt (требуется подтверждение удаления)

exect=$var_aa=DriveGetDrive('REMOVABLE') sends=$var_aa??-1||#L1 exect=$var_s=NOT~~'GLOBALSENDS<1>'?_Exit():0 zunpf=%%TCIMG_PATH%%\boot.zip||GLOBALSENDS<1>\//0||progres<>||foldname<1> ;; распаковать в корень съемного носителя архив boot.zip (если носителей несколько, то первый по списку)
exect=$var_aa=DriveGetDrive('REMOVABLE') sends=$var_aa??-1 exect=$var_s=NOT~~'GLOBALSENDS<1>'?_Exit():0 GLOBALSENDS<b> zunpf=%%TCIMG_PATH%%\boot.zip||GLOBALARRAY<1>\//0||progres<>||foldname<1> ;; выбрать съемный носитель в окне и распаковать в корень этого носителя архив boot.zip в именную папку
<IF> <info=o9"%pfiles1.f-l"> = 2 AND <info=o9"%pinfo.f-l"> = 0 <THEN> renmm="%p"journal.txt.bak||**0!! exect=$var_n=MsgBox(4+32+262144,'Сообщение','удалить~~файлы~~LOG.txt~~и~~LOG.old?')||$var_i=$var_n=7?_Exit():1 delss=LISTF<"%p"LOG.txt/"%p"LOG.old>||1||upd<1> <ENDIF> ;; если в активной панели есть файл files1.f-l и нет файла info.f-l, то переименовать файл journal.txt.bak в journal.txt и удалить(с подтверждением) файлы LOG.txt и LOG.old

<IF> <info=o9"%pfiles1.f-l"> = 2 AND <info=o9"%pinfo.f-l"> = 0 <THEN> renmm="%p"journal.txt.bak||**0!! exect=$var_n=MsgBox(4+32+262144,'Сообщение','удалить~~файлы~~LOG.txt~~и~~LOG.old?')||$var_i=$var_n=7?_Exit():1 delss=LISTF<"%p"LOG.txt/"%p"LOG.old>||1||upd<1> <ENDIF> ;; если в активной панели есть файл files1.f-l и нет файла info.f-l, то переименовать файл journal.txt.bak в journal.txt и удалить (с подтверждением) файлы LOG.txt и LOG.old

sends=%WL??-1||&?(?m)^.+\.exe$ exect=$var_i='GLOBALSENDS<1>'?0:_Exit() <FOR> 1 <TO> GLOBALSENDS<0> regwr=HKLM\SOFTWARE\Microsoft\Windows~~NT\CurrentVersion\AppCompatFlags\Layers||''GLOBALSENDS<:INDEX:>''||SZ||RUNASADMIN <NEXT> ;; из выделенных фалов получить список только exe файлов и создать в реестре для них строковый параметр "Путь.exe" со значением RUNASADMIN

sends=PS<%P%N//1//-1//exe>??-1 exect=$var_i='GLOBALSENDS<1>'?0:_Exit() <FOR> 1 <TO> GLOBALSENDS<0> regwr=HKLM\SOFTWARE\Microsoft\Windows~~NT\CurrentVersion\AppCompatFlags\Layers||''GLOBALSENDS<:INDEX:>''||SZ||RUNASADMIN <NEXT> ;; в папке под курсором найти все файлы exe и создать в реестре для них строковый параметр "Путь.exe" со значением RUNASADMIN

exect=$var_name=InputBox('Запрос','Введите~~имя~~файла','<info=f*63,62,61*~~-~~*([tc=AP])>')||$var_i='$var_name'?1:_Exit()||_ViewValues($var_name) ;; ввести значение в диалоге, если же диалог закрывается или нажимается кнопка "Отмена", то выход из программы

sends=%WF??-1 GLOBALSENDS<b> exect=$var_s='GLOBALARRAY1<1>'?0:_Exit() GLOBALARRAY<a> ;; пример: из выделенных имён объектов выбрать нужные, если ничего не выбрано, то выход

slist=FOLDC<%WL//0>||<dellist=C:\DelList.txt|5> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~GLOBALSLIST<0>~~объектов?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> ;; в выделенных папках удалить в корзину объекты 1-го уровня имена которых не указаны в списке C:\DelList.txt

sends=-1??-1 slist=FOLDC<%WL//0>||<dellist=$GLOBALSENDS|5> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~GLOBALSLIST<0>~~объектов?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> ;; в выделенных папках удалить в корзину объекты 1-го уровня имена которых не совпадают с именами из списка в буфера обмена

slist=FOLDC<PS<"%p"//2//0>//0>||<dellist=C:\DelList.txt|5> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~GLOBALSLIST<0>~~объектов?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> ;; во всех папках активной панели удалить в корзину объекты 1-го уровня имена которых не указаны в списке C:\DelList.txt

sends=-1??-1 slist=FOLDC<PS<"%p"//2//0>//0>||<dellist=$GLOBALSENDS|5> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~GLOBALSLIST<0>~~объектов?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> ;; во всех папках активной панели удалить в корзину объекты 1-го уровня имена которых не совпадают с именами из списка в буфера обмена

slist=FOLDC<%WL//0>||<dellist=C:\DelList.txt|9> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~GLOBALSLIST<0>~~объектов?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> ;; в выделенных папках удалить в корзину все объекты 1-го уровня с именами из списка C:\DelList.txt

sends=-1??-1 slist=FOLDC<%WL//0>||<dellist=$GLOBALSENDS|9> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~GLOBALSLIST<0>~~объектов?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALSLIST||1||recycle<1> ;; в выделенных папках удалить в корзину все объекты 1-го уровня с именами из списка буфера обмена

exect=$var_i=##<info=t1-1>||$var_n=Mod(Round($var_i),2)||$var_s=$var_n=1?_Exit() sends=-1??-1||&&(.+)\R(.+)!!$1¤•¤$2 <FOR> 1 <TO> GLOBALSENDS<0> rends=GLOBALSENDS<x:INDEX:>!!-8¤•¤ vends=TOTALCMD#BAR#DATA@CRLF"%%COMMANDER_PATH%%\TCIMG.exe"@CRLFGLOBALRENDS<x1>@CRLFWCMICONS.dll,1@CRLFGLOBALRENDS<x2>??-2 barbt=1||-1||butfrom<GLOBALVENDS<t>> <NEXT> ;; из каждых двух строк ("параметры" и "подсказка") содержимого буфере обмена создать кнопки на панели инструментов TC

exect=$var_i=##<info=t1-1>||$var_n=Mod(Round($var_i),2)||$var_s=$var_n=1?_Exit() sends=-1??-1||&&(.+)\R(.+)!!$1¤•¤$2 <FOR> 1 <TO> GLOBALSENDS<0> rends=GLOBALSENDS<x:INDEX:>!!-8¤•¤ vends=TOTALCMD#BAR#DATA@CRLF"%%COMMANDER_PATH%%\TCIMG.exe"@CRLFGLOBALRENDS<x1>@CRLFWCMICONS.dll,1@CRLFGLOBALRENDS<x2>??-2 barbt=1||-1||butfrom<GLOBALVENDS<t>> <NEXT> ;; из каждых двух строк ("параметры" и "подсказка") содержимого буфере обмена создать кнопки на панели инструментов TC

sends=%N||&?^(.{4}) count=[tc=TF-1f]||GLOBALSENDS<1>||0||countline<1> exect=$var_i=GLOBALCOUNT<1>=0?_Exit():0 markp=1||numb<1> markn=3||GLOBALCOUNT<1> ;; для файла под курсором выделить файлы в другой панели, в начале имён которых совпадают первые 4 символа

sends=%N||&?^(.{4}) count=[tc=TF-1f]||GLOBALSENDS<1>||0||countline<1> exect=$var_i=GLOBALCOUNT<1>=0?_Exit():0 markp=1||numb<1> markn=3||GLOBALCOUNT<1> gotoc=3||GLOBALCOUNT<-1> ;; для файла под курсором выделить файлы в другой панели, в начале имён которых совпадают первые 4 символа и переместить курсор к последнему выделенному файлу

sends=%WF??-1||&?(?m)^(.{4}) count=[tc=TF-1]||>>$GLOBALSENDS||0||countline<5> exect=$var_i=GLOBALCOUNT<1>=0?_Exit():0 markn=3||GLOBALCOUNT<1> ;; для выделенных объектов выделить объекты другой панели, в начале имён которых совпадают первые 4 символа

sends=%WF??-1||&?(?m)^(.{[updwn=BOX1]}) count=[tc=TF-1]||>>$GLOBALSENDS||0||countline<5> exect=$var_i=GLOBALCOUNT<1>=0?_Exit():0 markn=3||GLOBALCOUNT<1> ;; для выделенных объектов (или объекта под курсором) выделить объекты другой панели, в начале имён которых совпадают первые N символов (число вводится в диалоге) (регистр символов не учитывается)

sends=[tc=AF-1]??-1 bends=[tc=TF-1]??-1 cends=$GLOBALSENDS??-1||&?(?m)^(.{4})||?F1 dends=$GLOBALBENDS??-1||&?(?m)^(.{4})||?F1 eends=$GLOBALCENDS+$GLOBALDENDS||?F2 exect=$var_i='GLOBALEENDS<1>'?0:_Exit() count=$GLOBALSENDS||>>$GLOBALEENDS||0||countline<5> markn=2||GLOBALCOUNT<1> count=$GLOBALBENDS||>>$GLOBALEENDS||0||countline<5> markn=3||GLOBALCOUNT<1> ;; выделить в обеих панелях объекты, в начале имён которых совпадают первые N символов (регистр символов не учитывается)

dilog=[updwn=BOX1] sends=[tc=AF-1]??-1 bends=[tc=TF-1]??-1 cends=$GLOBALSENDS??-1||&?(?m)^(.{GLOBALUPDWN<1>})||?F1 dends=$GLOBALBENDS??-1||&?(?m)^(.{GLOBALUPDWN<1>})||?F1 eends=$GLOBALCENDS+$GLOBALDENDS||?F2 exect=$var_i='GLOBALEENDS<1>'?0:_Exit() count=$GLOBALSENDS||>>$GLOBALEENDS||0||countline<5> markn=2||GLOBALCOUNT<1> count=$GLOBALBENDS||>>$GLOBALEENDS||0||countline<5> markn=3||GLOBALCOUNT<1> ;; выделить в обеих панелях объекты, в начале имён которых совпадают первые N символов (число вводится в диалоге) (регистр символов не учитывается)

sends=@c:\rar_xx start=RAR||-IBCK||-INUL||x||-p1256||%P%N||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GXLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() delsm=GLOBALSENDS<1>||1||upd<1> ;; распаковать запароленный архив (пароль 1256) в папку "rar_xx", если неверный пароль или какая-либо другая ошибка, то выдаётся сообщение и работа прекращается
sends=@c:\rar_xx start=RAR||-IBCK||x||-p123456||%P%N||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() start=RAR||-IBCK||a||-r||-ep1||"%t%O".rar||GLOBALSENDS<1>\||GLOBALSENDS<1>\*||&&wait delsm=GLOBALSENDS<1>||1||upd<1> ;; запароленный (пароль 123456) архив под курсором распаковать во временную папку "c:\rar_xx" и запаковать объекты в другую панель в именной архив без пароля и удалить временную папку, если при распаковке неверный пароль или какая-либо другая ошибка, то выдаётся сообщение и работа прекращается
sends=@c:\rar_xx slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> start=RAR||-IBCK||-INUL||x||-p123456||GLOBALSLIST<:INDEX:>||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() delsm=GLOBALSLIST<:INDEX:>||1 start=RAR||-IBCK||a||-r||-ep1||GLOBALSLIST<:INDEX:>||GLOBALSENDS<1>\||GLOBALSENDS<1>\*||&&wait delsm=GLOBALSENDS<1>||1 <NEXT> ;; выделенные запароленные архивы (пароль 123456) перепаковать в именные архивы без пароля с заменой исходников, если при распаковке неверный пароль или какая-либо другая ошибка, то выдаётся сообщение и работа прекращается
sends=@c:\rar_xx dilog=[input=BOX64] slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> start=RAR||-IBCK||-INUL||x||-pGLOBALINPUT<1>||GLOBALSLIST<:INDEX:>||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() delsm=GLOBALSLIST<:INDEX:>||1 start=RAR||-IBCK||a||-r||-ep1||GLOBALSLIST<:INDEX:>||GLOBALSENDS<1>\||GLOBALSENDS<1>\*||&&wait delsm=GLOBALSENDS<1>||1 <NEXT> ;; выделенные запароленные архивы (пароль вводится в диалоге) перепаковать в именные архивы без пароля с заменой исходников, если при распаковке неверный пароль или какая-либо другая ошибка, то выдаётся сообщение и работа прекращается
exect=$var_s=FileOpenDialog('Выберите~~файл.','D:\','(*.*)',2)||Eval('var_s')?_ViewValues('$var_s'):_Exit() ;; отображает диалог открытия файла. Если не выбран, то выход

sends=@c:\rar_xx start=RAR||-IBCK||x||%P%N||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() start=RAR||-IBCK||a||-r||-ep1||"%t%O".zip||GLOBALSENDS<1>\||GLOBALSENDS<1>\*||&&wait delsm=GLOBALSENDS<1>||1||upd<3> ;; архив под курсором распаковать во временную папку "c:\rar_xx" и запаковать объекты в другую панель в именной архив zip и удалить временную папку, если при распаковке какая-либо ошибка, то выдаётся сообщение и работа прекращается
sends=zip|rar|7z|ace|arj|cab|gz|jar|lzh|tar|xz??-4 dilog=[combo=BOX36] sends=@c:\rar_xx start=RAR||-IBCK||x||%P%N||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() start=RAR||-IBCK||a||-r||-ep1||"%t%O".GLOBALCOMBO<1>||GLOBALSENDS<1>\||GLOBALSENDS<1>\*||&&wait delsm=GLOBALSENDS<1>||1||upd<3> ;; архив под курсором распаковать во временную папку "c:\rar_xx" и запаковать объекты в другую панель в именной архив и удалить временную папку (тип архива вводится в диалоге), если при распаковке какая-либо ошибка, то выдаётся сообщение и работа прекращается
exect=$var_i=(<info=o9"%P"MKOFC.DLL>=0~~OR~~<info=o9"%P"MKOFC64.DLL>=0)?MsgBox(4096,'Ошибка','Нет~~файлов')&_Exit():0 infbx=InfoBox_TEST1 ;; пример: если в активной панели нет одного из заданных файлов, то сообщение и выход из команды

exect=$var_i=<info=o9"%P"MKOFC.DLL>+<info=o9"%P"MKOFC64.DLL>=4?0:MsgBox(4096,'Ошибка','Нет~~файлов')&_Exit() infbx=InfoBox_TEST1 ;; пример: если в активной панели есть оба заданных файлов, то работа продолжается, иначе сообщение и выход из команды

sends=zip|rar|7z|ace|arj|cab|gz|jar|lzh|tar|xz|wim??-4 dilog=[combo=BOX36] sends=@C:\rar_xx start=%%COMMANDER_PATH%%\Programs\Arhive\WinRAR\WinRAR.exe||x||%P%N||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() start=%%COMMANDER_PATH%%\Plugins\wcx\Total7zip\7zG.exe||a||-ad||"%t%O".GLOBALCOMBO<1>||GLOBALSENDS<1>\*||&&wait delsm=GLOBALSENDS<1>||1||upd<3> ;; архив под курсором распаковать во временную папку "C:\rar_xx" с помощью WinRAR и запаковать объекты в другую панель в именной архив и удалить временную папку (тип архива вводится в диалоге) с помощью 7zG.exe, если при распаковке какая-либо ошибка, то выдаётся сообщение и работа прекращается
sends=zip|rar|7z|ace|arj|cab|gz|jar|lzh|tar|xz|wim??-4 dilog=[combo=BOX36] sends=@C:\rar_xx start=%%COMMANDER_PATH%%\Programs\Arhive\WinRAR\WinRAR.exe||x||%P%N||GLOBALSENDS<1>\||&&wait exect=$var_i=GLOBALPROGR<1>=0?0:_CmdCm('delsm=GLOBALSENDS<1>¦¦1')+MsgBox(4096,'Ошибка','Ошибка~~~~GLOBALPROGR<1>'&@CR&'Работа~~прервана!')+_Exit() exect=StringInStr('|7z|zip|tar|wim|','|GLOBALCOMBO<1>|')?1:0 <IF> GLOBALEXECT<1> = 1 <THEN> start=%%COMMANDER_PATH%%\Plugins\wcx\Total7zip\7zG.exe||a||-ad||"%t%O".GLOBALCOMBO<1>||GLOBALSENDS<1>\*||&&wait <ELSE> start=%%COMMANDER_PATH%%\Programs\Arhive\WinRAR\WinRAR.exe||a||-r||-ep1||"%t%O".GLOBALCOMBO<1>||GLOBALSENDS<1>\||GLOBALSENDS<1>\*||&&wait <ENDIF> delsm=GLOBALSENDS<1>||1||upd<3> ;; архив под курсором распаковать во временную папку "C:\rar_xx" с помощью WinRAR и запаковать объекты в другую панель в именной архив и удалить временную папку (тип нового архива вводится в диалоге); для упаковки 7z, zip, tar, wim используется 7zG.exe, в ином случае WinRAR; если при распаковке появляется какая-либо ошибка, то выдаётся сообщение и работа прекращается
alist=FOLDM<%WL//-1>||<dellist=$f212\Ffiles.txt|9> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALALIST||1||upd<1> <ELSE> infht=-1||Сообщение||Подобных~~файлов~~не~~найдено||250||60 <ENDIF> ;; в выделенных папках с рекурсией удалить, минуя корзину, файлы в активной панели по списку Ffiles.txt (имена с расширениями) (требуется подтверждение удаления)

sends=$f212\Ffiles.txt??-1||?Fslash1 alist=FOLDM<%WL//-3||0>||<dellist=$GLOBALSENDS|9> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~объекты?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALALIST||1||upd<1> <ELSE> infht=-1||Сообщение||Подобных~~объектов~~не~~найдено||250||60 <ENDIF> ;; в выделенных папках без рекурсии удалить объекты, которые есть в списке Ffiles.txt (имена с расширениями и/или имена подпапок\ с конечным слешем)

sends=$f212\Ffiles.txt??-1||?Fslash1 alist=FOLDM<%WL//-3||0>||<dellist=$GLOBALSENDS|5> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~объекты?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALALIST||1||upd<1> <ELSE> infht=-1||Сообщение||Подобных~~объектов~~не~~найдено||250||60 <ENDIF> ;; в выделенных папках без рекурсии удалить объекты, которых нет в списке Ffiles.txt (имена с расширениями и/или имена подпапок\ с конечным слешем)

exect=$var_vbutton=InputBox('Обрамление~~ссылки~~тегами~~[url]','Текст~~ссылки','Текст','''',300,140)||$var_i='$var_vbutton'?1:_Exit() bufsr=^^[url=||$$]GLOBALEXECT<1>[/url] ;; обрамить ссылку из буфера обмена тегами для вставки на сайт, текст ссылки вводится в диалоге

sends=[edits=BOX12]??-1 bends=$f212\FList.txt??-1 kends=$GLOBALSENDS??-1||?KGLOBALBENDS<0> $GLOBALBENDS&GLOBALSENDS<0> $GLOBALBENDS@$GLOBALKENDS exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALBENDS beepss ;; удалить введённые имена файлов в папках по списку из FList.txt

sends=$f212\ForDel.txt??-1||?Fslash1 alist=PS<"%T"//0//0>||<dellist=$GLOBALSENDS|5> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~объекты?')||$var_i=$var_n=7?_Exit():1 delss=$GLOBALALIST||1||upd<3> <ELSE> infht=-1||Сообщение||Подобных~~объектов~~не~~найдено||250||60 <ENDIF> ;; в противоположной панели удалить (без рекурсии) с подтверждением все объекты кроме тех, имена которых есть в "ForDel.txt"

exect=@HOUR=5?MsgBox(4096,'Спать',@HOUR&'~~часов')+_Exit():0 ;; если 5 часов, то выдать сообщение

exect=$var_i=FileExists('"%T"PsiPhon.f_l')?0:MsgBox(4096,'Ошибка','Нет~~файла')+_Exit() infbx=InfoBox_TEST1 ;; если в неактивной панели нет файла PsiPhon.f_l, то выдать сообщение и выход, если есть запустить следующую команду

sends=PS<"%T"//1//0//*.bck> exect=$var_i='GLOBALSENDS<1>'=''''?MsgBox(4096,'Ошибка','Нет~~файла')+_Exit():0 infbx=InfoBox_TEST1 ;; если в неактивной панели нет файла с расширением bck, то выдать сообщение и выход, если есть запустить следующую команду

exect=ProcessExists('AkelPad.exe')?0:MsgBox(4096+64,'Проверка','AkelPad~~не~~запущен',3)+_Exit() infbx=InfoBox_TEST1 ;; если процесс AkelPad существует, то выполнить дальнейшие команды (если не существует, то сообщение и выход)

exect=ProcessExists('AkelPad.exe')?MsgBox(4096+64,'Проверка','AkelPad~~запущен',3)+_Exit():0 infbx=InfoBox_TEST1 ;; если процесс AkelPad не существует, то выполнить дальнейшие команды (если существует, то сообщение и выход)


© Аверин Андрей для Total Commander Image  Averin-And@yandex.ru