读取文本文件的一部分内容 |
尚未結案
|
fuudy
一般會員 發表:30 回覆:11 積分:8 註冊:2002-11-22 發送簡訊給我 |
|
Windyboy
版主 發表:7 回覆:119 積分:210 註冊:2002-11-07 發送簡訊給我 |
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;如果要讀取每日的新資料, 可以在每日讀取資料結束後, 紀錄最後讀取的行數, 下次要讀取時就直接從那一行開始讀到最後一行. ^___^ -------------------------- ~天下本無事 庸人自擾之~ |
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
fuudy
一般會員 發表:30 回覆:11 積分:8 註冊:2002-11-22 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
用 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
|
fuudy
一般會員 發表:30 回覆:11 積分:8 註冊:2002-11-22 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
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;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |