Filtrando Um Código Html

[mlferreira]

Olá, tenho em um arquvo txt um código HTML com vários links, preciso criar uma rotina para filtrar somente os links e adicioná-los em um listbox.

O problema é que o código HTML está sem formatação.

Terei que localizar tudo o que começa com <a href= e termine com </a> e ir adicionando a URL dentro de um listbox.

Como poderei fazer esse filtro?

[Churc]

var

sl: tstringlist;

i: integer;

link: string;

begin

sl.loadfromfile('seuaruivo.txt');

for i := 0 to sl.count -1 do

if (pos('href=', sl) > 0) then

begin

link := copy(sl, pos('href=', sl), pos('</a>', sl) - 1);

listbox.items.add(link);

end;

end;

não testei mas é mais ou menos isso

abraços