Как генерировать кучу файлов с разными именами?

← →
Zvr@b (2004-07-08 00:38) [0]

Уважаемые мастера! Подскажите как сделать следующее: У меня программа должна генерировать определённое число HTML с разными именами (имена либо разные вовсе, либо с индексами 01,02,,,,03).
В чём суть... есть таблица с текстом,её нужно сохранить в htm но чтоб не в одну строку, а строки разделялись ентером. И соответственно добавлялись в начале и конце файла все необходимые Теги.
(...может работу программы (текст), засунуть в Memo и потом его сохранить его?...но мне нужен цикл)

Как задать цикл сохранения фалов в опредеённую папку (или хотябы в эту же). Нужно ли при этом пользоваться Save диалогом, или есть другие способы.
Как гененрировать имена файлов.

_Спасибо за внимание!

← →
KilkennyCat © (2004-07-08 01:17) [1]

плохо понял текст, но если ответить по сабжу, то:

Возможно несколько вариантов:
1) всегда порядковый номер (1.html,2.html,3.html...)
реализовать можно несколькими способами.
а) если при каждом запуске программы наплевать на предыдущие - цикл начинается с начала.
б) если не наплевать на предыдущую работу, то полезно сохранить в какой-нить файл номер последнего файла, перед циклом прочитать его и начать генерацию со следующего.
2) случайный номер. Использовать генератор случайных чисел (Random). Но поскольку существует вероятность совпадения, необходимо проверять отсутствие файла с текущем именем (FileExists)
3) использовать в названии текущую дату и время (TDateTime, Now)

Диалог может быть полезен для: указания папки, указания варианта генерации, указания стартового номера при первом варианте, указания предела генератора случайных чисел во втором варианте и просто для перезаписи одного (или нескольких) из файлов.

← →
Zvr@b (2004-07-08 01:39) [2]

А вот ЦИКЛ генерации никто не подскажет?...
Очень бы надо!

← →
KilkennyCat © (2004-07-08 01:41) [3]

Просто цикл... и ничего больше. Переменная, используемая в цикле в качестве счетчика и будет именем файла.

← →
Bart (2004-07-08 09:48) [4]

если нет проблем с длиной строки тогда попробуй

var UniqueFileName: TGuid; i: Word; ... for i := low({some}) to high({some}) do begin CreateGuid(UniqueFileName); {something}.SaveToFile(GuidToString(UniqueFileName) + ".htm"); end;

или я не правильно понял

← →
OSokin (2004-07-08 20:06) [5]

var dhtml:array[0..n]of string=("<HTML>","<BODY>",...) ... for n:=0 to htmlcount do begin for i:=0 to length(dhtml) do Memo1.Lines.Add(dhtml[i]); Memo1.Lines.SaveToFile(inttostr(n)+".html"); end;

GetTempFileName GetTempPath

Как генерировать кучу файлов с разными именами? Найти похожие ветки