Delphi-Quellcode:
// ...
RegEx := TRegExpr.Create();
RegEx.Expression := '[\d]{1,3}[\.]{1}[\d]{1,3}[\.]{1}[\d]{1,3}[\.]{1}[\d]{1,3}[\:]{1}[\d]{1,5}';
RegEx.InputString := Clipboard.AsText;
if RegEx.Exec() then
begin
repeat
Memo1.Lines.Add(RegEx.Match[0]);
until not RegEx.ExecNext();
end;
RegEx.Free();
end;
\d steht für Zahlen aber 0-9 würde auch funktionieren
du kannst dich doch vortasten mit den regulären ausdrücken,
nimm zuerst nur 3 zahlen zur prüfung und erweitere dann deinen regulären ausdruck bis du beim ergebnios angelangt bist.