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个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 好开心啊,终于知道该怎么轻松发顶级sci了! +19 情本难求 2018-01-19 33/1650 2018-01-20 06:38 by vonkamen
[公派出国] 有哈佛医学院附属医院联陪的么 +3 月光20170418 2018-01-19 3/150 2018-01-20 00:07 by baopkbao
[找工作] 中石化洛阳研发中心&中节能烟台万润 +6 catal_yqx 2018-01-19 15/750 2018-01-19 23:32 by sysuce
[硕博家园] 吐槽下课题组研二的师姐 +14 向阳奔跑 2018-01-17 33/1650 2018-01-19 23:20 by besk
[硕博家园] 略论写paper +19 yuxiaoinbuaa 2018-01-15 26/1300 2018-01-19 22:07 by 玉堂
[精细化工] 帮我查一篇专利:CN05969480A 20+3 xuexidaolao 2018-01-18 4/200 2018-01-19 16:31 by hetianqian
[基金申请] 研究基础不行,能申请下面上吗? +15 偏振片 2018-01-13 31/1550 2018-01-19 16:11 by 偏振片
[硕博家园] Acta Materialia +10 John_csu 2018-01-16 14/700 2018-01-19 11:22 by 风之巅11
[考博] 咨询 (金币+1) +5 18241268845 2018-01-14 6/300 2018-01-19 10:41 by hncsjiangjun
[论文投稿] PLOS ONE 格式修改 +7 yu0801 2018-01-18 10/500 2018-01-19 07:21 by 国际科学编辑
[公派出国] 2018根特大学CSC PhD申请疑问 +3 ethan_chao 2018-01-17 9/450 2018-01-19 05:27 by yanyujiao16
[硕博家园] 早起的鸟儿有虫吃~ +15 a梦女孩 2018-01-18 17/850 2018-01-18 12:42 by 伏地魔
[金融投资] 老梁四大名著情商课 (金币-10) +8 serengeter 2018-01-18 11/550 2018-01-18 11:50 by shuwenhe
[精细化工] 冬天的原料处理 +9 合肥威尔 2018-01-16 20/1000 2018-01-17 12:47 by 合肥威尔
[论文投稿] 冲击电力方面的一、二区SCI期刊怎么就这么难呢 +5 15690326186 2018-01-16 10/500 2018-01-17 11:23 by 可是忘了
[论文投稿] applied surface science 为什么如此之慢? +8 bangwandeyun 2018-01-16 13/650 2018-01-16 23:17 by 逝水无痕1990
[考研] 求助2014苏州大学分析化学考研试题答案 +3 13509702335 2018-01-16 11/550 2018-01-16 21:43 by 13509702335
[文学芳草园] 凡事不将就 生活不凑合 +23 静静等风来 2018-01-13 61/3050 2018-01-16 20:19 by 静静等风来
[论文投稿] 10天接受,焊接学报你让我重新认识了你!! +5 929368583 2018-01-15 8/400 2018-01-16 01:48 by 小右又吃肉包
[考博] +3 caoyapenglut 2018-01-13 5/250 2018-01-13 21:03 by caoyapenglut
信息提示
请填处理意见