Question

fortran中读取文件时如何判断是否为空文件并将其删除

不知道能不能用一个自定义函数来实现这种遇到空文件将其删除的功能？

Answer 1

文本打开后用EOF语句判断
OPEN(1,FILE='')
IF(EOF(1))THEN
CLOSE(1，STATUS='DELETE')
ELSE
.....读取数据！

Answer 2

Integer istat
Open(12,FIle = ... )
Read(12,*,IOSTAT=istat)
if ( istat /= 0 ) then
Close( 12 , STATUS = 'DELETE' )
end if

追问

不好意思 照你这样写了还是不行，碰到空文件还是过不去！

追答

你的文件是 0 字节的么？里面是否有空格或回车等？

追问

文件大小是1kb，里面好像是有空格的

追答

除了空格和回车，有别的么？

追问

没了

追答

Integer istat , t
Open(12,FIle = ... )
Read(12,*,IOSTAT=istat) t
if ( istat /= 0 ) then
Close( 12 , STATUS = 'DELETE' )
end if

追问

错误变为：inconsistent OPEN/CLOSE parameters,unit 6,file"unknown"

追答

unit 6，不是我的代码。我的代码 unit 是 12

这说明错误不是发生在我给你的代码里的

追问

嗯 ，我知道，我读的文件代码原本就是设为6的

追答

你的意思是，你把我的代码改成 6 了是吧？
我不确定你的1KB文件内容到底是什么。所以不太好判断。

有一个写法，可能不标准。不确定你的编译器可以支持。
可否告知你的编译器品牌和版本？你用的操作系统版本

Integer istat , t
Open(12,FIle = ... )
Read(12,*,IOSTAT=istat,err=999,end=999) t
if ( istat /= 0 ) then
999 Close( 12 , STATUS = 'DELETE' )
end if