fortran - 如何从文本文件中读取Fortran 90中的行数？

如何读取文本文件中存在的行数。

我的文本文件似乎像:

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

P.S.我完全不同意这个问题“似乎不清楚，没有付出任何努力”。伙计，你就是不知道你在说什么。这个问题首先是绝对清楚的，其次它不必“付出任何努力”-在这种情况下这是一个愚蠢的要求，因为通常的做法是询问“如何用语言B做A”-无需任何努力。

或:

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/