fortran檔案操作之'append'; 'backspace'; 'endfile';
阿新 • • 發佈:2018-12-08
本次內容將講一下檔案操作的“高階技巧!” 例如我要讀取檔案的最後一行資料,一般來說可以直接將前n-1行read過去,再進行讀取 本文將介紹一種新的方法,程式碼如下 program main implicit none integer :: a open( 100, file = 'a.txt' ) !// 建立一個新檔案並寫入實驗資料 write(100,*) 1 write(100,*) 2 write(100,*) 3 close(100) open( 100, file = 'a.txt', position = 'append' ) !// 利用position = 'append'語句將“游標”置於檔案末尾 backspace( 100 ) !// 使“游標”後退一行 read(100,*) a !// 讀取最後一行資料 print*, a backspace( 100 ) !// 再次後退一行 endfile( 100 ) !// 清除最後一行資料 close( 100 ) end program main 一開始檔案中有原始資料 1 2 3 執行程式後,會在螢幕上輸出3 然後檔案中的資料只有 1 2