24小时热门版块排行榜    

CyRhmU.jpeg
查看: 551  |  回复: 1

bonbor

铁虫 (初入文坛)

[交流] 求助关于fortran读取文件的问题已有1人参与

有几个数据文件想要读取到内存中,但是不能确定数据文件的行数?百度了一些方法,但都是不太好使,各位大神都是怎样弄的呢?
如能给出具体代码就太好了
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

good
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

绿遍山原

铜虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
program main
  implicit none
  character(256) :: line
  open(30, file = "unknown_length.txt", form="formatted", action = "read", status = "OLD"
  do while (.true.)
    read(30, '(a256)', end = 100) line
    print *, trim(line)
  end do
  goto 200
  100 continue
  print *, "File eof"
  200 continue
  close(30)
  stop "Program stopped"
end program main
要夢遊,不要催眠。
2楼2014-07-06 12:42:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 bonbor 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见