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


xlist

Создание различных списков, преобразование и передача их в другие команды и параметры.
Аналог команды slist

xlist=Analog

Параметры:

AnalogВсе параметры аналогичны команде slist.

Примечания:

Дополнительные символы, которые можно использовать в строке: "@CR" - Символ возврата каретки, Chr(13), "@LF" - Символ перевода строки, Chr(10), "@CRLF" = @CR & @LF, "@TAB" - Символ Tab, Chr(9).

Если в команде(ах) необходимы кавычки, то используются две одинарных кавычки (апострофа) '' , если в команде необходим пробел - используются два символа тильды ~~.

Команда имеет возможность передавать другим командам информацию через именные глобальные переменные. см. Дополнение №23

Имя переменнойОписание
GLOBALXLIST0массив входных данных (список исходных путей объектов)
GLOBALXLISTмассив выходных данных (список преобразованных по заданным условиям путей объектов)
GLOBALXLIST1массив вошедших в список объектов (список путей объектов, которые вошли в список)
GLOBALXLIST2массив не вошедших в список объектов (список путей объектов, которые не вошли в список)
GLOBALXLIST3массив выходных данных (в первой ячейке путь созданного файла при использовании параметра save<>)

См. также:

alist, blist, clist, dlist, elist, flist, glist, hlist, ilist, jlist, klist, llist, mlist, nlist, olist, plist, qlist, rlist, slist, tlist, ulist, vlist, wlist, ylist, zlist

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

aends=-1??-1||?F54 sends=@[tc=AP] slist=[tc=AM] xlist=$GLOBALSLIST||##<info=o74:://>||$$.txt creat=GLOBALSENDS<1>||list<$GLOBALXLIST>||contentlst<$GLOBALAENDS>||code<4>||owrite<0> ;; создание файлов txt с именами из выделенных файлов и содержимым буфера обмена, каждая строка из буфера сохраняется в свой текстовой файл

alist=[tc=AM]||##path<4> pathu="%P" marlr=%Z%F||0 tcimg=$cm302 anf2d=[tc=CAL*f]||2||([^\t]+)||begin<0> sends=$GLOBALANF2D1??-1?||eline<(!!)> xlist=$GLOBALANF2D0||##path<4> slist=$GLOBALXLIST||$$~~GLOBALSENDS<:NUMBER:>||^^GLOBALXLIST<:NUMBER:>= zlist=$GLOBALALIST||?Q$GLOBALSLIST|#|0|1|0|0|1 GLOBALZLIST<c> pause=500 tcimg=$cm3007|3006|4006 ;; открыть активную панель в неактивной панели в режиме "Подробный" с сохранением выделения, записать в буфер обмена базовые имена (согласно сортировки в активной панели) выделенных файлов + размеры (в скобках), вернуть неактивную панель в исходное состояние.

exect=$var_n='"%O"' xlist=[tc=AM] sends=<info=t1$GLOBALXLIST//> count=GLOBALXLIST<t>||$var_n||0||countline<0> rends=$GLOBALXLIST??-1||?G|GLOBALCOUNT<1>:-1 winls=$GLOBALRENDS||800x600||GLOBALSENDS<1>||but<2> lbicl=$GLOBALWINLS||"%p$var_n".dll|1||0||progres<> delsm="%p$var_n"||1 exicn=GLOBALLBICL<1>||"%p$var_n"||upd<1> ;; открыть для просмотра и редактирования выделенные папки библиотек значков.

exect=$var_s=##[combo=BOX29] slist=FOLDC<LISTF<$var_s:\/>!!1!!-3> xlist=$GLOBALSLIST||$var_s:\!!"%T" start=NSCopy||list<$GLOBALSLIST>||list2<$GLOBALXLIST>''~~/e~~/u||&&quot||&&wait||&&min||progres<> ;; копирование "плохого" диска целиком с утилитой NSCopy в другую панель (сохраняя структуру, включая пустые папки)

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 в активной панели

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

