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

Тема в разделе "Delphi - Система", создана пользователем NiFiGaSebe, 22 дек 2006.

Статус темы:
Закрыта.
  1. NiFiGaSebe

    NiFiGaSebe Гость

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

    Barmutik Гость

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

    sab0tage Гость

    Код (Text):
     
    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;
    Типа того :)
     
  4. vital

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    Грузишь эту страничку в 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;

    Комментировать, надеюсь, не надо?
     
Загрузка...
Похожие Темы - подскажите как преобразовать
  1. kuklofon
    Ответов:
    1
    Просмотров:
    79
  2. Sevas
    Ответов:
    1
    Просмотров:
    1.214
  3. Gandliar
    Ответов:
    3
    Просмотров:
    1.618
  4. iNet
    Ответов:
    3
    Просмотров:
    2.184
  5. Amfion
    Ответов:
    2
    Просмотров:
    1.751
Статус темы:
Закрыта.

Поделиться этой страницей