Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

Easy Parse HTML   Найти похожие ветки 

← →
Opryshok ©   (2004-01-19 15:07) [0]

Здрасти всем.
Нужно парсать хтмл: получить <sometag> ЭТО </sometag> и <tag value=" ЭТО ">.
Может кто стыкался или видел чего нибудь такое в сети, подскажите.

Спасибо.

---

← →
Opryshok ©   (2004-01-19 15:12) [1]

Извините за спам. я не нарочно... (

---

← →
Erik ©   (2004-01-19 15:16) [2]

Скачай готовый парсер и в перед. Смотреть на Torry или через поисковик.

---

← →
Opuhshii ©   (2004-01-19 16:25) [3]

uses MSHTML

---

← →
Opryshok ©   (2004-01-19 18:26) [4]

2 Opuhshii.

Посмотрел, поискал по MSHTML... Разобраться трудновато. Может подкинь ссылку или экзампл....

---

← →
Opuhshii ©   (2004-01-20 08:45) [5]

http://podgoretsky.com/ftp/Docs/Delphi/Tenser/9/WebBrowser.doc

пример,..

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
I:Integer;
Count:Integer;
Collection:Variant;
Document:Variant;
begin
Document:=(pDisp as IWebBrowser2).Document;
Collection:=Document.all.tags("A");
Count:=Collection.length;
for I:=0 to Pred(Count) do
Memo1.Lines.Add(Collection.Item(I).href);

Collection:=Document.all.tags("IMG");
Count:=Collection.length;
for I:=0 to Pred(Count) do
Memo1.Lines.Add(Collection.Item(I).SRC);
end;

---

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

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх

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