Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Html в TXT [D7, Win2k]

Wistful © (2005-03-13 11:39:00)
В общем нужно написать программу которая преобразует Html в Txt c форматированием текста.
Т.е. в результате работы программы в текстовом файле должен содержаться текст соответствующий тексту в браузере.

Как это можно сделать?

Wistful (2005-03-14 19:26:00) [1]
Gero, большое спасибо. Все работает почти нормально(текст не совсем соответствует виду в браузере, но енто уже мелочи).

Gero (2005-03-14 02:35:00) [2]

> WebBrowser1

То есть просто WebBrowser.

Gero (2005-03-14 02:34:00) [3]

> wistful © (14.03.05 00:22)

В таком случае попытаюсь тебе помочь.

uses MSHTML, ActiveX; procedure TForm1.SaveToTxtFile(const FileName: string); var Doc: IHtmlDocument2; PersistFile: IPersistFile; begin Doc := WebBrowser.Document as IHtmlDocument2; PersistFile := Doc as IPersistFile; PersistFile.Save(StringToOleStr(FileName), True); end;

WebBrowser1 — экземпляр класса TWebBrowser.

Сначала делаешь загружаешь страницу в браузер методом Navigate, потом сохраняешь его методом формы SaveToTxtFile.
Короче, все просто до безобразия.

wistful (2005-03-14 00:22:00) [4]
Gero © (14.03.05 00:15) [12]
днем попробую, хотя ни разу не пользовался TWebBrowser. Будем разбираться.

Gero (2005-03-14 00:15:00) [5]

> не буду же я каждый час загружать страничку в браузере и
> затем сохранять ее в TXT

Говоря «в браузере» я подразумевал «в браузере, встроенном в твою программу».
TWebBrowser, короче говоря.

Wistful (2005-03-14 00:04:00) [6]
Народ, хватит ругаться.
"преобразует Html в Txt c форматированием текста"
этим выражением я хотел сказать что в результате текст должен быть в нормальном виде, т.е. можно удалить все тэги и ерунда одна. Мне же нужно что бы вид текста был как в браузере.

Gero © (13.03.05 13:11) [3]
А вобще лучше всего сдлеать это через браузер, тогда соответствовать тексту в браузере будет наверняка.

Программа должна каждый час скачивать документ, не буду же я каждый час загружать страничку в браузере и затем сохранять ее в TXT

zero-g (2005-03-13 14:11:00) [7]
Прошу прощение за все!

Как ни как чегодня прошенное воскресенье :)

to Gero

Я то понял.
Просто фишка в другом.

Ну да ладно, забыли!

Как уже написал выше, извиняюсь!

Dell3r (2005-03-13 14:04:00) [8]
Воскресение. Все пытаются высказать все накопившееся за неделю.

begin...end (2005-03-13 14:01:00) [9]
Что сегодня за день такой? Уже в 4-х ветках вижу какие-то разборки...

Gero (2005-03-13 13:54:00) [10]

> zero-g © (13.03.05 13:48)

Что тебе не нравится?
Ты хоть понял о чем речь?

Все-таки иногда лучше жевать…

zero-g (2005-03-13 13:48:00) [11]
// offtop

Мдя.... и здесь до сил русского языка добрались...

to Anatoly Podgoretsky
А вы можете объяснять, если видите ошибку в написании, в смысловой нагрузке? А не задавать вопросы косательно русского языка, лексичесого значения (надаюсь в этот раз угадал)...
А то складывается впечатление, что вам малось черепная коробка жмет... Зарание прошу прошение за такое сравнение. Это было сказано без злово умысла

Anatoly Podgoretsky (2005-03-13 13:34:00) [12]
Wistful © (13.03.05 11:39)
c форматированием текста.

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

Dell3r (2005-03-13 13:14:00) [13]
Поддерживает форматирование текста только пользователь. Потом если это надоедает, то он изучает программирование, а только потом пишет программы.

Gero (2005-03-13 13:11:00) [14]
А вобще лучше всего сдлеать это через браузер, тогда соответствовать тексту в браузере будет наверняка.

Gero (2005-03-13 13:10:00) [15]

> в Txt c форматированием текста

txt не поддерживает форматирование текста.

Dell3r (2005-03-13 12:23:00) [16]
Memo1.lines.loadfromfile('C:\MyHTML.html');
Здесь стираешь все тэги.
Memo1.lines.savetofile('C:\MyHTML.txt');

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »