24小时热门版块排行榜     先丰纳米 买纳米材料就点这里

查看: 100  |  回复: 2
【悬赏金币】回答本帖问题,作者cmwhoknows将赠送您 5 个金币

cmwhoknows

新虫 (初入文坛)

[求助] 请问怎么用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的那几行后面几列的内容呢?

多谢了各位!!!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wz_work

木虫 (小有名气)


jjdg: 金币+1, 感谢参与 2017-09-15 00:15:53
do循环:读取第一个字符,判断,若为2,则backspace,重新按格式读取该行;否则,继续读下一行。该方法前提,首个数字为个位数。

发自小木虫IOS客户端
生命的长河是多么的迂回,希望又是多么的雄壮。
2楼2017-09-14 08:36:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

majun150

铁杆木虫 (小有名气)

【答案】应助回帖

★ ★
感谢参与,应助指数 +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
3楼2017-09-14 08:45:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 cmwhoknows 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 该不该听从家人的意见放弃读博? +98 麦雅糖127 2018-05-23 116/5800 2018-05-24 23:50 by 过犹不及2333
[微生物] 食品微生物检测 +4 lwwandwh 2018-05-23 7/350 2018-05-24 22:27 by 77369617
[有机交流] 求助ChemDraw破解版的安装包 +3 微微凝缘 2018-05-24 3/150 2018-05-24 20:48 by 泛泛泛泛
[找工作] 化学类 +6 。!。 2018-05-23 15/750 2018-05-24 19:56 by seagirljb
[找工作] 为什么选择去北京工作 +9 moyan03 2018-05-23 11/550 2018-05-24 19:14 by moyan03
[考研] 商志的课怎么区分真假 +8 谧谧谧谧mi 2018-05-24 19/950 2018-05-24 16:55 by 萌萌哒小兔子
[公派出国] 内心很难受 +64 yigeli 2018-05-18 113/5650 2018-05-24 15:11 by pczzh
[论文投稿] 文章修改意见回来,需要大修,编辑还提到英语需要润色,还给个链接? +9 icecream8508 2018-05-24 11/550 2018-05-24 14:26 by 773424126
[公派出国] 漫漫留学路 +11 1317714108 2018-05-22 27/1350 2018-05-24 13:36 by wanghaogea
[分子生物] 有哪个网站可以预测基因功能? +3 Nec99 2018-05-23 3/150 2018-05-24 11:40 by jinkairui123
[论文投稿] 用origin软件做柱状图 +4 哈哈,我来了 2018-05-23 4/200 2018-05-23 17:10 by 独孤神宇
[基金申请] 教育部人文社科项目评审进展到什么程度了?谢谢! +13 fennhuie 2018-05-20 16/800 2018-05-23 11:05 by wmh111
[公派出国] 公派硕士怎样才能获得免学费offer +5 蓝裙妹子 2018-05-22 11/550 2018-05-22 22:39 by wmy961127
[考博] 2018华北电力大学考博经验交流 +5 cs100100 2018-05-20 5/250 2018-05-22 11:00 by 小飞侠zd
[论文投稿] 硕士毕业盲审 +9 旋风龙卷风 2018-05-19 15/750 2018-05-21 16:48 by duanjie93
[论文投稿] 《中国粉体技术》投稿经验 +4 Arthur_larva 2018-05-20 4/200 2018-05-20 23:04 by 逝水无痕1990
[硕博家园] 论文插图的问题 +11 yakoo啊啊啊 2018-05-19 11/550 2018-05-20 18:46 by 仁肇
[论文投稿] sci源期刊 +3 aaaa678 2018-05-19 6/300 2018-05-19 20:54 by aaaa678
[职场人生] 苦逼加班族,出来冒个泡 (金币+1) +4 时光沙漏2016 2018-05-18 7/350 2018-05-19 13:28 by wanghaogea
[硕博家园] 计算机二级的选择 +3 haiweili 2018-05-18 6/300 2018-05-18 10:40 by haiweili
信息提示
请填处理意见