[fpc-pascal] RegExpr - replace

[leledumbo]

If I'm not mistaken what you want:

{$mode objfpc}{$H+}
uses
  RegExpr;
var
  InputStr: string;
  r: TRegExpr;
begin
  r:= TRegExpr.Create;
  try
    InputStr := ' 28/07/2014 </3604669/trabalho-28-07-2014-pg-1>  ';
    r.Expression := '(\/)([0-9]+)(\/.*?pg\-)(\d+).*?"';
    r.Exec(InputStr);
    WriteLn(r.Substitute('$1$4$3$2'));
  finally
    r.Free;
  end;
end.

should do it.



--
View this message in context: http://free-pascal-general.1045716.n5.nabble.com/RegExpr-replace-tp5719987p5719989.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.