Виктор
По вашей задаче, пришлось попотеть, но решение универсальное найдено благодаря возможностям TCIMG.
• TCIMGU.ini - файл с пользовательскими настройками, копия файла TCIMG.ini
В файле TCIMGU.ini, в секции [FormatUser] прописать =>
Код
;; fun_numplusz - прибавить к последнему числу 1(применим при отсутствии ведущего нуля)
fun_numplusz=(\d+)(\D*\z)||StringFormat('%01s',Number($1)+1)
; fun_numplus2z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 2
fun_numplus2z=(\d+)(\D*\z)||StringFormat('%02s',Number($1)+1)
; fun_numplus3z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 3
fun_numplus3z=(\d+)(\D*\z)||StringFormat('%03s',Number($1)+1)
; fun_numplus4z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 4
fun_numplus4z=(\d+)(\D*\z)||StringFormat('%04s',Number($1)+1)
; fun_numplus5z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 5
fun_numplus5z=(\d+)(\D*\z)||StringFormat('%05s',Number($1)+1)
; fun_numplus6z- увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 6
fun_numplus6z=(\d+)(\D*\z)||StringFormat('%06s',Number($1)+1)
; fun_numplus7z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 7
fun_numplus7z=(\d+)(\D*\z)||StringFormat('%07s',Number($1)+1)
; fun_numplus8z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 8
fun_numplus8z=(\d+)(\D*\z)||StringFormat('%08s',Number($1)+1)
; fun_numplus9z - увеличение всех цифр на единицу, дополняя нулями недостающие разряды. Длина числа 9
fun_numplus9z=(\d+)(\D*\z)||StringFormat('%09s',Number($1)+1)
Кнопка.
Код
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\TCIMG.exe
sends=[tc=AO]||formt<0!!\d+$> tends=[tc=AO]||&&GLOBALSENDS<1>$!! exect=$var_i='GLOBALSENDS<1>'=''''?_CmdCm('bufsr=^^¦¦save<[tc=AP][tc=AO]_01.[tc=AE]!!1>¦¦upd<1><¤>toexit'):1 exect=$var_s=StringRegExp(StringLeft('GLOBALSENDS<1>',1),'[1-9]')?_CmdCm('slist=@GLOBALSENDS<1>¦¦#Sfun_numplusz¦¦^^GLOBALTENDS<1><¤>bufsr=^^¦¦save<[tc=AP]GLOBALSLIST<1>.[tc=AE]!!1>'):_CmdCm('iends=<info=t60$GLOBALSENDS[1]\\><¤>xends=fun_numplus¤z¦¦¤!!GLOBALIENDS<1><¤>slist=@GLOBALSENDS<1>¦¦#SGLOBALXENDS<1>¦¦^^GLOBALTENDS<1><¤>bufsr=^^¦¦save<[tc=AP]GLOBALSLIST<1>.[tc=AE]!!1>¦¦upd<1>')
WCMICONS.dll,1
создать файл с содержимым буфера обмена с именем файла под курсором с продолжением конечной нумерации
-1
При отсутствии конечной нумерации в имени файла под курсором, будет создан файл "ИмяФайла_01" с содержимым буфера обмена.
В случае совпадения имен имеющийся файл будет перезаписываться(можно настроить по-другому)
Кнопка работает с любым именем, могут быть одни цифры, любые разделители перед нумераций, нумерация может состоять из нулей(000) и т. д. .
