Описание команды


Запуск команд в цикле.
<FOR> ... <TO> ... <STEP> ... ... <NEXT>

<FOR>, ||start, ||<TO>, ||stop, ||<STEP>, ||step, ||commands, ||<NEXT>

Параметры:

<FOR>Тег начала цикла.
startЧисло. Начальное число счётчика.
<TO>Тег.
stopЧисло. Конечное число счётчика.
<STEP>Тег шага. [необязательный]
stepЧисло. Число, на которое будет увеличена переменная счётчика при каждом шаге цикла. По умолчанию 1 [необязательный]
commandsСтрока команд. Команды и их параметры имеют тот же синтаксис, что и в примерах.
<NEXT>Тег окончания цикла.

Примечания:

• Теги и параметры цикла <FOR> прописываются через пробел.
• Цикл может находится в любом месте командной строки.
• Цикл выполняется ноль раз, если: start > stop и step > 0, или start < stop и step < 0

:INDEX: - переменная, используемая в качестве счётчика, которую можно включать в команды и параметры commands, находящиеся внутри цикла.
• Так же поддерживаются математические действия с :INDEX: При этом:
  » :INDEX: и математическое выражение заключаются в фигурные скобки {:INDEX:+5}
  » :INDEX: должен идти всегда первым
  » :INDEX: может быть несколько раз использоваться в математическом выражении
  »  В выражении не должно быть пробелов.
  »  Могут использоваться круглые скобки {:INDEX:+(:INDEX:+3)*2-:INDEX:}
  »  Математические операторы + (сложение), - (вычитания), * (умножение), / (деление), ^ (возведение в степень)

• Параметры start, stop и step могут иметь варианты:
  » Число.
  » GLOBALNAME<0> - количество элементов в массиве (списке) при глобальных элементах см. Дополнение №23.
  » [info] или <info> - количественная информация параметра см. Дополнение №10.
  » [input], [combo], [group] - количественная информация параметров см. Дополнение №18.
  » clpget - количественная информация из буфера обмена.
  » Значения переменных $var_... команды exect
  » Могут использоваться математические выражения.

forpgs - для отображения работы цикла (прогресс бара) перед циклом прописывается команда forpgs (по умолчанию прогресс бара нет).

forpg=Title||PathIcon,Number||X||Y - параметры:
    Title - заголовок прогресс бара.
    PathIcon - путь к значку окна прогресс бара.
    Number - номер к значка.
    X - координата от левого края. При -1 в центре, -2 в правой части монитора.
    Y - координата от верхнего края. При -1 в центре, -2 в нижней части монитора.

    Первым параметром может быть передан стиль окна, см. описание команды stylp

• Циклы созданы для простых операций. Не поддерживаются вложенные условия <IF>, <SWITCH>, циклы <FOR> и обработка специальных методов <HOTKEY=...>, <PRESS=...>, <TIME=...> внутри структуры.
• Может быть задействовано несколько последовательных циклов (друг за другом).

• В версии 12.6 добавлены глобальные переменные для цикла:
  $FOREXIT - позволяет выходить из цикла и переходить к выполнению последующих после цикла команд
  По умолчанию $FOREXIT=0, как только переменная равна 1 происходит выход из цикла
  Изменить значение $FOREXIT внутри цикла можно с помощью тернарного условия
Пример использования:

$FOREXIT=$var_i=5?0:1 ; если переменная $var_i равна 5 , то $FOREXIT=0, если нет, то $FOREXIT=1
$FOREXIT=$var_s='привет'?0:1 ; если переменная $var_s является строкой 'привет' , то $FOREXIT=0, если нет, то $FOREXIT=1


  $FORCONT - позволяет пропускать текущий шаг цикла и переходить к выполнению следующего
  По умолчанию $FORCONT=0, как только переменная равна 1 происходит пропуск текущего шага (последующих команд внутри цикла), переходя к проверке условия для следующего шага
  Изменить значение $FORCONT внутри цикла можно с помощью тернарного условия
Пример использования:

$FORCONT=$var_i=5?0:1 ; если переменная $var_i равна 5 , то $FORCONT=0, если нет, то $FORCONT=1
$FORCONT=$var_s='привет'?0:1 ; если переменная $var_s является строкой 'привет' , то $FORCONT=0, если нет, то $FORCONT=1


• В версии 25.5 добавлены глобальные переменные для цикла:
  $FORTO1, $FORTO2, ..., $FORTO9 - позволяет передавать данные в цикл.
  Обрабатывается один раз до работы цикла.

  $FORIN1, $FORIN2, ..., $FORIN9 - позволяет передавать данные в цикл.
  Обрабатывается во время работы цикла.
  Данные могут быть изменены во время работы цикла.
  Переменные могут содержать числовые или строковые данные.
  При присвоении строковых данных их необходимо обрамлять в одинарные кавычки.
  Могут использоваться тернарные условия
Пример использования:

$FORTO1=1 $FORTO2=5 $FORTO3='xxxxxxx' $FORIN1=':INDEX:' $FORIN2='{:INDEX:+4}' slist=[tc=AM] <FOR> $FORTO1 <TO> $FORTO2 zends=$FORIN1 wends=logoGLOBALZENDS<1>$FORTO3---$FORIN2 GLOBALWENDS<a> <NEXT>

См. также:

anf2d, arr2d, asave, cmd64, cmdcm, cname, dilog, dubls, envgt, global, hotkiy, ifthen, inbox, listx, macro, noglob, pause, pressy, presww, renew, scrpt, sends, slects, slist, swcmd, swcths, tempxx, tempz, timess, zmenu, zmenz

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

$FORTO1=1 $FORTO2=5 $FORTO3='xxxxxxx' $FORIN1=':INDEX:' $FORIN2='{:INDEX:+4}' slist=[tc=AM] <FOR> $FORTO1 <TO> $FORTO2 zends=&#36;FORIN1 wends=logoGLOBALZENDS<1>$FORTO3---$FORIN2 GLOBALWENDS<a> <NEXT> ;; пример передачи данных переменных $FORTO1 и $FORIN1 в цикле

<FOR> 1 <TO> [input=BOX11] creat="%p"||Name <NEXT> ;; создать файлы в активной панели, количество вводится в диалоге

<FOR> 1 <TO> 10 sends=x!!:INDEX:||##rndm<3|32> <NEXT> GLOBALSENDS<a> ;; сгенерировать 10 строк - случайный набор цифр и латинских букв

<FOR> 1 <TO> 5 barbt=0||-1 <NEXT> ;; удалить 5 последних кнопок с активной панели инструментов

<FOR> 1 <TO> 5 creat="%p"||Name <NEXT> ;; создать 5 файлов в активной панели

<FOR> 1 <TO> 5 exect=$var_sc=Mod(:INDEX:)=0?'blue-red':'red-blue'||_ViewValues('$var_sc') <NEXT> ;; пример получения разных значений переменной $var_sc при чётном/нечётном счётчике в цикле

<FOR> 1 <TO> 5 folds="%p"||Name <NEXT> ;; создать 5 папок в активной панели

<FOR> 1 <TO> 5 infbx=InfoBox_TEST1 $FORCONT=1 infbx=InfoBox_TEST2 <NEXT> ;; пример использования тега $FORCONT в цикле

<FOR> 1 <TO> 5 infbx=InfoBox_TEST1 exect=$var_n=0 $FORCONT=$var_n=1?0:1 infbx=InfoBox_TEST2 <NEXT> ;; пример использования тега $FORCONT в цикле

<FOR> 1 <TO> 5 infbx=InfoBox10 sndps=1 <NEXT> ;; пять раз выдавать сообщение со звуком

<TIME=h00n25> <FOR> 1 <TO> 5 infbx=InfoBox10 sndps=1 <NEXT> :EXIT: ;; запустить 5 раз подряд окно с уведомлением в назначенное время (в 0 часов 25 минут)

aends=@LF@LF??-sends=-??-|=&#60FOR> <TO> GLOBALSENDS<> xends=GLOBALSENDS<x:INDEX:> asave=GLOBALXENDS||"$fUser\UGLOBALAENDS<:INDEX:>txt"|<NEXT> ;; разбить содержимое буфера обмена на три части с сохранением каждой части в отдельный файл \Files\User\U№txt

alist=%WL <FOR> 1 <TO> GLOBALALIST<0> iniwr=GLOBALALIST<:INDEX:>||InternetShortcut||IconFile|| slist=INI<8//GLOBALALIST<:INDEX:>//InternetShortcut//URL>||formt<0!!^(?:https?:\/\/)?(?:www\.)?([^\/]+)> renmm=GLOBALALIST<:INDEX:>||$$_-_(GLOBALSLIST<1>) <NEXT> ;; в выделенных *.URL удалить значение поля "IconFile" + переименовать - добавить в конец имени файла доменное имя взятое из из поля "URL"

alist=PS<"%p"//1//-1//modin.db> exect=$var_i='GLOBALALIST<1>'=''''?_CmdCm('infbx=Сообщени妦Файл~~''modin.db''~~в~~открытой~~папке~~не~~найден¦¦3¦¦370¦¦50<¤>toexit'):1 slist=PS<"%p"//1//-1//modin.db>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> pathb=GLOBALSLIST<:INDEX:> <NEXT> ;; открыть в новых вкладках папки активной панели в которых есть файл modin.db, в случае отсутствия файла, выдать сообщение и выйти программы

alist=PS<"%p"//1//-1//modin.db> exect=$var_i='GLOBALALIST<1>'=''''?_CmdCm('infbx=Сообщени妦Файл~~''modin.db''~~в~~открытой~~папке~~не~~найден¦¦3¦¦370¦¦50<¤>toexit'):1 slist=PS<"%p"//1//-1//modin.db>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> pathu=GLOBALSLIST<:INDEX:> <NEXT> ;; открыть в новых вкладках неактивной панели папки активной панели в которых есть файл modin.db, в случае отсутствия файла, выдать сообщение и выйти программы

alist=PS<"%p"//2//0//date> exect=$var_i='GLOBALALIST<1>'=''''?_CmdCm('infbx=Сообщени妦Папка~~''date''~~в~~активной~~панели~~не~~найденদ3¦¦370¦¦50<¤>toexit'):1 slist=PS<"%p"//1//-1//modin.db>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> pathb=GLOBALSLIST<:INDEX:> <NEXT> ;; если в активной панели есть папка "date", то открыть в новых вкладках все папки активной панели в которых есть файл modin.db (3-х секундное сообщение, если папка "date" отсутствует)

anf2d=%P%N||2||^(.+\\([^\\]+)\.[^\\.,]+),?(\d*)?$ arr2d=$GLOBALANF2D||27|3|?V|##|'::'=''''?0:'::' <FOR> 1 <TO> GLOBALARR2D1<0> exicn=GLOBALARR2D1<:INDEX:>||"%t"||GLOBALARR2D3<:INDEX:>||GLOBALARR2D2<:INDEX:>||icn<0> <NEXT> tcimg=$cm4006|540|4006 ;; из списка под курсором, в котором прописаны пути файлов со значками и номерами через запятую (E:\TCIMG.dll,55), произвести проверку путей, если нет номеров добавить 0 и извлечь в другую панель заданные с именами библиотеки и номера

