delphi正则应用

function TrackMatchs(strText: string;

                     strExp : string;

                     Matchs : TStrings=nil;

                     bMS    : Boolean=false;

                     bMG    : Boolean=false;

                     bMR    : Boolean=false): integer;

var

    i: integer;
RegExpr: TRegExpr;

begin

    result:= 0;

    if strExp='' then exit;

    RegExpr:= TRegExpr.Create;

    RegExpr.ModifierS:= bMS;

    RegExpr.ModifierG:= bMG;

    RegExpr.ModifierR:= bMR;

    RegExpr.ModifierI:= true; //不区分大小写

    RegExpr.Expression:= strExp;

try
RegExpr.Expression := strExp;
if RegExpr.Exec (strText) then

        begin

            REPEAT

                if Assigned(Matchs) then

                    Matchs.Add(RegExpr.Match[0]);

                Inc(result);

            UNTIL not RegExpr.ExecNext;

        end;
finally

        FreeAndNil(RegExpr);

  end;

end;

function GetMatchs(strText: string;

                   strExp : string;

                   Matchs : TStrings=nil;

                   bMS    : Boolean=true;

                   bMG    : Boolean=false;

                   bMR    : Boolean=false;

                   Ver    : byte=1;

                   iContent: integer=0): integer;

    

    //function GetMatchContent(strText: widestring; iContent, iMatchPos: integer): string;

    function GetMatchContent(strText: string; iContent, iMatchPos: integer; var line: integer): string;

    var

        v: string;

        istart, iend: integer;

    begin

        istart:= iMatchPos-(iContent div 2);

        if istart<1 then istart:=1;

        //iend:= iMatchPos+(iContent div 2);

        //if iend>length(strText) then iend:=length(strText);

        result:= copy(strText, istart, iContent);

        //2014-11-24 17:14 tig 输出所在行

        v:= copy(strText, 1, istart);

        line:= StrCount(#13#10, v);

        {

        result:= '';

        if iContent<length(strMatch) then exit;

        ipos:= pos(strMatch, strText);

        if ipos<1 then exit;

        istart:= ipos-(iContent div 2);

        if istart<1 then istart:=1;

        iend:= ipos+(iContent div 2);

        if iend>length(strText) then iend:=length(strText);

        result:= copy(strText, istart, iend-istart);

        }

    end;

var

    RegExpr: TRegExpr;

    i, nums, line: integer;

    sline, cont: string;

    DataStrs:  TStrings;

begin

    result:= 0;

    if strExp='' then exit;

    RegExpr  := TRegExpr.Create;

    DataStrs := TStringList.Create;

    try

        with  RegExpr do

        begin

            ModifierS  := bMS;

            ModifierG  := bMG;

            ModifierR  := bMR;

            ModifierI  := true; //不区分大小写

            Expression := strExp;

            if Exec(strText) then

            begin

                REPEAT

                    sline:= '';

                    if (Ver=2) or (Ver=3)  then

                    begin

                        nums:=0;

                        if Ver=2 then nums:= RegExpr.SubExprMatchCount;

                        cont:= '';

                        line:= -1;

                        for i:= 0 to nums do

                        begin

                            if iContent>0 then

                            begin

                                cont:= GetMatchContent(strText, iContent, RegExpr.MatchPos[i], line);

                                cont:=FastReplace(cont, #13#10, '', false);

                                cont:=FastReplace(cont, #09, '', false);

                            end;

                            sline:= sline+'<line>'+inttostr(line)+'</line>'+

                                          '<match>'+RegExpr.Match[i]+'</match>'+

                                          '<content>'+cont+'</content>'+#09

                        end;

                    end else

                    begin

                        sline:= RegExpr.Match[iContent];

                    end;

                    Inc(result);

                    DataStrs.Add(sline);

                UNTIL not ExecNext;

                if Assigned(Matchs) then  Matchs.Assign(DataStrs);

            end;

        end;

    finally

        RegExpr.Free;

        DataStrs.Free;

    end;

end;

function GetMatch(strText: string;

                  strExp : string;

                  idx    : integer=0;    //0表示

                  bMS    : Boolean=true;

                  bMG    : Boolean=false;

                  bMR    : Boolean=false): string;

var

    i, nums: integer;
RegExpr: TRegExpr;

    strLine, strContent: string;

begin

    result:= '';

    if strExp='' then exit;

    RegExpr:= TRegExpr.Create;

    RegExpr.ModifierS:= bMS;

    RegExpr.ModifierG:= bMG;

    RegExpr.ModifierR:= bMR;

    RegExpr.ModifierI:= true; //不区分大小写

    RegExpr.Expression:= strExp;

RegExpr.Expression:= strExp;
if RegExpr.Exec (strText) then
begin
   if idx>RegExpr.SubExprMatchCount then idx:= 0;
   result:= RegExpr.Match[idx];
end;

RegExpr.Free;

end;