如何读取文本文件中的行数？
我的文本文件看起来像:
1
2
3
.
.
.
n
最佳答案
用途:
nlines = 0
OPEN (1, file = 'file.txt')
DO
READ (1,*, END=10)
nlines = nlines + 1
END DO
10 CLOSE (1)
print*, nlines
end
或者:
nlines = 0
OPEN (1, file = 'file.txt')
DO
READ(1,*,iostat=io)
IF (io/=0) EXIT
nlines = nlines + 1
END DO
CLOSE (1)
print*, nlines
关于fortran - 如何从文本文件中读取 Fortran 90 中的行数？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/30692424/