本次內容將講一下檔案操作的“高階技巧!”
例如我要讀取檔案的最後一行資料，一般來說可以直接將前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