讀檔案時,統計行數,為何比實際的多一行

2021-09-08 06:36:55 字數 856 閱讀 6485

讀檔案時,統計行數,為何比實際的多一行 delphi / windows sdk/api

我的程式如下,現象是如果boat.txt中有10行,total的結果是11,在輸出的boat1中最後多的一行是0   0   為什麼,我換成fortran程式total的結果就是10   ??  

var  

g,f:textfile;  

i,j,scale,multiple,total:integer;  

xmax,ymax,xmin,ymin:integer;  

nn,nx,ny,nb:integer;                        

begin  

assignfile(f,'e:\kong\delphi\picture\boat.txt');  

assignfile(g,'e:\kong\delphi\picture\boat1.txt');  

reset(f);  

rewrite(g);  

total:=0;  

while   not   eof(f)   do  

begin  

readln(f,i,j);  

writeln(g,i,j);  

total:=total+1;  

end;  

closefile(f);  

closefile(g);  

memo1.lines.add(inttostr(total));  

end;  

end.

期待大俠的回答

有些文字在末尾有空行,fortran可能沒有把這個算進去。你用二進位制編輯器看看?

python之統計txt檔案行數時遇到空行的問題

今天碼程式時發現,對txt檔案以readlines 方法返回的列表中包括了txt中的空行,如果想通過正常內建函式操作得到txt檔案內的行數的話就可能被坑出不想要的結果。解決辦法可以是迴圈過程中刪除尾行自帶的換行符 line.rstrip 並返回迴圈次數,但我選擇用isspace方法,先附上txt 1...

created at比實際時間少8小時的原因及解決

今天在插入表的時候,遇到乙個奇怪的現象。created at和updated at 插入的時間戳總比實際時間少8小時,這裡的這兩個值我是設定自動插入當前時間的 剛開始以為是mysql時區的問題 根據這個修改mysql配置檔案,加上default time zone 8 00 問題依然存在,不是mys...

shell 程式設計統計兩個檔案行數百分比

今日心血來潮,突然感覺shell中重複的命令讓人昏昏欲睡,故有此產出 直接上乾貨,我的執行指令碼如下 bin bash subscript.txt for info in do fstr echo info cut d f 1 sstr echo info cut d f 2 yp cat wc l...