![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Преобразование HTML в текст
KoluChi © (2002-11-25 13:42:00)Нужно получить текст HTML странички, как если бы в IE была выполнена команда Сохранить как->Текстовый документ.
KoluChi (2002-11-29 16:41:00) [1]Большое спасибо, я уж думал никто не знает.
int64 (2002-11-26 11:26:00) [2]procedure TForm1.Button1Click(Sender: TObject);
var IE: IWebBrowser2;
v: OleVariant;
begin
IE := CreateOleObject("InternetExplorer.Application") as IWebBrowser2;
IE.Navigate("c:\temp\1.htm", v, v, v, v);
while IE.ReadyState<>READYSTATE_COMPLETE do
Application.ProcessMessages;
Memo1.Text:= Variant(IE.Document).body.innerText;
IE.Quit;
end;
KoluChi (2002-11-25 17:20:00) [3]???
KoluChi (2002-11-25 16:29:00) [4]??
KoluChi (2002-11-25 15:56:00) [5]?
KoluChi (2002-11-25 15:09:00) [6]Может с помощью IHTMLDOCUMENT?
KoluChi (2002-11-25 14:24:00) [7]Пробовал, не удобно. Например, если в тексте есть <,> или в JavaScript.
Reindeer Moss Eater (2002-11-25 14:09:00) [8]Вырезай все, что находится межу парными <>
KoluChi (2002-11-25 14:08:00) [9]?