讀檔案時,統計行數,為何比實際的多一行 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...