Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

текст из HTML [D6, Win95/98, WinXP]


Alpupil ©   (2004-05-10 02:24:00) 

Привет Мастера, подскажите как можно из HTML страницы достать текст (без тегов, скриптов и и тому подобного), а вообще задача заключается в создании поисковика текста из HTML страниц. Заранее благодарен.


Algol   (2004-05-12 14:37:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(' http://ya.ru');
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;Doc,Anchor:Variant;
begin
//используем links - для нахождения всех ссылок
//используем anchors - для нахождения именованных ссылок
Doc := WebBrowser1.OleObject.document;
for i:=0 to Doc.links.length-1 do
  begin
  Anchor:=Doc.links.item(i);
  Memo1.Lines.Add(Anchor.href);
  end;
end;


Rouse_   (2004-05-12 14:35:00) [2]

http://www.swissdelphicenter.ch/en/showcode.php?id=1924
http://www.swissdelphicenter.ch/en/showcode.php?id=1601
http://www.swissdelphicenter.ch/en/showcode.php?id=743
http://www.swissdelphicenter.ch/en/showcode.php?id=479

Неплохо, правда?
2 минуты поиска :)


leonidus   (2004-05-12 13:31:00) [3]

про MSDN cлышал:) но английский очень хромает.
>Algol еслиВам не сложно можно простой пример


Algol   (2004-05-12 13:16:00) [4]

document.anchors и document.images
А такое слово MSDN вы знаете ?


leonidus   (2004-05-12 10:25:00) [5]

Ну подскажите пожалуйста


leonidus   (2004-05-12 08:46:00) [6]

>Rouse_ подскажите пожалуйста, а как получить только ссылки из тегов img и href?


Alpupil   (2004-05-10 19:19:00) [7]

Спасибо работает


Rouse_   (2004-05-10 16:27:00) [8]

procedure TForm1.Button1Click(Sender: TObject);
begin
 WebBrowser1.Navigate(' http://www.delphimaster.ru/cgi-bin/forum.pl?id=1084141493&n=4');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.Text :=WebBrowser1.OleObject.document.documentElement.innerText;
end;


Alpupil   (2004-05-10 15:34:00) [9]

>> Algol   (10.05.04 09:58) [1]
document.documentElement.innerText

Извините но я ничег  из этого непонял, можно по подробнее, лучше с кодом примера, плиз :-)))


Algol   (2004-05-10 09:58:00) [10]

document.documentElement.innerText


Наверх

Титульная страница Поиск, карта сайта Написать письмо