Member
Статус: Не в сети Регистрация: 15.04.2004 Откуда: Москва
Опять же, это скриптовая часть. Поскольку PHP не знаю, то привожу пример на Perl с использованием HTML::Template;
Шаблон:
Код:
<HTML> <BODY> <H2>Текст из файла</H2> <TMPL_VAR NAME="TEXT"> </BODY> </HTML>
Положим его в /template под именем template.tpl Теперь скрипт
Код:
#!/usr/bin/perl use strict; use HTML::Template; my $template = new HTML::Template(filename=>"/template/template.tpl");
open (MYFILE,"/файл.txt"); my $fcnt = <MYFILE>; close (MYFILE); $template->param("TEXT",$fcnt); print "Content-type: text/html\n\n", $template->output;
Casey_ Мне нужно, чтобы текст брался из файла .txt и выводился на html странице
Добавлено спустя 9 минут, 26 секунд: BaBL Не мог бы ты дать мне скрипт на яве? PHP у меня упорно не хочет работать. Уже все настроил! А он все равно не хочет.
Member
Статус: Не в сети Регистрация: 06.05.2004 Откуда: Саратов
Sevich Вот, пожалуйста. Правда, на VBScript, и заточен под ASP, но переделать несложно:
1. Заменяем везде Response на document
2. Request("Filename") меняем в сборе на имя файла
3. Присваиваем cls вместо HFMNormal имя какого-нибудь CSS-стиля, который приаттачен к html-документу, и которым будет отображаться текст из файла.
4. Вставляем, куда надо.
Скрипт выдран из работающей ASP - страницы.
Прелесть в том, что убирает ненужные переводы строк, характерные для DOS-текстов, и корректно отображает Tab. C <PRE> такого не добьешься.
set fso=CreateObject("Scripting.FileSystemObject")
set fil=fso.GetFile(Request("Filename"))
set ts=fil.OpenAsTextStream()
ktab=chr(9)
cls="HFMNormal"
Response.Write "<p class="+""""+cls+""""+">"
While not ts.AtEndOfStream
part = RTrim(ts.ReadLine())
If Trim(part) = "" Then
Response.Write "</p><p class="+""""+cls+""""+">"
Else
syms = ""
While Mid(part, 1, 1) = ktab Or Mid(part, 1, 1) = " "
part = Mid(part, 2)
If Mid(part, 1, 1) = ktab Then syms = syms + "        " Else syms = syms + " "
wend
If syms = "" Then part = " " + part Else part = "<br>" + syms + part
Response.Write part
End If
wend
ts.close
set fil=nothing
set fso=nothing
set ts=nothing
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения