Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизА можно не изобретать велосипед ? Найти похожие ветки
← →
Decoda (2002-04-15 21:38) [0]Уважаемые мастера я делаю HTML гинератор в своей проге так:
procedure TForm1.Button5Click(Sender: TObject);
</font><br>");
Var
otchet, temp: textfile;
list: integer;
text: string;
begin
assignfile(otchet, SaveDialog1.FileName);
rewrite(otchet);
append(otchet);
gauge1.MaxValue:=ListBox1.Items.Count;
listbox1.ItemIndex:=-1;
{================================H T M L ====================================}
{===============================Заголовок HTML===============================}
writeln(otchet,"<html>");
writeln(otchet,"<head>");
writeln(otchet,"<title>"+combobox1.text+"</title>");
writeln(otchet,"<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">");
writeln(otchet,"</head>");
writeln(otchet,"<html>");
writeln(otchet,"<style>a:link, a:visited, a:active { text-decoration: none; }a:hover { text-decoration: none; color: #99FF99; }</style>");
writeln(otchet,"<body bgcolor="#4F687D" text="#FFFFFF" link="#33CCCC" vlink="#FFCCFF" alink="#FF0000">");
writeln(otchet,"<table border="1" width="100%" bgcolor="#006633" align="CENTER">");
writeln(otchet,"<tr>");
writeln(otchet,"<td height="16">");
writeln(otchet,"<div align="CENTER">");
writeln(otchet,"<font face="Georgia, Times New Roman, Times, serif" size="5"> ");
writeln(otchet," <font color="#00FF00" size="6">");
writeln(otchet," FAQ на тему:"+" "+combobox1.text+"</font>");
writeln(otchet,"<font color="#FFFF00" size="6"> </font> </font>");
writeln(otchet,"</div>");
writeln(otchet,"</td>");
writeln(otchet,"</tr>");
writeln(otchet,"</table>");
writeln(otchet,"<table border="1" width="100%">");
writeln(otchet,"<tr>");
writeln(otchet,"<td height="10"> <font face="Georgia, Times New Roman, Times, serif">");
{=======================Cоздаём список вопросов==============================}
For list:=1 to ListBox1.Items.Count do
begin
listbox1.ItemIndex:=listbox1.ItemIndex+1;
writeln(otchet, "<a href="#"+inttostr(list)+"">"+ListBox1.Items[ListBox1.ItemIndex]+"</a><br>");
Gauge1.Progress:=Gauge1.Progress+1;
end;
{======================Cоздали список вопроосов==============================}
writeln(otchet,"</font></td>");
writeln(otchet,"</tr></table>");
writeln(otchet,"<table border="1" width="100%">");
writeln(otchet,"<tr>");
writeln(otchet,"<td height="10"> <font face="Georgia, Times New Roman, Times, serif">");
listbox1.ItemIndex:=-1;
Gauge1.Progress:=0;
{=======================Cоздаём список ответов==============================}
for List:=1 to ListBox1.Items.Count do
begin
listbox1.ItemIndex:= listbox1.ItemIndex+1;
assignfile(temp, ExtractFilePath(Application.ExeName)+"Темы\"+combobox1.text+"\"+ListBox1.Items[ListBox1.ItemIndex]+".txt");
reset(temp);
writeln(otchet, "<a name=""+inttostr(listbox1.ItemIndex+1)+""></a>");
writeln(otchet,"<font size="5"><font color="#99FF99"> "+ListBox1.Items[ListBox1.ItemIndex]+" </font>
writeln(otchet,"<p> </p>");
while not EoF(temp) do
begin
readln(temp, text);
writeln(otchet, text+"<br>");
end;
writeln(otchet,"<p> </p>");
writeln(otchet,"<hr>");
Gauge1.Progress:=Gauge1.Progress+1;
closefile(temp);
end;
{======================Cоздали список ответов==============================}
writeln(otchet,"</font><center><font size="3"> <font color="#99FF99"> Сгинерировано в программе "Записнушка" (c) 2002-2003 </font></font><br></center></td>");
writeln(otchet,"</tr></table>");
writeln(otchet,"</body>");
writeln(otchet,"</html>");
closefile(otchet);
{===========================E N D H T M L ================================}
end;
А можно не изобретать велосипед ?
← →
Doom (2002-04-15 21:51) [1]можно
Используй PHP его кажись для этого и придумали
← →
Decoda (2002-04-16 08:04) [2]Ешё есть варианты ?
← →
gek (2002-04-16 08:24) [3]А для чего это надо если не секрет?
← →
Decoda (2002-04-16 08:37) [4]>gek © (16.04.02 08:24)
А для чего это надо если не секрет?
Для проги в которую забиваешь инфу(FAQ) а потом она при желании генерирует красивый HTML файл со всеми вопросами и линками на ответы которые ты забил в эту прогу.
Во как
← →
gek (2002-04-16 08:47) [5]Для таких целей обычно служит как говорилось выше PHP и ему подобное. Так, что мне кажется огород городить на стоит.
Ну, если уж очень хочется...
← →
Decoda (2002-04-16 10:18) [6]=(
в PHP не разбераюсь
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.016 c