IP-Adressen mit RegEx auslesen

[omata]

Hallo TriphunEM,

ich weiss ja nicht was du da machen willst. Aber schau dir doch mal das an...

Delphi-Quellcode:

var RegEx: TRegExpr;
begin
  if Clipboard.HasFormat(CF_Text) then begin
    RegEx:=TRegExpr.Create;
    try
      RegEx.Expression  := '([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})';
      if RegEx.Exec(Clipboard.AsText) then begin
        repeat
          memoProtocoll.Lines.Append(
            RegEx.Match[1] + ' - ' +
            RegEx.Match[2] + ' - ' +
            RegEx.Match[3] + ' - ' +
            RegEx.Match[4]
          );
        until not RegEx.ExecNext;
      end;
    finally
      RegEx.Free;
    end;
  end;
end;

MfG
Thorsten