Скачать: CL | DM;

текст из 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 еслиВам не сложно можно простой пример

---

← →
Rouse_ ©   (2004-05-12 14:35) [9]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c