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

Question

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

我的文字文件似乎如下：

1
2
3
.
.
.
n

Answer 1

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。我完全不同意这个问题＆＃34;似乎不清楚并且没有表现出任何努力＆＃34;。伙计，你只是不知道你在说什么。这个问题首先是绝对清楚的，其次它没有“显示任何努力”。 - 在这种情况下，这是一个愚蠢的要求，因为通常的做法是询问＆＃34;如何用语言B＆＃34; - 无需任何努力。

或

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

Answer 2

虽然不清楚，但我认为，如果您只需知道文件中的数字行，只需在命令行中使用declare userexist integer; begin select count(*) into userexist from dba_users where username='SMITH'; if (userexist = 0) then execute immediate 'create user smith identified by smith'; end if; end; /

如果你想做更进一步的事情，只需读取字符串的行数并计算，直到遇到文件结尾。这是下面的代码

wc -l <filename>

希望有所帮助！