Fortran Coder

查看: 11234|回复: 2
打印 上一主题 下一主题

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

[复制链接]

35

帖子

11

主题

0

精华

熟手

F 币
241 元
贡献
140 点
跳转到指定楼层
楼主
发表于 2021-9-14 10:43:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
文件开头有说明性的字头,想从指定行读入数据有什么好的方法呢?
例如,要读入图中红框数据存到程序的整型数,读入蓝框数据到数组。
我的做法是直接顺序读取,再用循环跳过想跳过的行:
subroutine read_num
    integer i
    open(12, File = './file/faces')

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

end subroutine


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

faces - 副本.txt

378 Bytes, 下载次数: 29

分享到:  微信微信
收藏收藏1 点赞点赞 点踩点踩

101

帖子

0

主题

0

精华

大师

F 币
670 元
贡献
299 点

规矩勋章元老勋章新人勋章

沙发
发表于 2021-9-14 10:56:36 | 只看该作者
[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
天之道,损有余而补不足

35

帖子

11

主题

0

精华

熟手

F 币
241 元
贡献
140 点
板凳
 楼主| 发表于 2021-9-14 11:51:36 | 只看该作者
胡文刚 发表于 2021-9-14 10:56
[mw_shl_code=fortran,true]Subroutine read_num
  integer i
  character(len=256) :: cStr

学到了学到了,多谢您啦
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-25 13:03

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表