anf2d=%P%N||6||^(.+\\([^\\]+)\.[^\\.]+),(\d*)$ <FOR> 1 <TO> GLOBALANF2D1<0> exicn=GLOBALANF2D1<:INDEX:>||"%t"||GLOBALANF2D3<:INDEX:>||GLOBALANF2D2<:INDEX:>||icn<0> <NEXT> tcimg=$cm4006|540|4006 ;; из списка под курсором, в котором прописаны пути файлов со значками и номерами через запятую (E:\TCIMG.dll,55) извлечь в другую панель заданные с именами библиотеки и номера

anf2d=%WL||1||##@@f15::||##@@f12::;;$$.xxx||##@@o200:: arr2d=$GLOBALANF2D||21|3|^$ <FOR> 1 <TO> GLOBALARR2D<0> creat=GLOBALARR2D1<:INDEX:>||GLOBALARR2D2<:INDEX:>||content<GLOBALARR2D3<:INDEX:>>||code<4> <NEXT> ;; для выделенных файлов (если для них есть комментарии в descript.ion) создать одноименные файлы xxx с содержимым комментария из descript.ion

anf2d=C:\List.txt||2||(.*),(.*) <FOR> 1 <TO> GLOBALANF2D1<0> exicn=GLOBALANF2D1<:INDEX:>||"%p"||GLOBALANF2D2<:INDEX:> <NEXT> ;; извлечь в активную панель указанные (через запятую в конце пути) иконки из списка путей библиотек значков C:\List.txt

bufsr=&&(.*?)[~~](.*)!!$2||#!#!!@CRLF||?T|p2#4#2|d,1:-1||$$@CRLF||formt<line5> gends=@<info=x54> rends=-1!!-1||#G7||formt<52,bt1> <FOR> 1 <TO> GLOBALRENDS<0> sends=GLOBALRENDS<x:INDEX:>!!-1||formt<ex1> zends=TOTALCMD#BAR#DATA||$$@CRLF%%COMMANDER_PATH%%\TCIMG.exe||$$@CRLFGLOBALSENDS<x1>||$$@CRLFWcmicons.dll,1||$$@CRLFGLOBALSENDS<x2> barbt=1||-1||GLOBALGENDS<1>||butfrom<?GLOBALZENDS<x1>> <NEXT> barupd ;; из скопированных кнопок в синтаксисе меню MENUIMG создать на панели инструментов Total Commande кнопки

copyy=%COMMANDER_PATH%\Language\WCMD_RUS.ini||%COMMANDER_PATH%\Language\//1||**1!!?.bkp rends=@<sicon=%%COMMANDER_PATH%%\Wcmicons.dll|32|1|0|1> sends=-1??-1||&&.*~~!! <FOR> 1 <TO> GLOBALSENDS<0> iniwr=%COMMANDER_PATH%\Language\WCMD_RUS.ini||GLOBALSENDS<:INDEX:>||Button||Wcmicons.dll,GLOBALSICON1<3>||1 <NEXT> ;; из предварительно скопированного текста файла WCMD_RUS.MNU получить имена секций кнопок в файле WCMD_RUS.ini, в полученных секциях заменить в значениях номер значка библиотеки Wcmicons.dll на номер значка выбранного в окне просмотра библиотеки (предварительное создание бэкапа WCMD_RUS.ini.bkp)

copyy=%P%N||"%p"//1||**1!!?.bkp slist=INI<2!!%P%N>||formt<3> GLOBALSLIST<b> slist=$GLOBALARRAY <FOR> 1 <TO> GLOBALSLIST<0> sends=<inikey=5!!%P%N!!GLOBALSLIST<:INDEX:>>??-1||formt<3> iniws=%P%N||GLOBALSLIST<:INDEX:>||GLOBALSENDS<x1:-1> <NEXT> ;; сортировать содержимое секции(ий) (выбор в диалоговом окне) INI файла под курсором, предварительно создав бэкап INI файла

creat=$f250||TCIMGU.lng||code<1>||owrite<8> aends=-1??-1||&&([^=]+)(=)(.+)!!$1@CRLF$3 bends=$GLOBALAENDS??-1||?T|p2#2|d,1:-1 cends=$GLOBALAENDS??-1||?T|p1#2|d,1:-1 <FOR> 1 <TO> GLOBALBENDS<0> GLOBALCENDS<c:INDEX:> iniwr=$f257||Russian||GLOBALBENDS<:INDEX:>||ClipGet() <NEXT> ;; добавить в TCIMGU.lng в секцию Russian шаблоны диалоговых окон из буфера обмена

dends=-1??-1||?F1,5 forpgs <FOR> 1 <TO> GLOBALDENDS<0> sends=#GLOBALDENDS<:INDEX:>\\4??:INDEX:||?Frss1,73||@CRLF!!Chr(124)||$$|GLOBALDENDS<:INDEX:> <NEXT> anf2d=$GLOBALSENDS||2||([^|]+)\|([^|]+)\|([^|]+)||begin<0> GLOBALANF2D<a> ;; из содержимого ссылок программ с сайта lrepacks.ru получить имя и дату

dends=-1??-1||?F1,5 forpgs <FOR> 1 <TO> GLOBALDENDS<0> sends=#GLOBALDENDS<:INDEX:>\\4??:INDEX:||?Frss1,73||@CRLF!!Chr(124)||$$|GLOBALDENDS<:INDEX:> <NEXT> GLOBALSENDS<a> ;; из содержимого ссылок программ с сайта lrepacks.ru получить имя и дату

exect=$var_aa=_ArrayCreate(1,2) slist=PS<$f70//1//0//bar> forpgs <FOR> 1 <TO> GLOBALSLIST<0> sends=GLOBALSLIST<:INDEX:>||#Sbar5||@CRLF!!,~~ exect=$var_s='GLOBALSENDS<1>'=''''?'''':_ArrayAdd($var_aa,'GLOBALSLIST<:INDEX:>'&@CRLF&'GLOBALSENDS<1>') <NEXT> exect=||_ArrayToClip($var_aa,@CRLF) ;; записать в буфер обмена номера кнопок и имена панелей инструментов Total Commander, в которых в команде присутствует фраза из буфера

exect=$var_aa=_ArrayCreate(1,2) slist=PS<$f70//1//0//bar> forpgs <FOR> 1 <TO> GLOBALSLIST<0> sends=GLOBALSLIST<:INDEX:>||#Sbar5||@CRLF!!,~~ exect=$var_s='GLOBALSENDS<1>'=''''?'''':_ArrayAdd($var_aa,'GLOBALSLIST<:INDEX:>'&'~~'&'GLOBALSENDS<1>') <NEXT> exect=||_ViewValues($var_aa,'Поиск~~фразы~~'&ClipGet()&'~~в~~командах') ;; отобразить в таблице номера кнопок и имена панелей инструментов Total Commander, в которых в команде присутствует фраза из буфера

exect=$var_aa=StringSplit(_StringDuplication('blue-red|red-blue|',10),'|',1) GLOBALEXECT<$var_aa> <FOR> 1 <TO> 5 exect=$var_s=$var_aa[:INDEX:] exect=_ViewValues('$var_s') <NEXT> ;; пример создания массива из дублированной строки и передача элементов в массиве

exect=$var_aa=StringSplit('1a|2a|3a|4a|5a|6a|7a|8a|9a','|',1) GLOBALEXECT<$var_aa> <FOR> 1 <TO> 5 exect=$var_s=$var_aa[:INDEX:] exect=_ViewValues('$var_s') <NEXT> ;; пример создания массива и передача элементов в массиве

exect=$var_aa=StringSplit('AA|BB|CC|DD|EE|','|',1) <FOR> 1 <TO> 10 exect=$var_sc=Mod(:INDEX:,5)||$var_sc=$var_sc=0?5:$var_sc||$var_sc=$var_aa[$var_sc]||_ViewValues('$var_sc') <NEXT> ;; пример поочерёдного использования значений массива $var_aa в цикле

exect=$var_file='%%COMMANDER_PATH%%\Programs\Atlantis\Temp\Atlantis_Name.txt' sends=$var_file??-1 <FOR> 2 <TO> GLOBALSENDS<0> <STEP> 2 exect=$var_n=:INDEX:+1 renmm=GLOBALSENDS<:INDEX:>||##GLOBALSENDS<$var_n>||rflag<1> <NEXT> delsm=$var_file||1 ;; заменить файлы из списка Atlantis_Name.txt ... и удалить временный файл

exect=$var_i=##[input=BOX76] <FOR> 1 <TO> 10 sends=x!!:INDEX:||##rndm<4|$var_i> <NEXT> GLOBALSENDS<a> ;; создать 10 паролей заданной, в диалоговом окне, длины и отобразить в таблице

exect=$var_i=##[input=BOX76] <FOR> 1 <TO> 10 sends=x!!:INDEX:||##rndm<4|$var_i> <NEXT> GLOBALSENDS<c> ;; создать 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_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_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_s=''||$var_dlm='|'||$var_begin=0||$var_end=60 <FOR> $var_begin <TO> $var_end exect=$var_s='$var_s'&':INDEX:'&'$var_dlm' <NEXT> exect=_ViewValues('$var_s') ;; создать строку, размножив заданное количество раз счётчик и разделитель

exect=$var_stroka=##[input] slist=%WL xlist=GLOBALSLIST<t>||##path<6> <FOR> 1 <TO> GLOBALSLIST<0> count=GLOBALSLIST<:INDEX:>||$var_stroka||0||countline<0|2> sends=GLOBALCOUNT<t>??-1||formt<0!!(?m)$var_stroka[^\r\n]*>||?T|a,1:-1!!GLOBALXLIST<:INDEX:>~~ asave=GLOBALSENDS||"%pLinesTag.txt"|2|@CRLF|1 <NEXT> renmm="%pLinesTag.txt"||LinesTag||$$_$var_stroka||upd<1> ;; в выделенных файлах найти строки с меткой введенной в диалоговом окне, удалить в этих строках всё, по метку, добавить имя файла в начало строк и сохранить в файл LinesTag_(metka).txt в активной панели

exect=ProgressOn('Измеритель','Увеличивается','0~~процентов') <FOR> 1 <TO> 5 exect=ProgressSet(:INDEX:*20,:INDEX:*20&'~~процентов')&Sleep(1000) <NEXT> exect=ProgressOff() ;; пример прогресс бара

exect=Run('notepad.exe')||$var_h=WinWait('[CLASS:Notepad]',Null,5)||SendKeepActive(HWnd($var_h)) <FOR> 1 <TO> 10 exect=Send('привет')||Sleep(500) <NEXT> exect=SendKeepActive(Null)||WinClose(HWnd($var_h)) ;; запустить "Блокнот" и удерживать окно блокнота активным при использовании функции Send()

forpg=#2||Создание~~файлов||TCIMG.dll,26 <FOR> 1 <TO> 5 creat="%p"||Name pause=2s <NEXT> ;; создать 5 файлов в активной панели (установить окну прогресса стиль 2, заголовок и значок)

forpg=#2||Создание~~файлов||TCIMG.dll,26||5||300 <FOR> 1 <TO> 5 creat="%p"||SSS pause=1s <NEXT> forpg=#1||Создание~~файлов||TCIMG.dll,26||55||200 <FOR> 1 <TO> 5 creat="%p"||VVV pause=1s <NEXT> ;; пример настройки прогресс бара, создание файлов в активной панели

forpg=Создание~~файлов||TCIMG.dll,26 <FOR> 1 <TO> 5 creat="%p"||Name pause=1s <NEXT> ;; создать 5 файлов в активной панели (установка диалогу заголовка и значка)

forpgs <FOR> 1 <TO> [input=BOX11] sends=x||##rndm<3|80>||#Hsha256|1||#Euue-||#V||&&(.)(.)!!$2$1||#Euue-||#V||#Eb64-||&&(.{52})(.*)(.{31})!!$2||&&(.)(.)!!$2$1||^^key-||$~~+[info=s36!!#sek.!!s35!!#min.!!s34!!#chas.!!s33!!#.!!s32!!#.!!s31] pause=400 creat="%p"||key-@[info=s36!!#sek.!!s35!!#min.!!s34!!#chas.!!s33!!#.!!s32!!#.!!s31].txt||content<GLOBALSENDS<1>> pause=600 <NEXT> ;; создать в активной панели файлы с ключами (паролями) + системное время, с окном запроса на нужное количество. Для каждого ключа свой файл

forpgs <FOR> 1 <TO> 5 creat="%p"||Name <NEXT> ;; создать 5 файлов в активной панели, с отображение прогресс бара

forpgs sends=%WL??-1 <FOR> 1 <TO> GLOBALSENDS<0> slist=PS<GLOBALSENDS<:INDEX:>//-1//0>||##path<32> comnt=GLOBALSENDS<:INDEX:>||0||<ifile=$GLOBALSLIST> <NEXT> ;; для выделенных папок добавить комментарий, включающий список имён папок и файлов, находящиеся внутри соответствующей папки в 1-м уровне

forpgs sends=%WL??-1 <FOR> 1 <TO> GLOBALSENDS<0> slist=PS<GLOBALSENDS<:INDEX:>//-1//0>||##path<32>||test<0a!!SH> comnt=GLOBALSENDS<:INDEX:>||0||<ifile=$GLOBALSLIST> <NEXT> ;; для выделенных папок добавить комментарий, включающий список имён папок и файлов (кроме скрытых и системных), находящиеся внутри соответствующей папки в 1-м уровне

forpgs shape=5 lends=[combo=BOX_U59] zends=[group=BOX_U12] xlist=%WL slist=%WL||##path<4>||#G7 <FOR> 1 <TO> GLOBALXLIST<0> sends=GLOBALSLIST<:INDEX:>??1||formt<0!![^\s]+>||#LGLOBALLENDS<1> xends=GLOBALSLIST<:INDEX:>??-1||formt<0!![^\s]+>||?T|d,GLOBALLENDS<1> kends=$GLOBALXENDS??-1||GLOBALZENDS<1>||&&[\r\n]+!!~~ renmm=GLOBALXLIST<:INDEX:>||GLOBALKENDS<:INDEX:>||#G7 <NEXT> ;; переименование: перемещение слова в базовых именах выделенных объектов,предварительно удалив в именах лишние пробелы, выбор слова и позиции перемещения в диалоговом окне

forpgs slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> extrf=GLOBALSLIST<:INDEX:>||formt<u19>||<info=f15GLOBALSLIST<:INDEX://>>//0//x.txt <NEXT> ;; произвести экстракцию фрагмента из выделенных html файлов (шаблон с регулярным выражением в TCIMG.ini в секции [FormatUser]) и сохранить в текущей панели с именем исходного html. из каждого html свой txt

forpgs slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> renms=$GLOBALSLIST||$$~~cntr<1|1|3>||numb<3>||noprogres<> <NEXT> ;; переименовать выделенные файлы добавив к каждой группе из очередных трех файлов в конец имени через пробел новую нумерацию (Name 001)

forpgs slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> xlist=@GLOBALSLIST<:INDEX:>||##path<4> textt=GLOBALSLIST<:INDEX:>||<srlist="%P"Search&Replace\GLOBALXLIST<1>.txt|#|1> <NEXT> ;; в содержимом выделенных текстовых файлов произвести поиск и замену по списку замен из именных файлов папки Search&Replace активной панели

forpgs slist=[tc=TM] xlist=%WL <FOR> 1 <TO> GLOBALSLIST<0> copyy=GLOBALSLIST<:INDEX:>||x//1||rcopy<GLOBALXLIST<:INDEX:>> <NEXT> ;; заменить выделенные файлы другой панели файлами активной панели, не заменяя имени

forpgs slist=FOLDC<"%t"//0//-2> <FOR> 1 <TO> GLOBALSLIST<0> copys=%WL||GLOBALSLIST<:INDEX:>:://6//(.*)(\w:.*\\)([^\\]*)\.(.+)//$1$3||noprogres<> <NEXT> ;; копировать выделенные файлы во все подпапки другой панели в именные папки, если именных папок для файла не существует, то он не копируется

forpgs slist=FOLDC<%WL//1//1//*txt> xlist=$GLOBALSLIST||&&[^\\]+$!! <FOR> 1 <TO> GLOBALSLIST<0> downl=GLOBALXLIST<:INDEX:>||GLOBALSLIST<:INDEX:> <NEXT> ;; в выделенных папках по списку ссылок файлов *.txt скачать контент с расположением рядом с файлом - источником ссылки

gends=@<info=x50> rends=-1!!-1 <FOR> 1 <TO> GLOBALRENDS<0> sends=GLOBALRENDS<x:INDEX:>!!-1||formt<ex1> zends=TOTALCMD#BAR#DATA||$$@CRLF%%COMMANDER_PATH%%\TCIMG.exe||$$@CRLFGLOBALSENDS<x1>||$$@CRLFWcmicons.dll,1||$$@CRLFGLOBALSENDS<x2> barbt=1||-1||GLOBALGENDS<1>||butfrom<?GLOBALZENDS<x1>> <NEXT> barupd ;; создать кнопки в конце активной панели инструментов из строк команд TCIMG.txt в буфере обмена

gends=@<info=x54>??1 slist=%WL||##path<0> <FOR> 1 <TO> GLOBALSLIST<0> zends=TOTALCMD#BAR#DATA||$$@CRLFGLOBALSLIST<:INDEX:>||$$@CRLF||$$@CRLFGLOBALSLIST<:INDEX:> ||$$@CRLFGLOBALSLIST<:INDEX:> barbt=1||-1||GLOBALGENDS<1>||butfrom<?GLOBALZENDS<x1>> <NEXT> barupd ;; выделенные файлы закинуть на панель инструментов Total Commander

global cmdcm=[check=BOX_V01] dends=GLOBALCHECM1<1>??1||formt<sps109> sends=-1!!-1 slist=$GLOBALSENDS||formt<1,63,54,51> <FOR> 1 <TO> GLOBALSLIST<0> start=Youtub||-o||"%%(title)s-%%(upload_date)s-@%%(id)s.%%(ext)s"||--write-all-thumbnails||-f||GLOBALDENDS<1>||GLOBALSLIST<:INDEX:>||&&hide||&&wait pause=1s <NEXT> tcimg=$cm540 ;; закачать в активную панель видео файлы с ютуба или Vimeo с выбором качества, по списку полных Url адресов в буфере ссылки могут быть двух типов например - https://youtube.com/watch?v=2FauSeH2h0A (https://youtube.com/watch?v= +id 2FauSeH2h0A) или https://youtube.com/embed/HiN6Ag5-DrU (https://youtube.com/embed/ +id HiN6Ag5-DrU) или https://vimeo.com/71501596 для Vimeo (программа для скачивания https://rg3.github.io/youtube-dl/download.html )

global forpgs slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> renms=$GLOBALSLIST||$$~~cntr<1|1|3>||numb<3>||noprogres<> <NEXT> ;; Переименовать выделенные файлы добавив к каждой группе из очередных трёх файлов в конец имени через пробел новую нумерацию (Name 001)

global forpgs slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> start=C:\2\AkelPadConv.exe||/C-||/B-||/L+||/OpenFile('GLOBALSLIST<:INDEX:>')||/SaveFile('GLOBALSLIST<:INDEX:>',65001,1)||/Command(4324)||&&hide|| <NEXT> close=AkelPadConv.exe ;; конвертировать выделенные текстовые файлы с помощью AkelPadConv.exe в UTF-8

global lists=%Z%WL||##path<4> sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> brwsr=yandex.ru/yandsearch?text=GLOBALSENDS<:INDEX:>!!x <NEXT> ;; поиск имен выделенных объектов на yandex.ru

global lists=PS<"%p"//2//0> <FOR> 1 <TO> GLOBALLISTS<0> creat=GLOBALLISTS<:INDEX:>||Name <NEXT> ;; в каждой папке активной панели создать файл Name.txt

global lists=PS<"%p"//2//0> noglob <FOR> 1 <TO> GLOBALLISTS<0> creat=GLOBALLISTS<:INDEX:>||Name <NEXT> ;; в каждой папке активной панели создать файл Name.txt

global slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=<info=o10GLOBALSLIST<:INDEX:>//>~~<info=o30GLOBALSLIST<:INDEX:>//>~~<info=o50GLOBALSLIST<:INDEX:>//>!!-8~~ xends=$GLOBALSENDS??-1||formt<3> modft=GLOBALSLIST<:INDEX:>||0,1,2||GLOBALXENDS<1> <NEXT> ;; выделенным объектам выставить все варианты дат по самому раннему времени

imgpr=1 anf2d=PS<"%p"//0//0>||1||##Number(<info=o10::><<info=o30::>) arr2d=$GLOBALANF2D||21|1|^0$||6|1 slist=$GLOBALARR2D <FOR> 1 <TO> GLOBALSLIST<0> sends=<info=o10GLOBALSLIST<:INDEX:>//>~~<info=o30GLOBALSLIST<:INDEX:>//>~~<info=o50GLOBALSLIST<:INDEX:>//>!!-8~~ xends=$GLOBALSENDS??-1||formt<3> modft=GLOBALSLIST<:INDEX:>||0,1,2||GLOBALXENDS<1> <NEXT> ;; в активной панели найти объекты чьи дата модификации меньше даты создания и выставить найденным объектам все варианты дат по самому раннему времени

imgpr=1 anf2d=PS<"%p"//1//0>||1||##Number(<info=o10::><<info=o30::>) arr2d=$GLOBALANF2D||21|1|^0$||6|1 slist=$GLOBALARR2D <FOR> 1 <TO> GLOBALSLIST<0> sends=<info=o10GLOBALSLIST<:INDEX:>//>~~<info=o30GLOBALSLIST<:INDEX:>//>~~<info=o50GLOBALSLIST<:INDEX:>//>!!-8~~ xends=$GLOBALSENDS??-1||formt<3> modft=GLOBALSLIST<:INDEX:>||0,1,2||GLOBALXENDS<1> <NEXT> ;; в активной панели найти файлы чьи дата модификации меньше даты создания и выставить найденным файлам все варианты дат по самому раннему времени

imgpr=1 copyy=%C1||"%p"//1||**1!!?.bkp slist=INI<2!!%C2> <FOR> 1 <TO> GLOBALSLIST<0> inirz=%C1||GLOBALSLIST<:INDEX:>||%C2||GLOBALSLIST<:INDEX:> <NEXT> ;; заменить в первом выделенном файле значения всех идентичных ключей во всех подобных секциях из второго выделенного файла (предварительно создаётся бэкап редактируемого файла)

imgpr=1 global lists=%Z%WL||##path<6> sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> renmm="%TGLOBALSENDS<:INDEX:>"||$$_original copyy=GLOBALSENDS<:INDEX:>||"%t"//0||modfs<0,1||#SISDATE> <NEXT> ;; копировать выделенные объекты в в другую панель, предварительно переименовав идентичные файлы в другой панели, добавив в конец имени _ original

imgpr=1 global slist=FOLDM<%WL!!2!!-1> <FOR> 1 <TO> GLOBALSLIST<0> lists=PS<GLOBALSLIST<:INDEX:>!!1!!0!!*.mp3|*.flac>||##path<6>||save<GLOBALSLIST<:INDEX:><info=o73GLOBALSLIST<:INDEX:>!!1>.m3u>||code<4> <NEXT> ;; создать в выделенных папках и их подкаталогах из аудиотреков (mp3, flac) заменяемый M3U-лист (имена файлов) в кодировке UTF-8 с именем родительской папки

imgpr=1 sends=@[combo=BOX_U95] slist=%WL||&&.*\K\\$!! <FOR> 1 <TO> GLOBALSLIST<0> xlist=@GLOBALSLIST<:INDEX:>|||##path<4> start="C:\Windows\System32\Robocopy.exe"||GLOBALSLIST<:INDEX:>||"%TGLOBALXLIST<1>"||/E||/LEV:GLOBALSENDS<1>||/W:5||&&hide||&&wait <NEXT> ;; копирование (с заменой) выделенных каталогов в панель назначения, с выбором уровней в диалоговом окне

imgpr=1 sends=PS<$f200\Templ//1//0//*.txt>??-1||&&.*\\!!||@CRLF!!| dilog=[combo=Выбор~~шаблона||Выберите~~файл~~шаблона||GLOBALSENDS<1>||343||117] slist=PS<"%p"//1//-1//install.rdf>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||ReadMe.txt||code<0>||content<$f200\Templ\GLOBALCOMBO<1>> <NEXT> ;; в папках и подпапках активной панели в которых присутствует файл install.rdf создать файл ReadMe.txt с содержимым из файла шаблона папки .\Files\Templ\ выбранного в диалоговом окне

imgpr=1 sends=PS<$f200\Templ//1//0//*.txt>??-1||&&.*\\!!||@CRLF!!| dilog=[combo=Выбор~~шаблона||Выберите~~файл~~шаблона||GLOBALSENDS<1>||343||117] slist=PS<"%t"//1//-1//install.rdf>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||ReadMe.txt||code<0>||content<$f200\Templ\GLOBALCOMBO<1>> <NEXT> ;; в папках и подпапках неактивной панели в которых присутствует файл install.rdf создать файл ReadMe.txt с содержимым из файла шаблона папки .\Files\Templ\ выбранного в диалоговом окне

imgpr=1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> lists=PS<GLOBALSLIST<:INDEX:>//1//-1//*.mp3|*.flac|*.ape>||save<"%p"<info=o73GLOBALSLIST<:INDEX:>//>.m3u8|0>||code<4> <NEXT> ;; для всех выделенных папок создать в активной панели именные M3U8-листы файлов mp3, flac и ape

imgpr=1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> lists=PS<GLOBALSLIST<:INDEX:>//1//-1//*.mp3|*.flac>||save<GLOBALSLIST<:INDEX:><info=o73GLOBALSLIST<:INDEX:>//>.m3u|0>||code<4> <NEXT> ;; создать в выделенных папках из аудиотреков (mp3, flac) заменяемый M3U-лист в кодировке UTF-8 с именем родительской папки

imgpr=1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> lists=PS<GLOBALSLIST<:INDEX:>//1//-1//mp3|wma>||save<"%p"<info=o73GLOBALSLIST<:INDEX:>//>.m3u|0> <NEXT> ;; для всех выделенных папок создать в активной панели именные M3U-листы файлов mp3 и wma

imgpr=1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> moves=PS<GLOBALSLIST<:INDEX:>//1//-1//*.smd|*.bin|*.gen>||GLOBALSLIST<:INDEX:>ромы <NEXT> ;; в выделенных папках переместить файлы *.smd *.bin *.gen в папку "ромы"

imgpr=1 slist=%WL xlist=%WL||##path<6> sends=?[tc=AA]??+1:GLOBALSLIST<0> <FOR> 1 <TO> GLOBALSENDS<0> glist=@GLOBALSENDS<:INDEX:>||$$@CRLFGLOBALSLIST<:INDEX:> barjn=$GLOBALGLIST||"%p\NewBars//1//GLOBALXLIST<:INDEX:>"||delimbars<1> <NEXT> ;; поочерёдно склеить выделенные *.bar с файлом.bar под курсором с сохранением в папку активной панели NewBars

imgpr=1 slist=%WL||##path<6> <FOR> 1 <TO> GLOBALSLIST<0> bufsr=^^||save<"%pGLOBALSLIST<:INDEX:>"|1> <NEXT> ;; заменить содержимое выделенных текстовых файлов содержимым буфера

imgpr=1 slist=%WL||##path<6> <FOR> 1 <TO> GLOBALSLIST<0> bufsr=^^||save<"%pGLOBALSLIST<:INDEX:>"|2> <NEXT> ;; добавить в конец выделенных файлов, с новой строки, содержимое буфера обмена

imgpr=1 slist=%WL||##path<6> <FOR> 1 <TO> GLOBALSLIST<0> bufsr=^^||save<"%pGLOBALSLIST<:INDEX:>"|3> <NEXT> ;; добавить в начало выделенных файлов, с новой строки, содержимое буфера обмена

imgpr=1 slist=FOLDC<%WL//0//-2> <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||line<bases.ini;bases.txt;bases.html!!;> <NEXT> beepss ;; в выделенных папках и их подпапках создать три файла "bases.ini, bases.txt, bases.html"

imgpr=1 slist=FOLDM<%WL//-2//-1> <FOR> 1 <TO> GLOBALSLIST<0> joinz=PS<GLOBALSLIST<:INDEX:>//1>||%P%N//2//<info=o73GLOBALSLIST<:INDEX:>//>.txt <NEXT> delss=$GLOBALSLIST||1 ;; склеить все файлы каждой подпапки выделенных папок с размещением результирующих файлов (с именем родительской папки, с дописыванием при совпадении) в 1-м уровне выделенных папок с последующим удалением всех подпапок

imgpr=1 slist=FOLDM<%WL//2//-1> <FOR> 1 <TO> GLOBALSLIST<0> lists=PS<GLOBALSLIST<:INDEX:>//1//0//*.mp3|*.flac>||save<GLOBALSLIST<:INDEX:><info=o73GLOBALSLIST<:INDEX:>//1>.m3u|0>||code<4> <NEXT> ;; создать в выделенных папках и их подкаталогах из аудиотреков (mp3, flac) заменяемый M3U-лист в кодировке UTF-8 с именем родительской папки

imgpr=1 slist=PS<"%p"//2>||test<1f!!1!!0!!m3u> slist=$GLOBALSLIST1||test<1f!!1!!0!!mp3> <FOR> 1 <TO> GLOBALSLIST<0> plist=PS<GLOBALSLIST<:INDEX:>//1//0//m3u>||##path<10>path<4>.sfv klist=PS<GLOBALSLIST<:INDEX:>//1//0//mp3>||path<6>~~<info=f3:://> creat=x||list<GLOBALPLIST<t1>>||content<$GLOBALKLIST> <NEXT> ;; в активной панели найти все папки в которых есть файлы m3u и mp3, создать в каждой из них файл sfv с CRC32 файлов mp3 с именем похожим на m3u

imgpr=1 slist=PS<"%p"> <FOR> 1 <TO> GLOBALSLIST<0> moves=PS<GLOBALSLIST<:INDEX:>//1//-1//*.smd|*.bin|*.gen>||GLOBALSLIST<:INDEX:>ромы <NEXT> ;; во всех папках активной панели переместить файлы *.smd *.bin *.gen в папку "ромы"

imgpr=1 tempxx sends=<info=f12%P%N//> txtsp=%P%N||$f254||2!!1||nozero<3> renms=$GLOBALTXTSP||?B51!!GLOBALSENDS<1> textx=PS<$f254//1//0>||?T|d,1||formt<63>||backup<0> alist=PS<$f254//1//0>||test<1n!!^em_nik> renms=$GLOBALALIST||em_sib_cntr<1+|1|4>||[double] textt=%P%N||## slist=PS<$f254//1//0> <FOR> 1 <TO> GLOBALSLIST<0> sends=<info=f12GLOBALSLIST<:INDEX:>//> iniws=%P%N||GLOBALSENDS<1>||GLOBALSLIST<:INDEX:> <NEXT> ;; в INI файле под курсором переименовать названия секций начинающихся с em_nik на em_sib_000№ + общая сортировка секций

imgpr=1 xlist=%WL||##path<4> slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> textt=GLOBALSLIST<:INDEX:>||QQQQQ!!GLOBALXLIST<:INDEX:> <NEXT> ;; в выделенных текстовых файлах заменить каждую метку QQQQQ на имя файла

imgpr=1 xlist=%WL||##path<4> tlist=$GLOBALXLIST||#Sfnc_numminus04-1 rlist=$GLOBALXLIST||#Sfnc_numplus04+1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> textt=GLOBALSLIST<:INDEX:>||QQQQQ!!GLOBALTLIST<:INDEX:>~~GLOBALXLIST<:INDEX:>~~GLOBALRLIST<:INDEX:> <NEXT> ;; в выделенных текстовых файлах заменить каждую метку QQQQQ на имя(номер) файла обрамленное через пробел уменьшенным и увеличенным на единицу значением номера(имени)

infos=2||9||notepad.exe||1 <FOR> 1 <TO> GLOBALINFOS1<0> exect=WinSetState(HWnd('GLOBALINFOS1<:INDEX:>'),Null,@SW_MINIMIZE) <NEXT> ;; свернуть окна с заданным именем процесса notepad.exe

infos=2||9||notepad.exe||1 <FOR> 1 <TO> GLOBALINFOS1<0> exect=WinSetState(HWnd('GLOBALINFOS1<:INDEX:>'),Null,@SW_RESTORE) <NEXT> ;; восстановить свёрнутые или развёрнутые окна с заданным именем процесса notepad.exe

infos=2||9||TCIMG.exe||textv=x||1 <FOR> 1 <TO> GLOBALINFOS1<0> exect=WinSetState(HWnd('GLOBALINFOS1<:INDEX:>'),Null,@SW_MINIMIZE) <NEXT> ;; свернуть окна просмотрщика буфера обмена (команда textv)

infos=2||9||TCIMG.exe||textv=x||1 <FOR> 1 <TO> GLOBALINFOS1<0> exect=WinSetState(HWnd('GLOBALINFOS1<:INDEX:>'),Null,@SW_RESTORE) <NEXT> ;; развернуть свернутые окна просмотрщика буфера обмена (команда textv)

infos=3||11||%P%N||SELECT~~icon_url,data~~FROM~~moz_icons;||1 forpgs <FOR> 2 <TO> GLOBALINFOS0<0> aends=GLOBALINFOS0<:INDEX:>||?F6 creat="%t"||x||##<info=e66GLOBALAENDS<1>//>||www.!!||.!!_||content<GLOBALINFOS1<:INDEX:>>||noext<>||binfile<> $GLOBALINFOS0[:INDEX:]=$GLOBALCREAT[1] <NEXT> renms=$GLOBALINFOS0||extplus<> sdupl=$GLOBALRENMS1||1 delss=$GLOBALSDUPL2||1||upd<3> ;; создать в другой панели все изображения находящиеся в базе данных favicons.sqlite под курсором, после создания изображений удалить дубликаты файлов, сравнив по контрольной сумме MD5

infos=3||11||%P%N||SELECT~~icon_url,data~~FROM~~moz_icons;||1 forpgs <FOR> 2 <TO> GLOBALINFOS0<0> aends=GLOBALINFOS0<:INDEX:>||?F6 creat="%t"||x||##<info=e66GLOBALAENDS<1>//>||www.!!||.!!_||content<GLOBALINFOS1<:INDEX:>>||noext<>||binfile<> $GLOBALINFOS0[:INDEX:]=$GLOBALCREAT[1] <NEXT> renms=$GLOBALINFOS0||extplus<>||upd<3> ;; создать в другой панели все изображения находящиеся в базе данных favicons.sqlite под курсором

itray=1||TCIMG.dll,49||HINT1||1 forpgs <FOR> 1 <TO> 1000 pause=1s <NEXT> ;; пример создания значка подсказки и меню в трее

itray=3 forpgs slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=GLOBALSLIST<:INDEX:>!!:INDEX:||#Eb64-||^^<script~~type=''text/javascript''~~src=''data:text/javascript;base64,||$''></script> <NEXT> lists=$GLOBALSENDS||formt<sps43,54,63,1> ;; преобразовать выделенные скрипты js в построчный код b64 + обрамить тегами для вставки в html

itray=3 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> modfs=PS<GLOBALSLIST<:INDEX:>//1>||0||<mdata=GLOBALSLIST<:INDEX:>> <NEXT> ;; для всех файлов каждой выделенной папки изменить дату модификации на дату модификации родительской папки

itray=3 slist=%WL wlist=%WL||##path<4>||formt<lst10> <FOR> 1 <TO> GLOBALSLIST<0> xends=-1||formt<0!!(?m)^(.+GLOBALWLIST<:INDEX:>)> copyy=GLOBALSLIST<:INDEX:>||GLOBALXENDS<1>//4 <NEXT> ;; копировать выделенные каталоги согласно путям в буфере обмена, если имя каталога совпадает с именем в буфере, то он будет скопирован внутрь

itray=3 wends=-1||formt<63,56,54,51,55> slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> exect=$var_n=Floor('<info=o3GLOBALSLIST<:INDEX:>//>')||$var_n=$var_n<=1?1:($var_n<=10?2:($var_n<=100?3:($var_n<=500?4:5)))||$var_p='%%COMMANDER_PATH%%\Personal\commands\fold\$var_n.ico' icoft=GLOBALSLIST<:INDEX:>||0||$var_p||foldicon<favicon!!1!!1> <NEXT> attrb=FOLDC<$GLOBALSLIST//1//0//Desktop.ini>||-HS!!0 textx=FOLDC<$GLOBALSLIST//1//0//Desktop.ini>||&&([^^]+)!!$1@CRLFInfoTip=GLOBALWENDS<1>||backup<0> attrb=FOLDC<$GLOBALSLIST//1//0//Desktop.ini>||+HS!!0 ;; назначить выделенным папкам иконки (в зависимости от размера папки будут назначены разные иконки) путь к папке с иконками %%COMMANDER_PATH%%\fold\ имена иконок 1,2,3,4,5

listx=%WL||1 <FOR> 1 <TO> GLOBALLISTX<0> $GLOBALEXTXX=$GLOBALLISTX1[:INDEX:] GLOBALEXTXX<a> <NEXT> ;; получить из выделенных объектов группы по расширениям для обработки в цикле

listx=[tc=AM]||1 <FOR> 1 <TO> GLOBALLISTX<0> slist=$GLOBALLISTX1[:INDEX:]||##<info=o85:://>||^^*||formt<1,63>||inline<!!|!!> zends=@<info=o75GLOBALSLIST0<1>> wlist=PS<GLOBALZENDS<1>//1//-1//GLOBALSLIST<1>>||<dellist=$GLOBALSLIST0|2> xlist=$GLOBALWLIST||##<info=o72:://>||formt<1,serch147,63,21> exect=$var_fail=<info=t61$GLOBALXLIST[1]>||$var_i=$var_fail=0?_CmdCm('xends=1<¤>xlist=$GXLOBALXENDS[1]'):0 renms=$GLOBALSLIST0||##cntr<GLOBALXLIST<1>+|1|1> <NEXT> ;; переименовать выделенные файлы по счетчику, с учетом продолжения номера после последнего пронумерованного файла в этом каталоге (для каждого расширения своя нумерация)

listx=C:\FolderPaths.txt||2 <FOR> 1 <TO> GLOBALLISTX<0> creat=GLOBALLISTX<:INDEX:>||File.fl <NEXT> ;; создать файл File.fl во всех папках из списка существующих полный путей файла C:\FolderPaths.txt

listx=cliplist||2 <FOR> 1 <TO> GLOBALLISTX<0> creat=GLOBALLISTX<:INDEX:>||File.fl <NEXT> ;; создать файл File.fl во всех папках из списка существующих полный путей в буфере обмена

listx=PS<"%p"//1//0>||1 <FOR> 1 <TO> GLOBALLISTX<0> $GLOBALEXTXX=$GLOBALLISTX1[:INDEX:] GLOBALEXTXX<a> <NEXT> ;; получить в активной панели файлы и разбить на группы по расширениям для обработки в цикле

rends=@[tc=AP] slist=[tc=AM] <FOR> 1 <TO> GLOBALSLIST<0> start=ChmDecomp||param<-decompile~~$f254\~~GLOBALSLIST<:INDEX:>> sends=<info=o72GLOBALSLIST<:INDEX:>//> movee=PS<$f254//2//0>||GLOBALRENDS<1> delss=FOLDC<GLOBALMOVEE<1>//1//-1//*.hhc|*.hhk>||1 <NEXT> tempxx tcimg=$cm540 ;; Декомпилировать выделенные chm файлы с сохранением результата в активную панель. Для каждого файла создается свой каталог

rends=-1!!-1 <FOR> 1 <TO> GLOBALRENDS<0> sends=GLOBALRENDS<x:INDEX:>!!-1||formt<ex1> zends=TOTALCMD#BAR#DATA||$$@CRLF%%COMMANDER_PATH%%\TCIMG.exe||$$@CRLFGLOBALSENDS<x1>||$$@CRLFWcmicons.dll,1||$$@CRLFGLOBALSENDS<x2> creat="%p"||Button.txt||content<GLOBALZENDS<x1>>||code<1> <NEXT> ;; создать кнопки для Total Commander из строк команд TCIMG.txt в буфере обмена и сохранить в активную панель каждую отдельно в файлы Button...txt

rends=-1!!-1 forpgs <FOR> 1 <TO> GLOBALRENDS<0> sends=#GLOBALRENDS<:INDEX:> creat="%p"||x.html||##GLOBALRENDS<:INDEX:>||&&.+/(.+)\.html!!$1||content<GLOBALSENDS<x1>> <NEXT> ;; сохранить в активную панель в именные файлы содержимое страниц интернета - список ссылок из буфера обмена

sends=%P%N??-1 <FOR> 1 <TO> GLOBALSENDS<0> brwsr=GLOBALSENDS<:INDEX:> <NEXT> ;; открыть список ссылок из файла под курсором. Браузер прописывается в в TCIMG.ini в секцию [Programs] ключ Browser

sends=%P%N??-1 exect=$var_s='GLOBALSENDS<1>'||$var_i=1 <FOR> 1 <TO> GLOBALSENDS<0> exect=$var_i='GLOBALSENDS<:INDEX:>'='$var_s'?$var_i+1:2||$var_s='GLOBALSENDS<:INDEX:>'='$var_s'?'$var_s':'GLOBALSENDS<:INDEX:>' rends=GLOBALSENDS<:INDEX:>??:INDEX:||§!!$var_i <NEXT> GLOBALRENDS<a> ;; в содержимом файла под курсором в одинаковых строках заменить символ § на счётчик, который начинается с 2-х с каждой строкой не совпадающей с предыдущей и отобразить конечный результат в таблице переменной GLOBALRENDS

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=@[combo=Удаление~~фрагментов~~между~~точками||Введите~~позицию~~точек~~с~~конца~~имени||-2|-2,-3|-1||343||117||1||1] slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> aends=<info=o72GLOBALSLIST<:INDEX:>//>||formt<0!![^\.]+>||?T|d,GLOBALSENDS<1>||?F63||&&[\r\n]+!!. renmm=GLOBALSLIST<:INDEX:>||GLOBALAENDS<1> <NEXT> ;; в именах выделенных объектов удалить часть имени от точки(ек), чья(и) позиции вписаны в диалоговом окне, до следующей точки

sends=[combo=Извлечение~~строк||Введите~~фрагмент~~для~~поиска:||что~~искать?||420||117||1||1] GLOBALSENDS<c> slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> extrf=GLOBALSLIST<:INDEX:>||x//0//x.txt||compare<cliptext|3,0>||ending<0>||progres<> textt=GLOBALEXTRF<1>||clpget!!GLOBALSLIST<:INDEX:>||backup<0> <NEXT> ;; извлечь из выделенных файлов строки имеющие вхождения введенное в диалоговом окне , сохранить извлеченные строки с именами исходных файлов в формате TXT и произвести в них замену поискового вхождения на полные пути исходных файлов

sends=[combo=Извлечение~~строк||Введите~~фрагмент~~для~~поиска:||что~~искать?||420||117||1||1] GLOBALSENDS<c> slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> extrf=GLOBALSLIST<:INDEX:>||x//0//x.txt||compare<cliptext|3,0>||ending<0> textt=GLOBALEXTRF<1>||clpget!!GLOBALSLIST<:INDEX:>||backup<0> <NEXT> ;; извлечь из выделенных файлов строки имеющие вхождения введенное в диалоговом окне , сохранить извлеченные строки с именами исходных файлов в формате TXT и произвести в них замену поискового вхождения на полные пути исходных файлов

sends=[input=BOX11]??1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||index.html||numb<GLOBALSENDS<1>>||clip<> <NEXT> ;; создание в выделенных каталогах файлов html с содержимым буфера обмена, количество создаваемых файлов вводиться в диалоге

sends=-1 noglob slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> xlist=@GLOBALSLIST<:INDEX:>||##path<4> start=BATtoEXE||-bat||GLOBALSLIST<:INDEX:>||-save||GLOBALXLIST<1>.exe||-icon||GLOBALSENDS<1> pause=300 <NEXT> ;; конвертировать выделенные *.bat в одноимённые *.exe со значком - путь *.ico из буфера обмена

sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> brwsr=GLOBALSENDS<:INDEX:> <NEXT> ;; открыть список ссылок из буфера обмена. Браузер прописывается в в TCIMG.ini в секцию [Programs] ключ Browser

sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> brwsr=GLOBALSENDS<:INDEX:>!!%%PROGRAMFILES%%\Internet~~Explorer\iexplore.exe <NEXT> ;; открыть ссылки из буфера обмена C:\Listurl.txt в браузере IE

sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> creat="%p"||GLOBALSENDS<:INDEX:>.url||content<[InternetShortcut]@CRLFURL=GLOBALSENDS<:INDEX:>>||#Slin27,lin28,lin29,lin30,lin31,lin32 <NEXT> ;; для списка ссылок из буфера обмена создать в текущей панели именные ярлыки url (с дополнительным преобразованием имен)

sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> creat="%p"||GLOBALSENDS<:INDEX:>.url||content<[InternetShortcut]@CRLFURL=GLOBALSENDS<:INDEX:>>||https://!!||sdel<> <NEXT> ;; для списка ссылок из буфера обмена создать в текущей панели именные ярлыки url

sends=-1!!-1 <FOR> 1 <TO> GLOBALSENDS<0> folds="%p"||GLOBALSENDS<:INDEX:> pause=100 pathb=GLOBALFOLDS<1> <NEXT> ;; создать в активной панели папки по списку из буфера обмена + войти в каждую в активной панели в новой вкладке

sends=-1!!-1 forpgs <FOR> 1 <TO> GLOBALSENDS<0> creat="%p"||LIST_:INDEX:.txt||content<GLOBALSENDS<x:INDEX:>> <NEXT> tcimg=$cm540 ;; создать в активной панели файлы LIST_№.txt с содержимым буфера обмена (каждая строка в отдельном файле)

sends=-1!!-1 GLOBALSENDS<a> copys=$GLOBALSENDS||"%p"//0 <FOR> 1 <TO> GLOBALCOPYS<0> comnt=GLOBALCOPYS<:INDEX:>||0||GLOBALSENDS<:INDEX:> <NEXT> ;; копировать объекты по списку из буфера обмена в активную панель, каждому копируемому объекту прописать в комментарии путь к источнику

sends=-1!!-1 slist=$GLOBALSENDS||formt<sps43,sps44,1,54,63> <FOR> 1 <TO> GLOBALSLIST<0> sends=x||##rndm<3|20>||#Hcrc32|1 sends=MIME-Version:~~1.0~~LFContent-Type:~~application/octet-stream;~~name=''omega''~~LFContent-Transfer-Encoding:~~base64~~LFContent-Disposition:~~attachment;~~filename=''GLOBALSENDS<1>''??2 sends=GLOBALSLIST<:INDEX:>>??3||^^GLOBALSENDS<2>~~ dectd=0||x||"%p"//0||content<GLOBALSENDS<x3>> renmm=GLOBALDECTD<1>||extplus<> <NEXT> tcimg=50~~$cm540 ;; восстановить все файлы из списка кода в b64 в буфере в активную панель

sends=-1??-1 <FOR> 1 <TO> GLOBALSENDS<0> pathm=GLOBALSENDS<:INDEX:>||fold<> <NEXT> ;; перейти к объектам, каждый в новой вкладке, в левой панели по списку путей из буфера обмена

sends=-1??-1 <FOR> 1 <TO> GLOBALSENDS<0> paths=GLOBALSENDS<:INDEX:>||fold<> <NEXT> ;; перейти к объектам, каждый в новой вкладке, в правой панели по списку путей из буфера обмена

sends=C:\List.txt??-1 <FOR> 1 <TO> GLOBALSENDS<0> copyy=%P%N||"%t"//0||##GLOBALSENDS<:INDEX:> <NEXT> focusp tcimg=50~~$cm540 ;; копировать файл под курсором в другую панель изменяя имена. Имена без расширений берутся из списка List.txt. Расширение берётся из копируемого файла

sends=C:\List.txt??-1 <FOR> 1 <TO> GLOBALSENDS<0> copyy=%P%N||"%t"//0||##GLOBALSENDS<:INDEX:>||**0!! <NEXT> focusp tcimg=50~~$cm540 ;; копировать файл под курсором в другую панель изменяя имена. Имена с расширениями берутся из списка List.txt

sends=C:\List.txt??-1 <FOR> 1 <TO> GLOBALSENDS<0> copyy=%P%N||"%t"//0||##GLOBALSENDS<:INDEX:>||**0!!new <NEXT> focusp tcimg=50~~$cm540 ;; копировать файл под курсором в другую панель изменяя имена. Имена без расширений берутся из списка List.txt. Расширение new

sends=c:\listurl.txt!!-1 <FOR> 1 <TO> GLOBALSENDS<0> brwsr=GLOBALSENDS<:INDEX:> <NEXT> ;; открыть список ссылок из файла listurl.txt. Браузер прописывается в в TCIMG.ini в секцию [Programs] ключ Browser

sends=C:\Listurl.txt??-1 <FOR> 1 <TO> GLOBALSENDS<0> brwsr=GLOBALSENDS<:INDEX:>!!%%PROGRAMFILES%%\Internet~~Explorer\iexplore.exe <NEXT> ;; открыть ссылки из файла C:\Listurl.txt в браузере IE

sends=C:\Repl.txt??-1 slist=PS<"%p"//1//0//*.ini> <FOR> 1 <TO> GLOBALSLIST<0> count=GLOBALSLIST<:INDEX:>||prov=||0||countline<1> textt=GLOBALSLIST<:INDEX:>||?T|e,GLOBALCOUNT<1>!!##GLOBALSENDS<1> <NEXT> ;; в активной панели в файлах *.ini заменить строки начинающиеся с "prov=" на строку из файла C:\Repl.txt

sends=C:\ReplaceList.txt??-1||&&(.+)\R(.+)!!$1¤$2 <FOR> 1 <TO> GLOBALSENDS<0> slist=@GLOBALSENDS<:INDEX:>||¤!!@CRLF textt=%P%N||?T|e1:GLOBALSLIST<1>,1:-1!!##GLOBALSLIST<2>||backup<0> <NEXT> beepss ;; в файле под курсором произвести поиск и замену согласно списка ReplaceList.txt(нечётная строка - поисковая, последующая чётная - заменяющая)

sends=c:\файл-список№1.txt??-1 exect=$var_s='' <FOR> 1 <TO> GLOBALSENDS<0> xends=c:\документ№2.txt??-1||formt<0!!(?m)(GLOBALSENDS<:INDEX:>.+)> exect=$var_s=GLOBALXENDS<0>>=6?'$var_s'&_ArrayToString($GLOBALXENDS,@CRLF,1)&@CRLF:'$var_s' <NEXT> asave=var_s||c:\документ№2_rez.txt||noarray<1> ;; извлечь все строки из файла c:\документ№2.txt в которых есть фразы из файла c:\файл-список№1.txt (количество строк равно или более 6-ти) и записать результат в файл c:\документ№2_rez.txt

sends=c:\файл-список№1.txt??-1 exect=$var_s='' <FOR> 1 <TO> GLOBALSENDS<0> xends=c:\документ№2.txt??-1||formt<0!!(?m)(GLOBALSENDS<:INDEX:>.+)> exect=$var_s=GLOBALXENDS<0>>=6?'$var_s'&'GLOBALSENDS<:INDEX:>'&@CRLF:'$var_s' <NEXT> asave=var_s||c:\документ№2_rez2.txt||noarray<1> ;; записать в файл c:\документ№2_rez2.txt все слова из списка c:\файл-список№1.txt, которые встретились 6-ть и более раз в строках файла c:\документ№2.txt

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

shape=1 dilog=[combo=BOX_U3][combo=BOX_U2] global slist=%WL xlist=FOLDM<$GLOBALSLIST//2//-1> <FOR> 1 <TO> GLOBALXLIST<0> creat=GLOBALXLIST<:INDEX:>||GLOBALCOMBO<1>||numb<GLOBALCOMBO<2>> <NEXT> tcimg=$cm524 ;; создать файл(ы) (выбор имени файла и количества в диалоговом окне) во всех подпапках выделенных папок (включая корень)

shape=1 dilog=[combo=BOX_U3][combo=BOX_U2] global slist=%WL xlist=FOLDM<$GLOBALSLIST//-2//-1> <FOR> 1 <TO> GLOBALXLIST<0> creat=GLOBALXLIST<:INDEX:>||GLOBALCOMBO<1>||numb<GLOBALCOMBO<2>> <NEXT> tcimg=$cm524 ;; создать файл(ы) (выбор имени файла и количества в диалоговом окне) во всех подпапках выделенных папок (исключая корень)