global slist=PS<[tc=TP]//1//0>||##path<4>||formt<0!!(?i)[a-zа-яё].*!!> xends=GLOBALSLIST<1>||formt<0!!(?m)([\d]+)(\D).*>||&&.*\d!! <IF> 1 <> <info=t61$GLOBALXENDS[1]> <THEN> xends=_ <ENDIF> blist=$GLOBALXENDS xlist=$GLOBALSLIST||&&\D.*!!||formt<11> <IF> 1 <> <info=t61$GLOBALXLIST[1]> <THEN> bends=000 xlist=$GLOBALBENDS <ENDIF> iends=<info=t60$GLOBALXLIST[1]> aends=GLOBALXLIST<1>||#Sfnc_numplus0 copys=%WL||"%t"//0||^^cntr<GLOBALAENDS<1>|1|GLOBALIENDS<1>>GLOBALBLIST<1>||upd<3> ;; копировать выделенные файлы активной панели в другую панель с добавлением к именам копируемых файлов в начало имени счетчика являющимся продолжением начальной нумерации файлов в другой панели

imgpr=1 bends=PS<C:\TPL\//1//0//*.txt>??-1||&&(.*\\)!!||@CRLF!!| cends=PS<C:\TPL\//1//0//*.txt>??-1||&&(.*\\)!!||@CRLF!!| shape=1 dilog=[combo=Создание~~файла||Введите~~имя~~файла||info||343||117][combo=Выбор~~шаблона||Выберите~~файл-шаблон~~из~~папки~~C:\TPL||GLOBALBENDS<1>||343||117] slist=PS<"%p"Soft\bin\//1//-1//dep.list>||##path<10> xlist=FOLDC<$GLOBALSLIST//1//-1//clear.info>||##path<10> $GLOBALSLIST+$GLOBALXLIST alist=$GLOBALSLIST||formt<28> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> slist=PS<C:\TPL\//1//0//*.txt>||##path<6> sends=C:\TPL\GLOBALCOMBO2<1>??-1 creat=@GLOBALALIST<t>||GLOBALCOMBO1<1>.txt||code<0>||content<$GLOBALSENDS> <ELSE> infht=-1||Сообщение||Подобных~~папок~~не~~найдено||230||60 <ENDIF> ;; создание файла в папках находящиеся в Soft\bin активной панели, в которых есть файл dep.list и нет файла clear.info (ввод имени и выбор файла шаблона из папки C:\TPL в диалоговом окне)

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 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 с переменным битрейтом (выбор в диалоговом окне), с сохранением в активной панели + удаление исходных файлов (требуется подтверждение)

imgpr=1 slist=%WL xlist=%WL||##path<6> <FOR> 1 <TO> GLOBALSLIST<0> start=FFmpeg||-i||GLOBALSLIST<:INDEX:>||-f||ffmetadata||GLOBALXLIST<:INDEX:>.txt||&&hide||&&wait <NEXT> beepss ;; сохранить метаданные выделенных аудио файлов в именные файлы.txt

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 xlist=@[tc=TP] folds=GLOBALXLIST<1>||list<$GLOBALSLIST//4>||fflag<0> start=RAR||-IBCK||x||list<%WL>||list2<$GLOBALFOLDS>||&&hide||&&wait alist=$GLOBALFOLDS||test<0f!!2!!0> blist=$GLOBALFOLDS||test<0f!!1!!0> clist=$GLOBALALIST+$GLOBALBLIST renms=$GLOBALCLIST||##rndm<1|8> moves=FOLDC<$GLOBALRENMS//0>||GLOBALXLIST<1>//0 delss=$GLOBALRENMS||1 delss=$GLOBALSLIST||1||recycle<1> ;; распаковать выделенные архивы в панель назначения с условиями:|если в архиве нет ни одной папки или в 1-м уровне есть папки и нет файлов, то распаковка происходит напрямую в панель назначения|если есть хоть одна папка и в 1-м уровне есть файлы, то архив распаковывается в именную папку, по окончанию удалить исходные архивы в корзину

imgpr=1 slist=FOLDC<%WL//0//1//png> xlist=GLOBALSLIST<t1>||##<info=f12::>||&&(?i)[^a-zа-яё]*$!! iconv=GLOBALSLIST<t>||"%p"\NewLibrary\//0//GLOBALXLIST<1>||48,32,24,16 creat=%%TCIMG_PATH%%\TEMP\||NewLibrary.txt||content<$GLOBALICONV>||owrite<1> lbicl=%%TCIMG_PATH%%\TEMP\NewLibrary.txt||"%p"Library.icl ;; конвертировать png файлы выделенных папок в иконки заданных размеров с именем первого файла с размещением их в папке NewLibrary, далее создать в активной панели библиотеку Library.icl из содержимого папки NewLibrary

imgpr=1 slist=PS<"%p"Soft\bin\//1//-1//dep.list>||##path<10> xlist=FOLDC<$GLOBALSLIST//1//-1//clear.info>||##path<10> $GLOBALSLIST+$GLOBALXLIST alist=$GLOBALSLIST||formt<28> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> copyy=[tc=AA]||x//1||allfold<GLOBALALIST<t>> <ELSE> infht=-1||Сообщение||Подобных~~папок~~не~~найдено||230||60 <ENDIF> ;; копирование(с заменой) файла под курсором во все папки находящиеся в Soft\bin\ активной панели, в которых есть файл dep.list и нет файла clear.info

imgpr=1 slist=PS<"%p"Soft\bin\//1//-1//dep.list>||##path<10> xlist=FOLDC<$GLOBALSLIST//1//-1//clear.info>||##path<10> $GLOBALSLIST+$GLOBALXLIST alist=$GLOBALSLIST||formt<28> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> creat=@GLOBALALIST<t>||Info.txt||code<0>||content<$f200\TPL\main.tpl> <ELSE> infht=-1||Сообщение||Подобных~~папок~~не~~найдено||230||60 <ENDIF> ;; создание файла Info.txt с содержимым из main.tpl в папках находящихся в Soft\bin\ активной панели, в которых есть файл dep.list и нет файла clear.info

imgpr=1 slist=PS<"%p"Soft\bin\//1//-1//dep.list>||##path<10> xlist=FOLDC<$GLOBALSLIST//1//-1//clear.info>||##path<10> $GLOBALSLIST+$GLOBALXLIST alist=$GLOBALSLIST||formt<28> <IF> 0 <> <info=t61$GLOBALALIST[1]> <THEN> slist=PS<C:\TPL\//1//0//*.txt>||##path<6> GLOBALSLIST<b> sends=C:\TPL\GLOBALARRAY<1>??-1 creat=@GLOBALALIST<t>||Info.txt||code<0>||content<$GLOBALSENDS> <ELSE> infht=-1||Сообщение||Подобных~~папок~~не~~найдено||230||60 <ENDIF> ;; создание файла Info.txt, с содержимым из выбранного в C:\TPL\ файла шаблона, в папках находящихся в Soft\bin\ активной панели, в которых есть файл dep.list и нет файла clear.info

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> delss=$GLOBALXLIST||1 ;; в папках неактивной панели содержащих файл Del.fl удалить все объекты кроме указанных в списке имён из файла C:\ListOfNames.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 (требуется подтверждение удаления)

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 на имя(номер) файла обрамленное через пробел уменьшенным и увеличенным на единицу значением номера(имени)

itray=3 exect=$var_i=Floor(Sqrt(<info=x10>)) slist=%WL wlist=$GLOBALSLIST||##<info=i1:://>||formt<1,21> xlist=$GLOBALSLIST||##<info=i2:://>||formt<1,21> imgnz=$GLOBALSLIST||"%p"//0//"%O"-max-@<info=s47>||GLOBALEXECT<1>x#||jpg||framewh<#|5|5>||resizeimg<GLOBALWLIST<1>|GLOBALXLIST<1>> wlist=$GLOBALWLIST||formt<1,5> xlist=$GLOBALXLIST||formt<1,5> imgnz=$GLOBALSLIST||"%p"//0//"%O"-min-@<info=s47>||GLOBALEXECT<1>x#||jpg||framewh<#|5|5>||resizeimg<GLOBALWLIST<1>|GLOBALXLIST<1>> ;; объединить выделенные изображения по высоте, создав в активной панели два вертикальных объединения с максимальным приближением выходного изображения к квадрату, с именем первого изображения + системное время (рамка в 5px по краям и между склеенными изображениями случайным цветом) и кадрирование всей группы перед объединением в размер наименьшего и наибольшего изображения

