如果我想检查文件是否到头,应该怎么做?
时间: 2025-01-12 10:53:38 浏览: 28
在Fortran中,如果你想检查文件是否到达了头(即文件结束),你可以通过`eof()`函数或`file_status`函数来进行判断。以下是两种常用的方法:
1. **使用`eof()`函数**:
```fortran
open(unit=10, file='ex1201.dat', status='old') ! 打开文件
if (.not. eof(10)) then ! 如果不是文件结束
! 读取下一行或其他操作...
else
write(*,*) '已经到达文件结束'
end if
close(10) ! 关闭文件
```
2. **使用`file_status`函数**:
```fortran
integer :: status
open(unit=10, file='ex1201.dat', status='old', file_status=status) ! 加上file_status变量
if (status .ne. 'good') then
if (status .eq. 'end_of_file') then
write(*,*) '已经到达文件结束'
else
print *, '打开文件出错:', status
end if
else
! 读取文件...
end if
close(10)
```
记得在每次操作完成后检查状态,以确保在文件末尾时能够正确处理。
阅读全文
相关推荐















