Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

А можно не изобретать велосипед ? 


Decoda   (2002-04-15 21:38) [0]

Уважаемые мастера я делаю HTML гинератор в своей проге так:
procedure TForm1.Button5Click(Sender: TObject);
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>
</font><br>");
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 не разбераюсь




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.017 c
7-94586           helper                2002-02-02 08:29  2002.04.29  
Реестр


1-94371           ymin                  2002-04-15 15:40  2002.04.29  
как сделать всплывающую подсказку


1-94476           Vik_R                 2002-04-16 10:03  2002.04.29  
hint


1-94427           velial                2002-04-17 22:22  2002.04.29  
процедуры


3-94263           Rail                  2002-04-07 16:05  2002.04.29  
Как показать последнюю ошибу при работе с БД через BDE