itray=3 exect=Floor(Sqrt(<info=x10>)) slist=%WL wlist=$GLOBALSLIST||##<info=i1:://>||formt<1,20> xlist=$GLOBALSLIST||##<info=i2:://>||formt<1,20> imgnz=%WL||"%t"//0//"%O"-@<info=s47>||GLOBALEXECT<1>x#||framewh<#|5|5>||resizeimg<GLOBALWLIST<1>|GLOBALXLIST<1>> ;; склеить выделенные изображения по высоте, создав в активной панели вертикальное объединение с максимальным приближением выходного изображения к квадрату, с именем первого изображения + системное время (рамка в 5px по краям и между склеенными изображениями случайным цветом) и кадрирование всей группы перед объединением в размер наименьшего изображения

itray=3 rlist=%WL||##path<0>||formt<1> xlist=$GLOBALRLIST||##path<6> wlist=$GLOBALXLIST||formt<lin44,lin60,lin61,lin62,lin37,1> <FOR> 1 <TO> GLOBALWLIST<0> downh=GLOBALRLIST<:INDEX:>//2||GLOBALWLIST<:INDEX:>||pause<1-2>||progres<>||convert<#Hmd5> renmm=GLOBALDOWNH<1>||extplus<> slist=$GLOBALRENMM iconf=GLOBALRENMM<1>||:://1//(\w:.*\\)([^\\]*)\.(.*)//$1favicon.ico||32 pause=500 icoft=GLOBALRLIST<:INDEX:>||0||favicon.ico attrf=GLOBALICONF<1>||+HS!!0 delsm=GLOBALSLIST<1>||1 <NEXT> tcimg=50~~$cm540 ;; назначение выделенным каталогам (например twitter.com, cryptocoincharts.info) иконок взятых из URL и присвоение значкам атрибутов скрытый, системный

itray=3 sends=-1??-1||formt<lin44,lin60,lin61,lin62,lin37,1> wlist=$GLOBALSENDS||formt<lin59,lin57> slist=$GLOBALSENDS||formt<lin58,lin57> downl="%p"//1||$GLOBALSENDS||pause<1-2>||progres<>||convert<#Hmd5> pause=500 renms=$GLOBALDOWNL||extplus<> lists=$GLOBALRENMS iconv=$GLOBALRENMS||"%p":://1//(.*)(\w:.*\\)([^\\]*)\.(.*)//$1$3||32 xlist=$GLOBALICONV||##<info=o76:://> renms=$GLOBALICONV||list<$GLOBALSLIST>||rflag<1> pause=500 renms=$GLOBALXLIST||list<$GLOBALWLIST> delss=$GLOBALLISTS||1 slist=FOLDC<$GLOBALRENMS//1//0//*.ico//0>||##<info=o75:://> pause=500 icofs=$GLOBALSLIST||0||ico,0,1 attrb=FOLDC<$GLOBALSLIST//1//0//*.ico//0>||+HS!!0||upd<1> ;; создание каталогов и назначение им иконок из списка ссылок в буфере

