Position von Text/Links in einer HTML Datei finden

[omata]

Hallo, vielleicht so...

Delphi-Quellcode:

procedure GetEMails(Html:string; Mails:TStrings);
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='"(.+)@(.+)"';
    if RegExpr.Exec(Html) then begin
      repeat
        Mails.Append(RegExpr.Match[1] + '@' + RegExpr.Match[2]);
      until not RegExpr.ExecNext;
    end;
  finally
    RegExpr.Free;
  end;
end;

Aufruf...

Delphi-Quellcode:

var EMailList:TStringList;
    i:integer;
    EMail:string;
begin
  EMailList:=TStringList.Create;
  try
    GetEMails('<a href="[e-mail]">Hallo<a "mailto:[e-mail]" style="">', EMailList);
    for i:=1 to EMailList.Count do begin
      EMail:=EMailList[i-1];
    end;
  finally
    EMailList.free;
  end;
end;

Ergebnis:

Code:

[email][e-mail][/email]
mailto:[e-mail]

RegExpr

Gruss
Thorsten