подскажите как преобразовать

[NiFiGaSebe]

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

 

[Barmutik]

Можно пройти по объектной модели и взять InnerText...

 

[sab0tage]

AssignFile(fo,f_old);
reset(fo);

AssignFile(fn,f_new);
rewrite(fn);

while not eof(fo) do
begin
read(fo,vr);

if vr='<' then
begin
v_tag:='<';
while (vr<>'>') do
begin
read(fo,vr);
v_tag:=v_tag+vr;
end;
end
else
begin
write(fn,vr);
end; 
end;

Типа того

 

[vital]

Грузишь эту страничку в TWEBBROWSER потом

uses mshtml, activex;

procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
htmlDoc: IHtmlDocument2;
PersistFile: IPersistFile;
begin
htmlDoc := WebBrowser.document as IHtmlDocument2;
PersistFile := HTMLDoc as IPersistFile;
PersistFile.save(StringToOleStr(FileName), true);
end;

Комментировать, надеюсь, не надо?