盒子论坛 v2.1

function fun_preg_match(expr:string;SourceData:string;var resJson:TQJson;mode:ExprSet):Integer;
var
  Trex:TRegExpr;
  I:Integer;
begin
  Result := 0;
  //参考php的正则函数.
  resJson.Clear;
  Trex := TRegExpr.Create;
  try
    Trex.Expression := expr;
    Trex.ModifierI := modeI in mode;
    Trex.ModifierS := modeS in mode;
    Trex.ModifierG := modeG in mode;
    Trex.ModifierM := modeM in mode;
    Trex.ModifierX := modeX in mode;
    Trex.ModifierR := modeR in mode;
    if Trex.Exec(SourceData) then begin
       for I := 0 to Trex.SubExprMatchCount do begin
          resJson.Add(IntToStr(I)).AsString := Trex.Match[I];
       end;
       // resJson.Add('Modifier').AsString := Trex.ModifierStr;
       Result := Trex.SubExprMatchCount;
    end;
  finally
    FreeAndNil(Trex);
  end;
end;

function fun_preg_match_all(expr:string;SourceData:string;var resJson:TQJson;mode:ExprSet):Integer;
var
  Trex:TRegExpr;
  I:Integer;
  Rs:string;
begin
  Result := 0;
  //参考php的正则函数.
  resJson.Clear;
  Trex := TRegExpr.Create;
  try
    Trex.Expression := expr;
    Trex.ModifierI := modeI in mode;
    Trex.ModifierS := modeS in mode;
    Trex.ModifierG := modeG in mode;
    Trex.ModifierM := modeM in mode;
    Trex.ModifierX := modeX in mode;
    Trex.ModifierR := modeR in mode;
    if Trex.Exec(SourceData) then begin
       repeat
          for I := 0 to Trex.SubExprMatchCount do begin
          Rs := IntToStr(I);
          resJson.ForceName(Rs).Add( IntToStr(resJson.ForceName(Rs).Count) ).AsString := Trex.Match[I];
          end;
       until (not Trex.ExecNext);
       // resJson.Add('Modifier').AsString := Trex.ModifierStr;
       Result := resJson.Count;
    end;
  finally
    FreeAndNil(Trex);
  end;
end;

// 调用方法需要Tqjson.
fun_preg_match('aab','--AabbaabbbaAbuu--',Tq,[modeX,modeI]);
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

glwang (glwang)	★☆☆☆☆	-
	盒子活跃会员

2019/3/15 17:29:58

1楼：

楼主描述一下：ExprSetr的定义呗
----------------------------------------------

作者：

tuesdays (Tuesday)	▲▲▲▲△	-
	普通会员

2019/3/15 17:48:48

2楼：

@glwang

哪看到的?? ExprSetr
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

glwang (glwang)	★☆☆☆☆	-
	盒子活跃会员

2019/3/16 14:54:34

3楼：

函数中的参数：mode:ExprSet
----------------------------------------------

信息

登陆以后才能回复