Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Reguläre Ausdrücke - Vorgehensweise ?

  Alt 6. Jul 2009, 22:54
Warum so kompliziert?

Delphi-Quellcode:
procedure GetHTMLLink(HTML:string; Links:TStrings);
var RegExpr:TRegExpr;
begin
  Links.Clear;
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='<span[^>]*>(.*)<\/span>.*<a href="(.*)"[^>]*>(.*)<\/a>';
    if RegExpr.Exec(HTML) then begin
      repeat
        Links.Append(
          trim(RegExpr.Match[1]) + ' | ' +
          trim(RegExpr.Match[2]) + ' | ' +
          trim(RegExpr.Match[3])
        );
      until not RegExpr.ExecNext;
    end;
  finally
    RegExpr.free;
  end;
end;
  Mit Zitat antworten Zitat