关于文本文件的操作

Question

关于文本文件操作，主要是从文本文件中读出指定的内容，我网上找了好久，没有找到合适的，请哪为好心人指点一下，给我源代码参考一下，谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 a : TStringList;
begin
 a : TStringList.Create;
 a.LoadFromFile('d:\a.txt');
 a.Add('insert into a.txt');
 a.SaveToFile('d:\b.txt');
 a.Free;
end;

Answer 2

谢谢！那如果要把文件a.txt中的含有特大字符的行写入b.txt中，该如何写代码，烦请告知。

Answer 3

var
  s1: string[4];
  s2:string[3];
  s3:string[5];
  i:integer;
  j:integer;
begin
  assignfile(mytextfile,'mytextfile.txt');
  reset(mytextfile);
  i:=0;
  try
    while not eof(mytextfile)do
    begin
      inc(j);
      j:=5;
      readln(mytextfile,s1,s2,s3);
      showmessage(s1);
      showmessage(s2);
      showmessage(s3);
    end;
  finally
    closefile(mytextfile);
  end;
s1 回存放 text 中 前4 馬 s2 3 馬，以此類推。
  

Answer 4

我试了一下程序：程序中加上 对 mytextfile：TextFile 的定义就能运行了
“s1 回存放 text 中 前4 馬 s2 3 馬，以此類推”不知是什么意思

Answer 5

文件操作主要步骤:
assignfile(f,"test.txt");
reset(f);
//reset是读文件的意思,如果换成rewrite(f)；就是写文件
while nof(f.eof)
//常用while not(f.eof) being ...end;读文件eof是读到文件末尾，换lof就是行末
begin
readln(f,s);
//如果s是一个string型这样就读出一行字符串,如果s是integer那么就读出一个数，如下面的结构 456 3465 454 ,只需要readln(f,a,b,c)就可以读出，也可以用read(f,a);分三次读，加ln是换行的意思
...
end;
closefile(f);
//关闭文件
另外读文件常用try..finally...错误陷阱，try 读文件 finally 关闭文件