24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

cmwhoknows

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 24.7
散金: 307
帖子: 30
在线: 43.8小时
虫号: 3143989
注册: 2014-04-17
专业: 水环境与生态水利

[求助] 请问怎么用fortran定位文件中的特定行并输出已有1人参与

本人接触fortran不久，现有一数据想通过fortran处理，有个问题不知如何实现

文件是格式化文件，每行都有好几列数据，现在想定位每行第一个数据等于某特定值的那一行，并把该行后面几列的数据按顺序输出。请问各位如何实现？

一个简单的例子，比如数据为
1  22  5  98
2  66  9  77
3  45  8  89
2  98  7  14
1  89  8  74
2  86  2  36

怎么输出第一个数字为2的那几行后面几列的内容呢？

多谢了各位！！！

回复此楼

» 猜你喜欢

1楼 2017-09-14 06:50:08

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

majun150

铁杆木虫 (小有名气)

应助: 8 (幼儿园)
金币: 6784
红花: 1
帖子: 273
在线: 86.5小时
虫号: 1104463
注册: 2010-09-20
专业: 水环境与生态水利

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
jjdg: 金币+2, 感谢参与 2017-09-15 00:16:01

思路：读入数据，判断，然后输出
具体实现：
program main
  implicit none

  integer :: a, b, c, d, ios

  open(10,file="input.txt",status='old') ! 输入文件
  open(20,file="out.txt",status='replace') ! 输出文件

  do while(.true.)
read(10,*,iostat=ios) a, b, c, d
if(ios/=0) exit                      ! 判断是否读到文件末尾，若是，则退出循环
if(a==2) write(20,*) b, c, d          ! 判断是否等于2，若是，则输出后面几位数到输出文件
  end do

  close(10)
  close(20)

end program main