Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式

// MatchedExpression 与 SubExpressions[0]

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'CodeGear Delphi 2007';

  reg.RegEx   := 'Delphi'; 



  while reg.MatchAgain do

  begin

    ShowMessage(reg.MatchedExpression); //Delphi; 这是匹配到的内容

    ShowMessage(reg.SubExpressions[0]); //Delphi; 也可以这样显示匹配到的内容

  end;

{

  SubExpressions 是一个数组:

  SubExpressions[1] 储存第 1 个表达式匹配的内容;

  SubExpressions[2] 储存第 2 个表达式匹配的内容;

  SubExpressions[n] 储存第 n 个表达式匹配的内容;



  SubExpressions[0] 储存整个表达式匹配的内容;



  MatchedExpression 表示的不过是 SubExpressions[0].

}



  FreeAndNil(reg);

end;


//提取子表达式匹配到的内容

var

  reg: TPerlRegEx;

begin

  reg := TPerlRegEx.Create(nil);



  reg.Subject := 'abc A1111 BB222 CCC33 DDDD4';

  reg.RegEx   := '\b([A-D]+)([1-4]+)\b'; //这个表达式有两个子表达式构成



  while reg.MatchAgain do

  begin

    ShowMessage(reg.SubExpressions[0]); //将分别显示: A1111 BB222 CCC33 DDDD4

    ShowMessage(reg.SubExpressions[1]); //将分别显示: A BB CCC DDDD

    ShowMessage(reg.SubExpressions[2]); //将分别显示: 1111 222 33 4



    {另外:

      reg.SubExpressionCount      是子表达式的个数;

      reg.SubExpressionLengths[n] 是第 n 个表达式返回的字符串的长度;

      reg.SubExpressionOffsets[n] 是第 n 个表达式返回的字符串在源字符串中的位置

    }

  end;



  FreeAndNil(reg);

end;


//子表达式不能超过 MAX_SUBEXPRESSIONS = 99 个, MAX_SUBEXPRESSIONS 是 TPerlRegEx 的内置常数.

你可能感兴趣的:(Delphi)