如何将一个文本文件的内容读取，然后写入到另外一个文本文件？

[aauu_1980]

各位朋友，小弟有一个文本文件，内容和格式大概如下：

标题
第一行内容
第二行内容
第三行内容
。。。。。
第九百行内容
结尾



现在想将该文本文件的内容分批读出，然后分批存入到另外一个文本文件，第1次先读出第一行到第三百行的内容，然后将这三百行的内容先写入到第一个文本文件，然后继续从301行继续读，将301行到第6百行的内容写入到第二个文本文件，然后从601行的内容开始读，将601行到第900行内容写入到第三个文本文件，请各位朋友给一个思路，应该怎样实现，请各朋友赐教，衷心谢谢！

最后想要的三个文本文件内容如下 ：

文件1：
标题
第1行
第2行
。。。
第300行
结尾


文件2：
标题
第301行
第302行
。。。
第600行
结尾


文件3：
标题
第601行
第602行
。。。
第900行
结尾

[lovelymelon]

逐行读取文本文件，这是以前为另一个网友写的，你可以参考一下

procedure TForm1.Button3Click(Sender: TObject);
var
  fl:TextFile;
  path,s:string;
  str:string;
  i,j,m,n:Integer;
  b:Boolean;
begin
  path:=ExtractFilePath(Application.ExeName);
  AssignFile(fl,path+'text.txt');
  Reset(fl);
  //逐行读文本文件，************************************************************
  repeat
    Readln(fl,str);//读取文本文件当前行内容，开始是第一行，然后逐行读取
    i:=Pos('XX-ClientMac:',str);//子串在字符串中的位置，大于0说明找到子串，否则无匹配的子串
    if i>0 then//有匹配的子串
    begin
      s:=Copy(str,i+length('XX-ClientMac:'),Length(str)-i-length('XX-ClientMac:')+1);//读取字符串中子串后的内容，就是你要的IP地址
    end
    else//没有匹配的子串
    begin
      i:=Pos('XX-ServerMac:',str);//另一子串在字符串中的位置，大于0说明找到子串，否则无匹配的子串
      if i>0 then
      begin
        s:=Copy(str,i+length('XX-ServerMac:'),Length(str)-i-length('XX-ServerMac:')+1);//读取字符串中子串后的内容，就是你要的IP地址
      end
    end;
  until
    SeekEof(fl);//文本文件读取完成(英文解释：Returns the end-of-file status of a file, ignoring whitespace.)
  CloseFile(fl);
  //self.MaskEdit1.EditMask
end;

[lovelymelon]

写文本文件，这是以前自己程序里的一段代码，可以参考

//将一些报文保存到文本文件中，便于调试时使用***********************************
procedure Tw_zjm.writefile_pro(name, content: string);
var
  fl:TextFile;
  k:integer;
begin
  if not fileexists(name) then
  begin
    k:=filecreate(name);
    if k>0 then
    begin
      fileclose(k);
      assignfile(fl,name);
      append(fl);
      writeln(fl,datetimetostr(now)+'：');
      writeln(fl,content);
      closefile(fl);
    end;
  end
  else
  begin
    assignfile(fl,name);
    append(fl);
    writeln(fl,datetimetostr(now)+'：');
    writeln(fl,content);
    closefile(fl);
  end;
end;
//****************************************************************************

然后，通过一个变量，记录读取行数，实现每300行写入一个新文本文件就ok了

[aauu_1980]

楼上的朋友，先试一下，谢谢了，也希望其它朋友能提供自己的思路，一起互相交流，谢谢

[devhp]

請自行測試

procedure TForm1.Button3Click(Sender: TObject);
var
Atext,btext:tstringlist;
i:integer;
begin

OpenDialog1.Execute;
if OpenDialog1.FileName<>'' then begin
atext:=Tstringlist.Create;
btext:=Tstringlist.Create;
atext.LoadFromFile(OpenDialog1.FileName);
btext.Add('標題1');
FOr i:=0 to atext.Count-1 do begin
if (i mod 300 =0) and (i>0) then begin
btext.SaveToFile('標題'+floattostr(i/300));
btext.Clear;
btext.Add('標題'+floattostr(i/300+1));
end else
btext.Add(atext[i]);
end;
atext.Free;
btext.Free;
end;

end;

[lovelymelon]

把文本文件先load到memo中，然后再对memo操作。memo不能设置成自动换行，否则就与文本文件的行数不一致了。

[devhp]

２００Ｗ行也就在百秒左右，幾Ｗ能花多少時間？你希望有多快啊！

[aauu_1980]

楼上的两位大虾，假如我的文本文件大概有4到6万行左右，这样读入的话，速度感觉实在太慢了，请问有没有一种比较快速的方法来读入带有几万行的文本文件，因为小弟的目的很简单，就是将三百行的内容写一个文件，平均下来，几万行，大概有一百多个文本文件左右，请楼上的两位大虾再次赐教，希望能帮忙提供一种快速的读写方法，谢谢

[aauu_1980]

衷心感谢楼上的各位朋友！