fortran文件操作之'append'; 'backspace'; 'endfile';

本次内容将讲一下文件操作的“高级技巧!”
例如我要读取文件的最后一行数据，一般来说可以直接将前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