Thema
:
Reguläre Ausdrücke - Vorgehensweise ?
Einzelnen Beitrag anzeigen
omata
Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
Delphi 7 Enterprise
#
2
Re: Reguläre Ausdrücke - Vorgehensweise ?
5. Jul 2009, 15:35
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
GetHTMLLink(
HTML
:
string
; Links:TStrings);
var
RegExpr:TRegExpr;
begin
Links.Clear;
RegExpr:=TRegExpr.Create;
try
RegExpr.ModifierG:=false;
RegExpr.Expression:='
href="(.*)"
';
if
RegExpr.Exec(
HTML
)
then
begin
repeat
Links.Append(RegExpr.Match[1]);
until
not
RegExpr.ExecNext;
end
;
finally
RegExpr.free;
end
;
end
;
RegExpr
Zitat
omata
Öffentliches Profil ansehen
Mehr Beiträge von omata finden