itray=3 sends=-1??-1||formt<lin44,lin60,lin61,lin62,lin37,1> wlist=$GLOBALSENDS||formt<lin59,lin57> slist=$GLOBALSENDS||formt<lin58,lin57> downl="%p"//1||$GLOBALSENDS||pause<1-2>||progres<>||convert<#Hmd5> pause=500 renms=$GLOBALDOWNL||extplus<> lists=$GLOBALRENMS iconv=$GLOBALRENMS||"%p":://1//(.*)(\w:.*\\)([^\\]*)\.(.*)//$1$3||32 xlist=$GLOBALICONV||##<info=o76:://> renms=$GLOBALICONV||list<GLOBALSLIST<t>>||rflag<1> pause=500 renms=$GLOBALXLIST||list<GLOBALWLIST<t>> delss=$GLOBALLISTS||1 slist=FOLDC<GLOBALRENMS<t>//1//0//*.ico//0>||##<info=o75::> pause=500 icofs=GLOBALSLIST<t>||0||ico,0,1 attrb=FOLDC<GLOBALSLIST<t>//1//0//*.ico//0>||+HS!!0||upd<1> ;; создание каталогов и назначение им иконок из списка ссылок в буфере

itray=3 slist=%WL wlist=$GLOBALSLIST||##<info=i1:://>||formt<1,20> xlist=$GLOBALSLIST||##<info=i2:://>||formt<1,20> imgnz=%WL||"%p"//0//"%O"-@<info=s47>!!||2x#||framewh<#|5|5>||resizeimg<GLOBALWLIST<1>|GLOBALXLIST<1>> ;; склеить выделенные изображения по высоте, создав в активной панели вертикальное объединение в два ряда с именем первого изображения + системное время (рамка в 5px по краям и между склеенными изображениями случайным цветом) и кадрирование всей группы перед объединением в размер наименьшего изображения.

itray=3 stext=FOLDC<%WL//1//-1//*.css>||x||?Ftag458||formt<1>||xline<^^¤;;^^@@o75::;;?F63,fnc_path>||clip<> listx=cliplist||2 xlist=$GLOBALLISTX1 wlist=$GLOBALLISTX GLOBALXLIST<a> GLOBALWLIST<a> ;; извлечь в буфер из файлов css внутри выделенных каталогов, пути к изображениям (jpg,png,gif) и заменить относительный путь к изображению (../) на абсолютный путь, исходя из расположения каждого файла css + проверить пути на существование и вывести результат - GLOBALXLIST - не существующие пути, а GLOBALWLIST - пути к реальным файлам

itray=3 wlist=FOLDC<%WL//1//-1> slist=$GLOBALWLIST||##¤<info=f12:://>¤=<info=f1::|1//> xlist=$GLOBALWLIST||##¤<info=f1::|1//>¤=<info=f12:://> renms=$GLOBALWLIST||^^¤||||<srlist=$GLOBALSLIST>||rflag<1> renms=$GLOBALRENMS1||^^¤||||<srlist=$GLOBALXLIST>||rflag<1>||upd<1>
;; Удаление в выделенных каталогах всех дубликатов файлов (ориентир по контрольной сумме MD5)

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> ;; переименовать выделенные файлы по счетчику, с учетом продолжения номера после последнего пронумерованного файла в этом каталоге (для каждого расширения своя нумерация)

pathu="%P" marlr=%Z%F||0 tcimg=$cm302 anf2d=[tc=CAL*f]||2||([^\t]+)||begin<0> sends=$GLOBALANF2D1??-1?||eline<(!!)> xlist=$GLOBALANF2D0||##path<4> slist=$GLOBALXLIST||$$~~GLOBALSENDS<:NUMBER:> GLOBALSLIST<c> tcimg=$cm3007|3006|4006 ;; открыть активную панель в неактивной панели в режиме "Подробный" с сохранением выделения и записать в буфер обмена базовые имена выделенных файлов + размеры (в скобках)

