样品检测没仪器,来小木虫仪器共享平台,全国高校任你挑
查看: 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个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 催稿信收到回复,这还有希望吗? +4 奋斗鸟 2017-09-24 9/450 2017-09-25 20:32 by 奋斗鸟
[职场人生] 被说哭的男孩 (金币+2) +4 zkzixian 2017-09-23 4/200 2017-09-25 18:11 by emu_yu
[精细化工] Aeo9在碱性溶液中是否稳定 +3 abc77398 2017-09-23 3/150 2017-09-25 14:21 by BASF_TMwu
[有机交流] 碘蒸气显色,出现白色点 +4 lqw969 2017-09-24 4/200 2017-09-25 11:58 by miaowangen
[考博] 博导回复 +21 mamalijing12 2017-09-22 27/1350 2017-09-24 22:52 by GT_信赖
[论文投稿] 外文EI和四区SCI哪个更难中 +3 LUKE111 2017-09-21 3/150 2017-09-24 19:50 by 国际科学编辑
[考研] 临时换分析化学专业 湖师大 +6 张凌雅 2017-09-23 11/550 2017-09-24 19:23 by a6451377
[考研] 实验室 +5 爱蹦的跳跳虫 2017-09-24 6/300 2017-09-24 17:17 by zqb740111
[版块工场] 【早起签到贴】2017年9月24日(q q 48626260 进群申请:小木虫——您个人ID) +72 8475 2017-09-24 72/3600 2017-09-24 09:25 by flfzxf
[考研] 奋斗吧! +6 15737219721 2017-09-22 6/300 2017-09-24 07:11 by chinachen518
[教师之家] 我又犯精神病了——20170920 (金币-5) +74 windrider_mm 2017-09-20 86/4300 2017-09-24 06:33 by hellen2012
[有机交流] 求大神解释反应机理 20+3 准备ing 2017-09-23 6/300 2017-09-23 21:41 by DJ_Tokyo
[硕博家园] 百毒不侵 +10 不倒孩儿 2017-09-22 17/850 2017-09-23 13:28 by U天乙U
[找工作] 军工研究所还是企业 (金币+1) +16 Gordenxu 2017-09-22 20/1000 2017-09-23 13:00 by 孤独的过客
[考研] 考研政治该如何复习 +8 胡高伟888 2017-09-22 8/400 2017-09-23 12:05 by 2012、改变
[考研] 北京科技大学,材料科学与工程学院 +4 匹配小公举 2017-09-22 4/200 2017-09-22 22:07 by maoxiaoliu
[考研] 专本研 +9 木仔+木仔 2017-09-22 21/1050 2017-09-22 21:22 by 木仔+木仔
[硕博家园] 审核制博士是不是一定要过六级 +34 1454349371 2017-09-21 42/2100 2017-09-22 14:48 by 流逝之川
[分析] atomic pair distribution function (PDF)technique +3 一生红蓝1 2017-09-21 3/150 2017-09-21 11:19 by 清远常山
[无机非金属] 测致密度 5+4 94李春雨 2017-09-19 5/250 2017-09-20 16:04 by hsanxi
信息提示
请填处理意见