shape=U14 sends=[combo=BOX_U86] xends=[combo=BOX_U87] slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> aends=<info=o72GLOBALSLIST<:INDEX:>//>||formt<0!![^\s]+>||#LGLOBALSENDS<1>:GLOBALXENDS<1>||&&[\r\n]+!!~~ renmm=GLOBALSLIST<:INDEX:>||GLOBALAENDS<1> <NEXT> ;; переименовать выделенные объекты: оставить нужные слова разделенные пробелом, позиции слов задаются в диалоговом окне

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> <STEP> 5 creat="%t"||Name.txt||content<GLOBALSLIST<t:INDEX::{:INDEX:+4}>> <NEXT> ;; создать в другой панели списки выделенных объектов по 5 в каждом именами Name.txt и счётчиком

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> alist=PS<GLOBALSLIST<:INDEX:>//0//-1> bends=<xfolder=41//$GLOBALALIST> modft=GLOBALSLIST<:INDEX:>||0||GLOBALBENDS<1> <NEXT> ;; изменить выделенным папкам дату модификации на дату модификации самого старого объекта в выделенных папках

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> copyy=c:\1.html||"%p"//0||##<info=f12GLOBALSLIST<:INDEX:>//> textt=GLOBALCOPYY<1>||@#zips#@!!<info=f13GLOBALSLIST<:INDEX:>//>||backup<0> <NEXT> tcimg=$cm540 ;; создать для выделенных файлов именные htm из шаблона c:\1.html, в которых заменить метку @#zips#@ на имя файла

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> creat="%p"||list<GLOBALSLIST<:INDEX:>> <NEXT> ;; создать в активной панели файлы из списка выделенных файлов

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> creat="%t"||list<GLOBALSLIST<:INDEX:>> <NEXT> ;; создать в другой панели файлы из списка выделенных файлов

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> creat=<info=o75GLOBALSLIST<:INDEX:>//>||list<GLOBALSLIST<:INDEX:>> <NEXT> patha="%P" ;; создать файлы из списка выделенных файлов (Ctrl+B) в папках выделенных файлов и вернуться в панель с папками.

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> creat=<info=o75GLOBALSLIST<:INDEX:>//>||list<GLOBALSLIST<:INDEX:>> <NEXT> ;; создать файлы из списка выделенных файлов в папках выделенных файлов

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||index.html||clip<> <NEXT> ;; в каждой выделенной папке создать файл index.html

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> folds="%p"||GLOBALSLIST<:INDEX:>||&&(.*?)~~.*!!$1||&&(.*?)_.*!!$1||&&(.*?)-.*!!$1 movee=GLOBALSLIST<:INDEX:>||GLOBALFOLDS<1>//0||&&(.*?)~~.*!!$1||&&(.*?)_.*!!$1||&&(.*?)-.*!!$1 <NEXT> ;; создать для каждого выделенного файла в активной панели - свою папку с измененным именем (отбрасывание символов после пробела, подчеркивания и дефиса) и перемещение каждого файла в свою папку с переименованием в имя папки.

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> listt=GLOBALSLIST<:INDEX:>||##<info=f13GLOBALSLIST<:INDEX:>//>~~-~~||^^cntr<1|1|1>~~||$$<info=f1GLOBALSLIST<:INDEX:>|1//>||save<"%p<info=f12GLOBALSLIST<:INDEX:>//>-<info=f3GLOBALSLIST<:INDEX:>//>.md5"> <NEXT> ;; создание для каждого выделенного файла, файла с контрольной суммой md5 с именем номером и хеш суммой md5 с сохранением в активной панели

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> openf=GLOBALSLIST<:INDEX:>||%%WINDIR%%\notepad.exe||&&wait <NEXT> ;; поочерёдно открывать выделенные файлы в notepad с ожиданием завершения предыдущего процесса

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> pathu=<info=f50GLOBALSLIST<:INDEX:>> <NEXT> ;; перейти в противоположной панели к путям объектов запуска ярлыков: каждый в новой вкладке

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=<info=f61GLOBALSLIST<:INDEX:>>??1||&&.{7}(.+)!!$1 textt=GLOBALSLIST<:INDEX:>||&&(?s)(.+[\r\n]+PERFORMER[^\r\n]+[\r\n]+TITLE~~'')([^\r\n]+)(''.+)!!${1}GLOBALSENDS<1>${3} <NEXT> ;; в содержимом выделенных текстовых файлов найти необходимый отрезок и заменить соответствующими именами родительской папки, удалив из них первые 7 символов

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=GLOBALSLIST<:INDEX:>??1||formt<u19> copyy=GLOBALSENDS<t1,2>||"%p"//0||##<info=f12GLOBALSLIST<:INDEX:>//>||**0!!txt <NEXT> ;; создание из выделенных файлов html - текстовых файлов, помещенных рядом, с содержимым - подвергнутым форматированию (удаление ненужных тегов) и именами взятыми из каждого отдельного файла

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=PS<GLOBALSLIST<:INDEX:>//1//0//*.ion//1>??1 iends=<info=t1$GLOBALSENDS[1]//>??1 renmm=GLOBALSLIST<:INDEX:>||&&(.*)\(.+\)$!!$1||$$(GLOBALIENDS<1>) <NEXT> ;; добавить в конец имён выделенных папок количество файлов 1-го уровня (число в скобках)

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=PS<GLOBALSLIST<:INDEX:>//1//-1//*.ion//1>??1 iends=<info=t1$GLOBALSENDS[1]//>??1 renmm=GLOBALSLIST<:INDEX:>||&&(.*)\(.+\)$!!$1||$$(GLOBALIENDS<1>) <NEXT> ;; добавить в конец имён выделенных папок количество всех файлов (число в скобках)

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> sends=x||##rndm<3|40>||$$+[info=s36!!#sek.!!s35!!#min.!!s34!!#chas.!!s33!!#.!!s32!!#.!!s31] creat=GLOBALSLIST<:INDEX:>||Name.txt||content<GLOBALSENDS<1>> <NEXT> ;; создать в каждом из выделенных каталогах файл Name.txt с случайным содержимым + системное время

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> xlist=@GLOBALSLIST<:INDEX:>||##path<4> start=BATtoEXE||-bat||GLOBALSLIST<:INDEX:>||-save||GLOBALXLIST<1>.exe||-icon||%T%M pause=300 <NEXT> ;; конвертировать выделенные *.bat в одноимённые *.exe со значком *.ico из неактивной панели

slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> zlist=PS<GLOBALSLIST<:INDEX:>//1//0//nfo> exect=$var_path='GLOBALZLIST<1>'=''''?'GLOBALSLIST<:INDEX:>':'GLOBALZLIST<1>' modfs=PS<GLOBALSLIST<:INDEX:>//1>||0||<mdata=$var_path> <NEXT> ;; для всех файлов каждой выделенной папки изменить дату модификации с условием: если в папке есть файл .nfo, то дата модификации берётся из этого файла, если нет, то из родительской папки

