关于文件操作的问题

Question

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

Answer 1

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;

Answer 2

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;

Answer 3

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

Answer 4

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;
如果楼主只是要实现你题目的要求的话；上面代码足够；