директива INCLUDE своими силами, или Собираем файл из шаблонов.

← →
NA © (2002-10-19 14:13) [0]

Вот такая задача возникла, с какой стороны лучше подобраться? При этом:
а)вставка очередного внешнего файла может производиться в разрыв строки;
б)не должно быть ограничений длины в 255 знаков (string);
в)вставки могут быть вложенными.

Просится создать MemoryStream, по идее. Но, опять же - как правильнее подобраться? И - может, есть пример, от которого можно оттолкнуться? Мне вроде не попался пока :(

← →
TTCustomDelphiMaster © (2002-10-19 14:40) [1]

Для решения такой задачи подойдет рекурсия.

procedure IncludeFile(InStream, OutStream: TStream; Nvl: word);
var
NewInStream;
begin
// Защита от зацикливания
if Nvl >= MaxNvl then
Exit;
// Перемещение данных из InStream в OutStream с одновременной
// проверкой наличия директив include
...
// Если найдена директива include вставляем файл с этого места
if FindInclude then
try
NewInStream := TFileStream.Create(GetNewFileName(), fmOpenRead or fmShareExclusive); // Защита от зацикливания. Если файл открыт возникнет исключительная ситуация.
IncludeFile(NewInStream, OutStream, Nvl + 1);
NewInStream.Free;
except
end;
end;

← →
Оливейра © (2002-10-19 15:26) [2]

В свое время у меня примерно такая же задача была - поделка для построения многоязычного сайта, UTF-8 в конечном HTML не допускался, некоторые части шаблона документа были языкозависимыми, некоторые - нет.
Схему документа хранил в XML.
<?xml version="1.0" encoding="utf-8"?>
<part type="independent" filename="head.inc"/>
<part type="dependent">
<subpart lang="en" filename="titleeng.inc"/>
<subpart lang="fr" filename="titlefr.inc"/>
</part>
...

И окончательный HTML генерил парсингом.

директива INCLUDE своими силами, или Собираем файл из шаблонов. Найти похожие ветки