Перевод текста из HTML в txt

[Valkiria]

Помогите пожалуйста написать программу перевода содержимого из HTML страницы в текстовый документ с расширением doc или txt. Нужно что ьбы все данные: текст, таблицы и т.д переносились в текстовый файл. Кто может подскажите как это сделать!

[Alex21]

Вот код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActiveX, OleCtrls, SHDocVw, StdCtrls;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SaveHTMLSourceToFile(const FileName: string;
  WB: TWebBrowser);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SaveHTMLSourceToFile(const FileName: string;
  WB: TWebBrowser);
var
  PersistStream: IPersistStreamInit;  
  FileStream: TFileStream;  
  Stream: IStream;  
  SaveResult: HRESULT;  
begin  
  PersistStream := WB.Document as IPersistStreamInit;  
  FileStream := TFileStream.Create(FileName, fmCreate);  
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;  
    SaveResult := PersistStream.Save(Stream, True);  
    if FAILED(SaveResult) then  
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);  
  finally
    FileStream.Free;  
  end;
end;  

procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
    SaveHTMLSourceToFile(SaveDialog1.FileName+'.txt', WebBrowser1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://programmersforum.ru');
end;
end.

[Valkiria]

Большое тебе спасибо! Данные сохраняются в формате tхt, но только вместе с тегами, как сделать так, что бы не было тегов?

[Alex21]

Меняем формат:

if SaveDialog1.Execute then
    SaveHTMLSourceToFile(SaveDialog1.FileName+'.doc', WebBrowser1);

[Valkiria]

А как можно сделать что бы HTML страничка загружалась в WebBrowser с жесткого диска и можно было бы выбирать какую страничку открыть, что для этого нужно использовать OpenDialog или что то еще?

[Alex21]

Достаточно вызвать такой код:

WebBrowser1.Navigate('h:\111.htm');

или

WebBrowser1.Navigate(edit1.text);

во втором случае путь должен быть прописан в Edit1

[Valkiria]

А как можно сделать так что бы при переводе HTML страницы в txt сохранялся адрес откуда была скачена страница и сохранялись таблицы или хотя бы их структура в текстовом документе, подскажите пожалуйста очень очень нужно!!!!!!

[Valkiria]

Подскажите нет ли какой-нибудь ссылки на исходник программы конвертирующий страницу html в один из таких форматов: txt, doc, rtf, pdf и т.д Или на какую-нибудь литературу из этой серии?

[Alex21]

Начнем с того, что корректное отображение Веб-страницы может быть только в браузере (или при использовании компонента браузера).

Формат txt - по своей сути является только лишь текстовым файлом, поэтому таблицы, или что-либо еще загрузить туда не получится.

Объясните что вы хотите получить в результате?