pathu="%P" marlr=%Z%F||0 tcimg=$cm302 anf2d=[tc=CAL*f]||2||([^\t]+)||begin<0> sends=$GLOBALANF2D1??-1?||eline<(!!)> xlist=$GLOBALANF2D0||##path<4> slist=$GLOBALXLIST||$$~~GLOBALSENDS<:NUMBER:> GLOBALSLIST<c> tcimg=$cm3007|3006|4006 ;; открыть активную панель в неактивной панели в режиме "Подробный" с сохранением выделения, записать в буфер обмена базовые имена выделенных файлов + размеры (в скобках), вернуть неактивную панель в исходное состояние.

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 из буфера обмена

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 ;; создать файл(ы) (выбор имени файла и количества в диалоговом окне) во всех подпапках выделенных папок (исключая корень)

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 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 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> global slist=PS<"%P"//1//0>||##path<4>||formt<0!!(?i).*[a-zа-яё]!!> xends=GLOBALSLIST<1>||&&\d.*$!! <IF> 1 <> <info=t61$GLOBALXENDS[1]> <THEN> xends=_ <ENDIF> zlist=$GLOBALSLIST||formt<0!!(?m)([\d]+)\D.*> <IF> 1 <> <info=t61$GLOBALZLIST[1]> <THEN> bends=000 zlist=$GLOBALBENDS <ENDIF> xlist=$GLOBALZLIST||formt<11> aends=GLOBALXLIST<1>||#Sfnc_numplus0 iends=<info=t60$GLOBALAENDS[1]> renms=%WL||$$GLOBALXENDS<1>cntr<GLOBALAENDS<1>|1|GLOBALIENDS<1>>||upd<1> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<GLOBALRENMS<t>>||owrite<1> ;; добавить выделенным файлом продолжение счетчика в конец имени (с возможностью отката)

slist=%WL||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> global slist=PS<"%P"//1//0>||##path<4>||formt<0!!(?i)[a-zа-яё].*!!> xends=GLOBALSLIST<1>||formt<0!!(?m)([\d]+)(\D).*>||&&.*\d!! <IF> 1 <> <info=t61$GLOBALXENDS[1]> <THEN> xends=_ <ENDIF> blist=$GLOBALXENDS xlist=$GLOBALSLIST||&&\D.*!!||formt<11> <IF> 1 <> <info=t61$GLOBALXLIST[1]> <THEN> bends=000 xlist=$GLOBALBENDS <ENDIF> iends=<info=t60$GLOBALXLIST[1]> aends=GLOBALXLIST<1>||#Sfnc_numplus0 renms=%WL||^^cntr<GLOBALAENDS<1>|1|GLOBALIENDS<1>>GLOBALBLIST<1>||upd<1> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<GLOBALRENMS<t>>||owrite<1> ;; добавить выделенным файлом продолжение счетчика в начало имени (с возможностью отката)

slist=[tc=AM] xlist=$GLOBALSLIST||##<info=o72:://>||?M1:10||?Fimg78||$$+¤_rndm<3-|2>-:NUMBER:<info=o85:://>||^^<info=o75:://>Replace_color-||#K2~РАЗДЕЛИТЕЛЬ!!||&#¤!!один|два GLOBALXLIST<a> ;; пример получения для выделенных файлов заданную информацию (размножение )

slist=[tc=TL*d]||##path<5> xlist=[tc=TL*d]||##path<1> start=cmd~~/c~~mkLink~~/d~~list2<$GLOBALSLIST>~~list<$GLOBALXLIST>||&&hide||&&wait slist=[tc=TL*f]||##path<7> xlist=[tc=TL*f]||##path<1> start=cmd~~/c~~mkLink~~list2<$GLOBALSLIST>~~list<$GLOBALXLIST>||&&hide||&&wait tcimg=$cm540 ;; в активной панели создать одноимённые символьные ссылки всем выделенным объектам неактивной панели

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

slist=FOLDM<%WL//0> xlist=$GLOBALSLIST||"%P"!!"%T" start=NSCopy||list<$GLOBALSLIST>||list2<$GLOBALXLIST>''~~/e~~/u||&&quot||&&wait||&&min||progres<> ;; копирование выделенных "плохих" файлов и папок с утилитой NSCopy в другую панель (сохраняя структуру, включая пустые папки)

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//*srt>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt|0> shape=5 xlist=PS<"%p"//1//0//*[combo=Создать~~список~~имён||Введите~~расширение~~видеофайлов||avi|mp4|mkv|ts||450||120||1||1]>||##path<4> renms=PS<"%p"//1//0//*[combo=Переименование||Введите~~расширение~~файлов~~для~~переименования||srt|smi|s2k|ssa|ass||450||120]>||list<$GLOBALXLIST>||ext<>||upd<1> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<$GLOBALRENMS>||owrite<1> ;; переименовать в активной панели субтитры именами видео файлов, расширения видео файлов и субтитров задаются в диалоговом окне (с возможностью отката)

