Нарезка страницы html :)

[W0LF]

Есть страница html, в исходнике этой страницы есть куча ссылок, большая куча... Ссылки там 2 видов, одни кончаються на div-1.html, другие _hde.html (пример: http://site.ru/1f2_hg3_09div-1.html). Помогите разобрать эту страницу и ссылки которые там находяться разпределить в два ListBox'a.

ЗЫ для модераторов: прошу не переносить в раздел "Работа с сетью в Delphi"

[TRIZER]

var
Lines:TStrings;
i:integer;
...
begin
Lines:=TStringList.Create;
for i:=0 to Lines.Count do
begin
if Pos(Lines[i],'div-1.html')<>0 then
ListBox1.Items.Append(Lines[i]);
if Pos(Lines[i],'_hde.htmll')<>0 then
ListBox2.Items.Append(Lines[i]);
end;
end;

код не проверял .... возможно глюченый (может замениш Pos на Copy(и правильно применишь его разумеется))

[raxp]

...если код в одну строку или в одной строке присутствуют обе (переноса нет), то pos может и не помочь... тут выход использование posex() со сдвигом, либо двигать окно по всему коду (через copy) и проверять на наличие 'div-1.html' и '_hde.html'.

[W0LF]

Спс, всем, но я уже зделал)