从文件指定行读取数据的方法

jojo9

文件开头有说明性的字头，想从指定行读入数据有什么好的方法呢？
例如，要读入图中红框数据存到程序的整型数，读入蓝框数据到数组。
我的做法是直接顺序读取，再用循环跳过想跳过的行：
subroutine read_num
    integer i
    open(12, File = './file/faces')

    do i=1,9
        read(12, *)
    end do
   read(12, *) nface

end subroutine


请问有更好的实现方法嘛？

胡文刚

[Fortran] 纯文本查看 复制代码

Subroutine read_num
  integer i
  character(len=256) :: cStr
  open(12, File = './file/faces')
  do
    read(12,"(a256)") cStr
    if(cStr(1:1)=="}")exit
  end do
  read(12, *) nface
  close(12)
End Subroutine read_num

jojo9

胡文刚 发表于 2021-9-14 10:56
[mw_shl_code=fortran,true]Subroutine read_num
  integer i
  character(len=256) :: cStr

学到了学到了，多谢您啦