slist=PS<"%p"//1//0//*srt>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> xlist=[tc=AM]||##path<4> renms=PS<"%p"//1//0//*srt>||list<$GLOBALXLIST>||ext<>||upd<1> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<$GLOBALRENMS>||owrite<1> ;; переименовать в активной панели файлы *.srt (субтитры) именами выделенных видеофайлов (с возможностью отката)

slist=PS<"%p"//1//0//prog-new.*.exe> xlist=PS<"%p"//1//0//prog-next.*.exe> exect=$var_i='GLOBALSLIST<1>'~~AND~~'GLOBALXLIST<1>'=''''?_CmdCm('infbx=Сообщени妦Файлов~~с~~такими~~именами~~в~~АП~~не~~найден2¦¦370¦¦50<¤>toexit'):1 copyy=%P%N||"%t"//0 beepss ;; копировать файл под курсором в другую панель, если в активной панели есть файлы *.exe имена которых начинаются с "prog-new." и "prog-next.", в противном случае выдать 2-х секундное сообщение

slist=PS<"%P"//1>||<info=f11:://>¤<info=f12:://>¤<info=f1::|1//> xlist=$GLOBALSLIST||formt<lst1> renms=$GLOBALSLIST0||^^¤||||<srlist=$GLOBALXLIST>||rflag<1> xlist=$GLOBALSLIST||formt<lst2> renms=$GLOBALRENMS1||^^¤||||<srlist=$GLOBALXLIST>||rflag<1>||upd<1> ;; переименовать в активной папке файлы именем хеша MD5 и обратно (из присутствующих дубликатов остаётся только первый файл)

watch=0 xlist=FOLDC<%WL//1//-1> GLOBALXLIST<a> watch=24 ;; получить время при составлении списка файлов с рекурсией для выделенных объектов

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> ;; заменить все подобные файлы в АКТИВНОЙ панели (с рекурсией) файлами из другой панели

wlist=%WL xlist=%WL $GLOBALWLIST@$GLOBALXLIST@=== GLOBALWLIST<a> ;; объединить поэлементно данные 2-х глобальных массивов и записать результат в 1-й

wlist=%WL xlist=%WL glist=$GLOBALWLIST@$GLOBALXLIST@=== GLOBALGLIST<a> ;; передать поэлементное объединение данных 2-х глобальных массивов в команду glist

wlist=%WL xlist=%WL||##path<4> glist=$GLOBALWLIST@$GLOBALXLIST@= GLOBALGLIST<c> ;; записать в буфер обмена пути выделенных объектов с добавлением в конец, через знак равенства, имени объекта

xlist=%WL||#P$f254!! GLOBALXLIST<a> ;; в папке Temp получить пути, обрезать начало

xlist=%Z%WL||##path<2> GLOBALXLIST<a> ;; создать список расширений выделенных файлов и передать список другим командам

xlist=FOLDC<%WL//1//-1> GLOBALXLIST<a> ;; для выделенных объектов получить список файлов с рекурсией

xlist=PS<%P%N//1//0> exect=$var_ifile=Floor(GLOBALXLIST<0>/2) delss=GLOBALXLIST<t1:$var_ifile>||1 ;; удалить первую половину файлов в корне папки под курсором

xlist=PS<%P%N//1> exect=$var_ifile=Floor(GLOBALXLIST<0>/2) delss=GLOBALXLIST<t1:$var_ifile> ;; получить список первой половины файлов папки под курсором

xlist=PS<%P%N//1> exect=$var_ifile=Floor(GLOBALXLIST<0>/2) GLOBALXLIST<a1:$var_ifile> ;; получить список первой половины файлов папки под курсором


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