uses
regExpt
///////
procedure Geta(aHtmlStr: string; T: Tstringlist);
const
aRE = '(?i)'
+ '(\<a href\=(\"?|\''?|\s?)?\w*\.\w*(\"?|\''?|\s?)?\>)(\w*)(\<\/a\>)?';
var
r: TRegExpr;
begin
r := TRegExpr.Create; // Create object
try
r.Expression := aRE;
if r.Exec(aHtmlStr) then
begin
repeat
t.Add(r.Match[4]);
until not r.ExecNext;
end;
finally
r.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var T: tStringlist;
begin
T := tStringlist.create;
try
Geta(memo1.Text, t);
memo2.Lines.Assign(t);
finally
t.Free;
end;
end;
//经过测试,能够实现,另外,如果href 后面有get参数的话,必须重新写表达式.