正则表达式在每行开头插入行号

来源:转载

用正则表达式在每行开头插入行号需要匹配每一行,可用规则'(^/w+[^.])',然后对于每个匹配,插入行号

代码为:

var Rgr: TRegExpr; i: Integer;begin i := 0; Memo1.Lines.Clear; Memo1.Lines.LoadFromFile('d:/a1.txt'); Memo2.Lines.Clear; Rgr := TRegExpr.Create; Rgr.ModifierM := True; Rgr.Expression := '(^/w+[^.])'; try if Rgr.Exec(Memo1.Text) then repeat i := i + 1; memo2.Lines.Add(Format('%d. ', [i]) + Rgr.Match[1]); until not Rgr.ExecNext; finally Rgr.Free; end;end;

d:/a1.txt文件为

AA

BB

CC

DD

EE

FF


分享给朋友:
您可能感兴趣的文章:
随机阅读: