关于文件操作的问题

[gaoyibo8939]

我的a.txt文件中有一串字符使用分号间隔如下:
王五;9999;2003-10-09 12:12:12,我想将2003-10-09 12:12:12置换为2003-10-12 11:11:11,字符串的其它部分不变.有没有办法谢谢各位!

[aushqh]

var
一、利用READLN（）函数读出内容；

二、然后处理替换;

三、再用Writeln()函数保存内容即可。

下面一个简单的读的例子，写与此类似。

var

F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;

[gaoyibo8939]

关键是在往文件中写,该怎么写,照你的思路,在写以前首先是要将文件中的原有内容清空,然后再往里写,我想知道如何清空?谢谢你!

[delphi_xizhousheng]

var

F: TextFile;
S: string;

AssignFile(F, 'your file');
try
Rewrite(F);//因为要回写文件，所以要用Rewrite
while not eof do
Readln(F, S);
s:=stringReplace(s,'2003-10-09 12:12:12,','2003-10-12 11:11:11',[]);
writeln(f,s);
finally
CloseFile(F);
end;

[gaoyibo8939]

使用REWRITE确实可以实现回写刚才我也测试可以,那么如果我要不重写,直接在原字符串后添加一个字符串,该怎么做?我刚接触DELPHI,多谢谢各位指点!

[47522341]

procedure TForm1.Button1Click(Sender: TObject);
var SL :tstringlist;
begin
try
sl := tstringlist.Create;
sl.LoadFromFile('D:\111.txt');
showmessage(ansireplacetext(sl[0],'2003-10-09 12:12:12','2003-10-12'));
finally sl.Free;
end;
end;
如果楼主只是要实现你题目的要求的话；上面代码足够；

[dickeybird888]

（·#·）

[sy_315]

copy（）出来也一样