slist=%WL forpg=Проверка~~плейлистов||TCIMG.dll,60 <FOR> 1 <TO> GLOBALSLIST<0> sends=GLOBALSLIST<:INDEX:>??-1||&&(?i)(#EXTINF:-1,\N*)\R*(\N*)!!$1|$2|$2 anf2d=$GLOBALSENDS||6||([^|]+)||begin<0> arr2d=$GLOBALANF2D||27|2|##@@e18::||21|2|^0$ asave=GLOBALARR2D||GLOBALSLIST<:INDEX:>|9||owrite<31|1|bak>||delim2d<@CRLF|@CRLF|1|-1|0|1>||code<1>||convert<^^#EXTM3U@CRLF> <NEXT> ;; в выделенных плейлистах m3u со ссылками на медиапотоки (радио) проверить и оставить только существующие, файлы перезаписываются, создаётся bak (используется bass.dll)

slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> alist=PS<GLOBALSLIST<:INDEX:>//1//0>||formt<24,#0o10:F:> renms=$GLOBALALIST||##<info=f61:://>||$$_cntr<1|1|3>||noprogres<> <NEXT> ;; переименовать в выделенных папках файлы именем папки с добавлением счётчиком (предварительно сортировать по числовому возрастанию и по дате модификации по возрастанию)

slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> cmdbt=tree~~/A~~/F~~''<info=o76GLOBALSLIST<:INDEX:>1//>''||std<8> $GLOBALRESLT+$GLOBALCMDBT <NEXT> GLOBALRESLT<e> ;; отобразить для выделенных каталогов иерархическую структуру каталогов и файлов в графическом виде

slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> cmdbt=tree~~/A~~/F~~''<info=o76GLOBALSLIST<:INDEX:>1//>''||std<8> $GLOBALRESLT+$GLOBALCMDBT[3:-1] <NEXT> GLOBALRESLT<e> ;; отобразить для выделенных каталогов иерархическую структуру каталогов и файлов в графическом виде (без начальной информации о томе, т.е. без 2-х строк)

slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> stext=PS<GLOBALSLIST<:INDEX:>//1//0//*.txt>||GLOBALSLIST<:INDEX:>//0//Summa <NEXT> ;; в каждой из выделенных папок объединить файлы txt, создав файлы Summa.txt

slist=%WL forpgs <FOR> 1 <TO> GLOBALSLIST<0> xlist=PS<GLOBALSLIST<:INDEX:>//1//0> exect=$var_ifile=Floor(GLOBALXLIST<0>/2) delss=GLOBALXLIST<t1:$var_ifile>||1 <NEXT> ;; в каждой из выделенной папки удалить в корне первую половину файлов

slist=%WL sends=@======================================== forpgs <FOR> 1 <TO> GLOBALSLIST<0> cmdbt=tree~~/A~~/F~~''<info=o76GLOBALSLIST<:INDEX:>1//>''||std<8> $GLOBALRESLT+$GLOBALSENDS[1]+$GLOBALCMDBT[3:-1] <NEXT> GLOBALRESLT<e> ;; отобразить для выделенных каталогов иерархическую структуру каталогов и файлов в графическом виде (без начальной информации о томе, т.е. без 2-х строк + отделять каждую корневую папку ===========)

slist=%WL xlist=$GLOBALSLIST||##path<4> <FOR> 1 <TO> GLOBALSLIST<0> creat="%p"||content<@GLOBALSLIST<:INDEX:>>||GLOBALXLIST<:INDEX:>.txt <NEXT> ;; создать в активной панели файлы.txt на основе имен выделенных файлов с содержимым - полный путь выделенного файла с соответствующим именем

slist=%WL xlist=GLOBALSLIST<t>||##path<6> <FOR> 1 <TO> GLOBALSLIST<0> count=GLOBALSLIST<:INDEX:>||clpget||0||countline<0|2> sends=GLOBALCOUNT<t>??-1||formt<0!!(?m)clpget[^\r\n]*>||?T|a,1:-1!!GLOBALXLIST<:INDEX:>~~ asave=GLOBALSENDS||"%pLinesTag"|2|@CRLF|1 <NEXT> ;; в выделенных файлах найти строки с меткой из БО, удалить в этих строках всё, по метку, добавить имя файла в начало строк и сохранить в файл LinesTag в активной панели

slist=%WL||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> sends=@[combo=Удаление~~фрагментов~~между~~точками||Введите~~позицию~~точек~~с~~конца~~имени||-2|-2,-3|-1||343||117||1||1] slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> aends=<info=o72GLOBALSLIST<:INDEX:>//>||formt<0!![^\.]+>||?T|d,GLOBALSENDS<1>||?F63||&&[\r\n]+!!. renmm=GLOBALSLIST<:INDEX:>||GLOBALAENDS<1> <NEXT> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<$GLOBALRENMM>||owrite<1> ;; в именах выделенных объектов удалить часть имени от точки(ек), чья(и) позиции вписаны в диалоговом окне, до следующей точки (с возможностью отката)

slist=%WL||##path<41>||formt<1> <FOR> 1 <TO> GLOBALSLIST<0> lists=%WL||formt<0!!.*\\GLOBALSLIST<:INDEX:>\\.*> copys=$GLOBALLISTS||"%t"GLOBALSLIST<:INDEX:>//0||numb<3> <NEXT> ;; из выделенного после поиска или показа файлов без каталогов скопировать в другую панель в именные родительские папки по 3 файла из каждой подпапки

slist=@$f26explorer.exe sends=ms-settings: aends=C:\Lists.txt??-1||<dellist=$GLOBALSENDS|7> <FOR> 1 <TO> GLOBALAENDS<0> cends=GLOBALAENDS<:INDEX:>!!-8~~GLOBALSENDS<1> dends=$GLOBALCENDS??-1||?T|a,2!!GLOBALSENDS<1> clint=GLOBALSLIST<1>||"%p"||<GLOBALDENDS<1>||#GLOBALDENDS<2> <NEXT> ;; из списка строк файла C:\Lists.txt создать в активной панели *.lnk для быстрого доступа к настройкам Windows

slist=[tc=AM] <FOR> 1 <TO> GLOBALSLIST<0> exect=$var_i=<info=o9%%TCIMG_TEMP%%\link-font.txt//> $FORCONT=$var_i=2?0:1 downl=GLOBALSLIST<:INDEX:>fonts//2||%%TCIMG_TEMP%%\link-font.txt||pause<1-2>||progres<> <NEXT> ;; если файл link-font.txt со списком ссылок существует в папке TCIMG_TEMP то тогда начать закачку по списку и сохранить данные в папке fonts

slist=C:\List.txt <FOR> 1 <TO> GLOBALSLIST<0> anf2d=GLOBALSLIST<:INDEX:>||2||(.*)=(.*) modft=GLOBALANF2D1<1>||0||GLOBALANF2D2<1>||recurse<1> <NEXT> beepss ;; изменить папкам (с рекурсией) активной панели из списка C:\List.txt дату модификации согласно прописанному в списке

slist=C:\ListName.txt <FOR> 1 <TO> GLOBALSLIST<0> copys=%WL||"%p"//1||##GLOBALSLIST<:INDEX:> <NEXT> beepss ;; выделенным файлам в активной панели создать копии с именами по списку C:\ListName.txt (с заменой в случае совпадения)

slist=cliplist <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||File.fl <NEXT> ;; создать файл File.fl во всех папках из списка существующих полный путей в буфере обмена

slist=cliplist <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||ReadMe||noext<> <NEXT> ;; создать файл ReadMe (без расширения) во всех папках из списка полный путей в буфере обмена

slist=cliplist <FOR> 1 <TO> GLOBALSLIST<0> xlist=GLOBALSLIST<:INDEX:>||?A3 folds=GLOBALXLIST<1>||GLOBALSLIST<:INDEX:> <NEXT> pathm=GLOBALSLIST<1> ;; создать папки по путям из буфера обмена и перейти к первой созданной папке в левой панели

slist=INI<2!!%P%N>||formt<3> xlist=INI<2!!%T%M>||formt<3> hends=<info=n15|$GLOBALSLIST|$GLOBALXLIST>!!-8, <FOR> 1 <TO> GLOBALHENDS<0> hlist=INI<5!!%T%M!!GLOBALHENDS<:INDEX:>> iniws=%P%N||GLOBALHENDS<:INDEX:>||$GLOBALHLIST <NEXT> ;; в INI файле под курсором заменить содержимое подобных секций из файла другой панели

slist=PS<"%p"//1//0//Prog-ver-*.txt> <FOR> 1 <TO> GLOBALSLIST<0> openf=GLOBALSLIST<:INDEX:>||view64||&&wait <NEXT> ;; поочерёдное открытие файлов TXT активной панели, чьи имена начинаются с "Prog-ver-", в просмотрщике "View64"

slist=PS<"%p"//1//-1//modin.db>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> pathb=GLOBALSLIST<:INDEX:> <NEXT> ;; открыть в новых вкладках папки активной панели в которых есть файл modin.db

slist=PS<"%p"//1//-1//modin.db>||##path<10> <FOR> 1 <TO> GLOBALSLIST<0> pathu=GLOBALSLIST<:INDEX:> <NEXT> ;; открыть в новых вкладках неактивной панели папки активной панели в которых есть файл modin.db

slist=PS<"%p"//2//-1> <FOR> 1 <TO> GLOBALSLIST<0> creat=GLOBALSLIST<:INDEX:>||line<bases.ini;bases.txt;bases.html!!;> <NEXT> ;; в каждой папке и их подпапках активной панели создать три файла "bases.ini, bases.txt, bases.html"

slist=PS<"%t"//1//0//*.exe>||test<1n!!(?i)Prog_[a-z]{2}$> <FOR> 1 <TO> GLOBALSLIST<0> start=GLOBALSLIST<:INDEX:> <NEXT> ;; запустить *.exe неактивной панели с именами "Prog_ДвеБуквыЛатиница"

slist=PS<"D:\Infa\View\"//1//0//*.exe//1> <FOR> 1 <TO> GLOBALSLIST<0> openf=GLOBALSLIST<:INDEX:>||ASSOC||&&wait <NEXT> ;; поочерёдное (ожидает закрытие предыдущего окна) открытие файлов(исключая *.exe) каталога "D:\Infa\View\" в ассоциированной в TC программе

style=U14 textt=$f200Lists\TempClipboard.txt||##||backup<0> dilog=[check=BOX_UR6] dends=$GLOBALCHECR1??-1||@CRLF!!,||,:!!: pends=-1??-1||formt<54,56,63> exect=$var_i=<info=t1-1> clpclr iends=1-$var_i!!-1||?H|5||,!!@CRLF <FOR> 1 <TO> GLOBALIENDS<0> xends=GLOBALPENDS<GLOBALIENDS<:INDEX:>>??-1||~~!!@CRLF||#LGLOBALDENDS<1> kends=$GLOBALXENDS??-1||@CRLF!!~~ asave=GLOBALKENDS||$f200Lists\TempClipboard.txt|2|@CRLF|2 <NEXT> bufsr=##<ifile=$f200Lists\TempClipboard.txt>||?F63 ;; в буфере обмена построчно оставить выбранные номера слов разделенные пробелом

tempxx itray=3||4 xclip=1 asave=GLOBALXCLIP||$f254ClipAll.txt|1 txtsp=$f254ClipAll.txt||$f254Button||1!!9 slist=PS<$f254Button!!1!!0> <FOR> 1 <TO> GLOBALSLIST<0> barbt=1||-1||butfrom<GLOBALSLIST<:INDEX:>> <NEXT> ;; запустить команду слежения за буфером обмена, скопировать нужные кнопки TC, при повторном вызове команды завершить слежение и создать скопированные кнопки на активной панели инструментов

textt="%p"AP_FileSize.txt||##||backup<0> slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> infos=3||2||GLOBALSLIST<:INDEX:>||1 sends=$GLOBALINFOS0@$GLOBALINFOS1@??-1||formt<0!!(?m)^(File~~size[^\r\n]*)>||?B2!!File~~size||GiB!!GB||MiB!!MB||KiB!!KB asave=GLOBALSENDS||"%p"AP_FileSize.txt|2|@CRLF|2 <NEXT> clptx=GLOBALASAVE<1> ;; записать размеры выделенных объектов в созданный в активной панели AP_FileSize.txt и в буфер обмена

textt=$f200Lists\AfterRenaming.txt||##||backup<0> slist=%WL||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> shape=U14 sends=[combo=BOX_U86] xends=[combo=BOX_U87] slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> aends=<info=o72GLOBALSLIST<:INDEX:>//>||formt<0!![^\s]+>||#LGLOBALSENDS<1>:GLOBALXENDS<1>||&&[\r\n]+!!~~ renmm=GLOBALSLIST<:INDEX:>||GLOBALAENDS<1> asave=GLOBALRENMM||%%TCIMG_PATH%%\Files\Lists\AfterRenaming.txt|2|@CRLF|1 <NEXT> textt=%%TCIMG_PATH%%\Files\Lists\AfterRenaming.txt||formt<63> ;; переименовать выделенные объекты: оставить нужные слова разделенные пробелом, позиции слов задаются в диалоговом окне (с возможностью отката)

textt=$f200Lists\TempClipboard.txt||##||backup<0> style=U18 dilog=[check=BOX_UR6] dends=$GLOBALCHECR1??-1||@CRLF!!,||,:!!: pends=-1??-1||formt<54,56,63> exect=$var_i=<info=t1-1> clpclr iends=1-$var_i!!-1||?H|5||,!!@CRLF <FOR> 1 <TO> GLOBALIENDS<0> xends=GLOBALPENDS<GLOBALIENDS<:INDEX:>>??-1||~~!!@CRLF||#LGLOBALDENDS<1> kends=$GLOBALXENDS??-1||@CRLF!!~~ asave=GLOBALKENDS||$f200Lists\TempClipboard.txt|2|@CRLF|2 <NEXT> bufsr=##<ifile=$f200Lists\TempClipboard.txt> ;; в буфере обмена построчно оставить выбранные номера слов разделенные пробелом

vends=@D:\Test.bar exect=$var_n=##$INI<8//GLOBALVENDS<1>//Buttonbar//Buttoncount> rends=-1!!-1 <FOR> 1 <TO> GLOBALRENDS<0> sends=GLOBALRENDS<x:INDEX:>!!-1||formt<ex1> exect=$var_i=$var_n+:INDEX:||$var_j=1+:INDEX: zends=button$N$=Wcmicons.dll,1@CRLF!!$var_j||$$cmd$N$=%%COMMANDER_PATH%%\TCIMG.exe@CRLF||$$param$N$=GLOBALSENDS<x1>@CRLF||$$menu$N$=GLOBALSENDS<x2>@CRLF||$N$!!$var_i <NEXT> zends=GLOBALVENDS<1> asave=GLOBALZENDS||GLOBALVENDS<1>|1||2:-1||code<1> iniwr=GLOBALVENDS<1>||Buttonbar||Buttoncount||$var_i ;; в D:\Test.bar добавить кнопки из строк команд TCIMG.txt в буфере обмена

watch=1 bends=[tc=TF-1]??-1||@CRLF!!| slist=PS<"%p"//1//-1//GLOBALBENDS<1>> <FOR> 1 <TO> GLOBALSLIST<0> sends=@<info=o73GLOBALSLIST<:INDEX:>//> fends=@<info=o75GLOBALSLIST<:INDEX:>//> xends=@[tc=TP]GLOBALSENDS<1> copyy=GLOBALXENDS<1>||GLOBALFENDS<1>//1 <NEXT> ;; заменить все подобные файлы в АКТИВНОЙ панели (с рекурсией) файлами из другой панели

watch=1 sends=File_0001-File_1000!!-1||?H|6||,!!@CRLF <FOR> 1 <TO> GLOBALSENDS<0> creat="%p"||GLOBALSENDS<:INDEX:>||content<GLOBALSENDS<:INDEX:>> <NEXT> ;; создать в активной панели 1000 файлов (File_0001....File_1000) с содержимым собственного имени без расширения (начальное количество цифр счетчика - 4)

watch=1 shape=U14 sends=[combo=BOX2][combo=BOX_U4.2]1-[combo=BOX_U2]!!-1||?H|6||,!!@CRLF <FOR> 1 <TO> GLOBALSENDS<0> creat="%p"||GLOBALSENDS<:INDEX:>.txt||content<GLOBALSENDS<:INDEX:>> <NEXT> ;; создать файлы в активной панели с содержимым собственных имён (имя, разрядность, количество вводится в диалоговом окне)

watch=1 slist=%WL <FOR> 1 <TO> GLOBALSLIST<0> xlist=@GLOBALSLIST<:INDEX:>||##path<4>||?A3 elist=PS<GLOBALSLIST<:INDEX:>//1//0//GLOBALXLIST<1>*.exe> olist=$GLOBALELIST||$$|<info=v18::>||formt<0!!(?m).+\|0$!!> anf2d=$GLOBALOLIST||2||(.+)\|(.+)||begin<0> icoft=GLOBALSLIST<:INDEX:>||0||GLOBALANF2D0<1> <NEXT> rstart ;; назначить выделенным папкам первый значок из первого exe (имеющего значки) начало имени которого совпадает с началом имени родительской папки (проверка первого уровня папки)

watch=1 xlist=[tc=TL-1] slist=PS<"%p"//-2//-1> <FOR> 1 <TO> GLOBALSLIST<0> copys=$GLOBALXLIST||GLOBALSLIST<:INDEX:>//1||noprogres<> <NEXT> ;; копировать файлы неактивной панели во все папки АКТИВНОЙ панели (с рекурсией)

watch=1 xlist=[tc=TL-1] slist=PS<"%p"//-2//-1> <FOR> 1 <TO> GLOBALSLIST<0> copys=$GLOBALXLIST||GLOBALSLIST<:INDEX:>//9||owrite<10>||noprogres<> <NEXT> ;; заменить все подобные файлы в АКТИВНОЙ панели (с рекурсией) файлами из другой панели


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