Duplicate

Название	Duplicate
Имя файла (*.txt)	Duplicate.txt
Описание	Производит "размножение файла", то есть делает указанное количество копий текущего файла, приписывая к имени двузначный счетчик
Автор	Вахмурка
Параметры	"%P%O", "%E"
Вызываемые плагины	file, win
Иконка
Версия	1.2
Дата обновления	23.06.2018


args PO, E
local Number, NewFile
local Source = PO ++ "." ++ E

;Sub_Spin – имя скрипта Spin
local Count = .Subs\Sub_Spin(1, 1, 99, "Duplicate Script", "... copies", "", 0, 65, 40, 4, 12, 20, 27, 17, 14, 12, 4, 12, 30, 128, 35)

if(!Count)
	quit

;Sub_Progress – имя скрипта Progress
.Subs\Sub_Progress(0, 0, Count, 0, 5000, "/", "")

for(i = 1; i <= Count; i++)
	Number = ifelse(i < 10, "0" ++ i, i)
	NewFile = PO ++ Number ++ "." ++ E
	file.copy(Source, NewFile)
	.Subs\Sub_Progress@Current(i)
endfor

win.sendmessage(win.handle("c=TTOTAL_CMD"), 0x400+51, 540, 0)

Мне приходится создавать шаблон некоторого файла, скажем, веб-странички (этой, например), и затем сделать множество его копий – тогда все странички будут выполнены в одном стиле.

На запрос вводим число (1-99) файлов, которое необходимо получить в результате размножения (без учета исходного). Полученные файлы, к примеру, при текущем файле a.txt и введении числа 13 будут иметь имена a01.txt, a02.txt, … , a13.txt.

На главную

Все о Total Commander

PowerPro

PowerPro & Total Commander

Комментарии: