各位大大: 1.怎样读取文本文件test.txt的一部分内容,比如说此文件有1000行,我想读取第900行到最后,然后存入新的文件中,该如何操作呢? 2.如果这个文件test.txt每天都会向里添加新的内容,我怎样读取新的内容?然后存入新的文件中 谢谢!!!

Hi fuudy:    方法有很多種, 提供一種給你參考.    使用TStringList將test.txt載入    

TStringList *dat = new TStringList;    dat->LoadFromFile("C:\\test.txt");    for(int i = 900;i<1000;i  )
        dat->Strings[i];    // 這就是900~1000每一行的資料    delete dat;

如果要讀取每日的新資料, 可以在每日讀取資料結束後, 紀錄最後讀取的行數, 下次要讀取時就直接從那一行開始讀到最後一行. ^___^ -------------------------- ～天下本無事 庸人自擾之～

用TStringList 使用全部載入的方式-->修改-->全部寫入(都是全部就對了！蠻傷資源 隨著資料量越來越大，載入時間就越久，佔資源就越大。 用 TFileStream 效率會比較好！ 或者用 AssignFile(F, OpenDialog1.FileName); Reset(F); Readln(F, S); CloseFile(F); 比較不佔資源 發表人 - wameng 於 2004/09/24 09:54:03

wameng兄和Windyboy兄 能否详细说明之 谢谢!!!

用 TStringList var I :integer; FileStr : TStringList; begin FileStr := TstringList.Create; try FileStr.loadFromfile('test.txt'); if FileStr.Count>900 then For I:= 900 to FileStr.Count-1 do begin showmessage(FileStr[I]); end; { ADD NEW ITEM } FileStr.ADD('新的'); FileStr.savetoFile('test.txt'); finally FileStr.Free; end; end; 發表人 - wameng 於 2004/09/24 11:48:33

wameng兄 谢谢您 但是执行的结果和以前的文件一样

Hi Fuudy 你好, 以下的寫法也很快

procedure TForm1.Button1Click(Sender: TObject);
var
  F1 : Textfile;
  S: string;
  i : integer;
begin        AssignFile(F1, 'c:\Four.txt'); { File selected in dialog }
    FileMode := 0;
    Reset(F1);        for i := 1 to 899 do
        Readln(F1);
    while not Eof(F1) do begin
       Readln(F1, S);
       Mome1.Lines.Add(S);
    end;
    CloseFile(F1);    end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.