文本文件删除特定字符

Question

比如文本文件内容1111111111111 abc 111
aaaaaaaaaaaaaaaaaaaaa
2222222222222 abc 222删除abc并保存

Answer 1

小的文本文件，采用下面的试试。。procedure TForm1.Button1Click(Sender: TObject); //写入到新文件
var
   strlist:Tstringlist;
   str:string;begin
    strlist:=Tstringlist.Create;
   try
      strlist.LoadFromFile('c:\123.txt');
      str:=strlist.Text;
      str:=StringReplace(str,'abc','',[rfReplaceAll]);
      strlist.Text:=str;
      strlist.SaveToFile('c:\123.txt');
   finally
      strlist.Free;
   end;
end;

Answer 2

简单的直接用delphi自带的就可以了，复杂点的可以用正则来处理