RegExprCount

**PeterPanino**

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).

zusammenfalten · markieren

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));

RegExprCount

RegExprCount

Forumregeln