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

  • Автор темы NiFiGaSebe
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

NiFiGaSebe

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

Barmutik

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

sab0tage

#3
Код:
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

Больной Компом Детектед
29.01.2006
2 432
33
#4
Грузишь эту страничку в 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;

Комментировать, надеюсь, не надо?
 
Статус
Закрыто для дальнейших ответов.