Парсинг текста

{$apptype console}
{.$define  debug}
uses
  windows, SysUtils, Classes,
  PerlRegEx;
 
var
  reExt, reInt: TPerlRegEx; // reExternal, reInternal
  s :string;
 
begin
  with TMemoryStream.Create do try
    // содержимое этого файла соответствует тексту из 28 поста
    LoadFromFile(ChangeFileExt(ParamStr(0), '.txt'));
 
    SetLength(s, Size);
    StrCopy(@s[1], Memory);
  finally Free;
  end; { end try / with }
 
  reExt := TPerlRegEx.Create;
  reInt := tperlregex.Create;
  try
    reInt.RegEx := 'Channel: SIP/200-';
    reInt.Options := [preCaseless, preMultiLine, preSingleLine];
 
    reExt.RegEx := '(?<=(Event: Newstate))(\n|.)+?ConnectedLineNum: ([^\n]+)';
    reExt.Options := [preCaseless, preMultiLine, preSingleLine];
    reExt.Subject := s;
    if reExt.Match then repeat
      {$ifdef debug}
      // Внешний блок содержит текст после строки "Event: Newstate" и до "ConnectedLineNum" включительно
      Writeln('DEBUG'#13#10'reExt.MatchedText:', reExt.MatchedText);
      {$endif}
 
      reInt.Subject := reExt.MatchedText;
      if reInt.Match then // содержит ли внешний блок - "Channel: SIP/200-"
        Writeln('found what we need: ', reExt.Groups[3]);
      { end if }
 
      Writeln;
    until not reExt.MatchAgain; { end repeat / if }
  finally reInt.Free; reExt.Free;
  end;
 
end.

SysUtils.StrCopy(@s[1], Memory);

uses
  SysUtils, Classes, System.RegularExpressionsCore;
 
var
  reExt, reInt: TPerlRegEx;
  S: String;
  MS: TMemoryStream;
 
begin
  MS := TMemoryStream.Create;
  MS.LoadFromFile('D:\Work\Cyberforum\5\Log.txt');
  SetString(S, PAnsiChar(MS.Memory), MS.Size);
  MS.Free;
 
  reExt := TPerlRegEx.Create;
  reInt := TPerlRegEx.Create;
  try
    reInt.RegEx := 'Channel: SIP/200-';
    reInt.Options := [preCaseless, preMultiLine, preSingleLine];
 
    reExt.RegEx := '(?<=(Event: Newstate))(\n|.)+?ConnectedLineNum: ([^\n]+)';
    reExt.Options := [preCaseless, preMultiLine, preSingleLine];
    reExt.Subject := s;
    if reExt.Match then repeat
      {$ifdef debug}
      // Внешний блок содержит текст после строки "Event: Newstate" и до "ConnectedLineNum" включительно
      Writeln('DEBUG'#13#10'reExt.MatchedText:', reExt.MatchedText);
      {$endif}
 
      reInt.Subject := reExt.MatchedText;
      if reInt.Match then // содержит ли внешний блок - "Channel: SIP/200-"
        Writeln('found what we need: ', reExt.Groups[3]);
      { end if }
 
      Writeln;
    until not reExt.MatchAgain; { end repeat / if }
  finally
    reInt.Free;
    reExt.Free;
  end;
  ReadLn;
end.