Any suggestions?
Where do I begin?
Thanks!!!

Code: Select all
PerlRegEx = Yes;
Output.Clear;
Link = New(URL);
rx = New(RegEx);
Link.Location = BrowseTo('www.google.com');
loop
Link.Get;
rx.Data = Link.Data;
rx.Mask = '<cite>.*?</cite>';
while rx.Match do begin
lnk = rx.Value - '<[^>]*>';
Output(lnk);
end;
rx.Mask = '<a href="([^"]+)"[^>]*><[^>]*><[^>]*><[^>]*>Next';
if not rx.Match then Break;
Link.Location = Link.Fixup(Decode(rx.Value[1]));
end;