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

markieren

Delphi-Quellcode:

  function RegExprSubExpressions (const ARegExpr : string;
    ASubExprs : TStrings; AExtendedSyntax : boolean = False) : integer;

Zitat von SubData:

markieren

Delphi-Quellcode:

  function RegExprSubExpressions (const ARegExpr : string;
    ASubExprs : TStrings; AExtendedSyntax : boolean = False) : integer;

Du verwechselst da wahrscheinlich was: RegExprSubExpressions bezieht sich nicht auf den Input-String, sondern auf den Expression-String. Deshalb kann man mit RegExprSubExpressions nicht das Ergebnis erhalten, das man mit RegExprCount erhält (wenn du das gemeint hast). Hast du die Dokumentation von TRegExpr gelesen?

Schönen Gruß!