текст из HTML

← →
Alpupil © (2004-05-10 02:24) [0]

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

← →
Algol (2004-05-10 09:58) [1]

document.documentElement.innerText

← →
Alpupil © (2004-05-10 15:34) [2]

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

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

← →
Rouse_ © (2004-05-10 16:27) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate("http://delphimaster.net/view/6-1084141493/");
end;

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

← →
Alpupil © (2004-05-10 19:19) [4]

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

← →
leonidus (2004-05-12 08:46) [5]

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

← →
leonidus (2004-05-12 10:25) [6]

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

← →
Algol (2004-05-12 13:16) [7]

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

← →
leonidus (2004-05-12 13:31) [8]

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

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 минуты поиска :)

← →
Algol (2004-05-12 14:37) [10]

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;

текст из HTML Найти похожие ветки