Программа, которая размножит указанный файл, присвоив ему заданные имена.

@Mixailo · Регистрация: 29.12.2012

Нужна программа, которая размножит указанный файл, присвоив ему заданные имена.
Например, есть файл Шаблон.xlsx, нужно сделать 50 его копий с именами:
Вася.xlsx
Петя.xlsx
итд.
Имена файлов Вася, Петя итд нужно взять из одной строки, разделителем будет заданный символ, например символ |, т.е. Вася|Петя|Миша.

@mss · 29.12.2012, 23:51

Код

sl := TStringList.Create;
sl.Delmiter := '|';
sl.DelimitedText := 'Вася|Петя|Миша';
for i := 0 to sl.Count - 1 do CopyFile('Шаблон.xlsx', PChar(sl[i]+'.xlsx'), false);

@Mixailo · 29.12.2012, 23:57 **[ТС]**

Мне нужен exe файл.

Добавлено через 4 минуты
В заданную папку чтоб копировал.

@mss · 30.12.2012, 00:00

Сообщение от Mixailo

Мне нужен exe файл

Рыба дана.
Сам скомпилишь - не сахарный, не растаешь.
А готовые "exe файлы" продаются во "Фриланс".

@Mixailo 0 / 0 / 0 Регистрация: 29.12.2012 Сообщений: 4
		1
	Программа, которая размножит указанный файл, присвоив ему заданные имена. 29.12.2012, 23:42. Показов 694. Ответов 3 Метки нет (Все метки) Нужна программа, которая размножит указанный файл, присвоив ему заданные имена. Например, есть файл Шаблон.xlsx, нужно сделать 50 его копий с именами: Вася.xlsx Петя.xlsx итд. Имена файлов Вася, Петя итд нужно взять из одной строки, разделителем будет заданный символ, например символ \|, т.е. Вася\|Петя\|Миша. 0

@mss 2649 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,725
	29.12.2012, 23:51	2
	Код sl := TStringList.Create; sl.Delmiter := '\|'; sl.DelimitedText := 'Вася\|Петя\|Миша'; for i := 0 to sl.Count - 1 do CopyFile('Шаблон.xlsx', PChar(sl[i]+'.xlsx'), false); 1

@Mixailo 0 / 0 / 0 Регистрация: 29.12.2012 Сообщений: 4
	29.12.2012, 23:57 [ТС]	3
	Мне нужен exe файл. Добавлено через 4 минуты В заданную папку чтоб копировал. 0

@mss 2649 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,725
	30.12.2012, 00:00	4
	Сообщение от Mixailo Мне нужен exe файл Рыба дана. Сам скомпилишь - не сахарный, не растаешь. А готовые "exe файлы" продаются во "Фриланс". 0

Опции темы