文本文件行内容替换问题 ( 积分: 50 )

我有一个文本文件，其内容有如下的一段内容：
//*********************************
open xxx.xxx.xxx.xxx
gpsvip
vipgps
binary
get xxx.exe c:/RunTime/xx.exe
bye
我想用delphi程序实现以上各行内容的重新赋值（我不希望用rewrite重写），怎么实现？急！

用tstringlist读入，修改，保存到文件即可

用正则表达式替换，delphi的正则表达式单元可以在以下网址下载：
http://www.2ccc.com/article.asp?articleid=1412

先用程序把这个文件全部读入一个控件里。如：TStringList TMemo...
然后再用函数StringReplace(原文本,旧字符,新字符,[rfReplaceAll, rfIgnoreCase])
最后再通过控件的方法保存到文件就可以了。
例如：
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:/MyText.Txt');
Memo1.Lines.Text:=StringReplace(Memo1.Lines.Text,'Memo','NewMemo',[rfReplaceAll, rfIgnoreCase]);
Memo1.Lines.SaveToFile('C:/MyText.Txt');
end;