Hallo,
heute möchte ich eine Funktion vorstellen, mit der man in einem String die Häufigkeit des Vorkommens von Teilstrings, die einem regulären Ausdruck (regular expression) entsprechen, feststellen kann. Man benötigt dazu die
Unit RegExpr von Andrey V. Sorokin (
http://www.regexpstudio.com).
Delphi-Quellcode:
function PARegExprCount(const S, E: string): integer;
var
R: TRegExpr;
begin
Result := 0;
R := TRegExpr.Create;
try
R.Expression := E;
if R.Exec(S) then
begin
Inc(Result);
while R.ExecNext do
Inc(Result);
end;
finally
R.Free;
end;
end;
// Beispielaufruf:
lblCount.Caption := IntToStr(PARegExprCount(edtInput.Text, edtRE.Text));