24小时热门版块排行榜    

查看: 1470  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫?

[交流] 【求助】怎么在文件尾行读写数据?【已完结】 已有3人参与

已知文件A,行数未知。现在想跳到文件最后一行读写数据,怎样实现?
有没有类似rewind这样的指令(注:rewind是回绕至文件初始点命令)
请虫虫们不吝赐教,谢谢!


ps:刚才金币发放设置错了,希望回帖的虫虫言中要害,谢谢!

[ Last edited by 余泽成 on 2010-9-13 at 22:28 ]
回复此楼

» 猜你喜欢

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

不知不觉过2W了!那向3W挺进~~
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫?

引用回帖:
Originally posted by snoopyzhao at 2010-09-13 20:16:55:



又查了一下,append 应该是一个扩展的选项,不同的编译器可能不一样……有的在 access 这个选项下,也有的在 position 这个选项下,还有可能没有……

非常感谢你的提示,最终用position='append'实现了!
(改成access, 编译过程中说backspace 有错,没搞懂)
代码如下贴上,供其它需要的虫虫参考:
---------------------------------------------------------
        character*70 lineword
                open (9,file='openfile,position='append')
        backspace 9
        read (9, '(A70)') lineword
        write(*, '(A70)') lineword
                close(9)
        end
----------------------------------------------------------
不知不觉过2W了!那向3W挺进~~
9楼2010-09-13 21:54:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

maomao1210

金虫 (正式写手)


mplanck(金币+5):谢谢参与
引用回帖:
Originally posted by mplanck at 2010-09-11 10:59:29:
已知文件A,行数未知。现在想跳到文件最后一行读写数据,怎样实现?
有没有类似rewind这样的指令(注:rewind是回绕至文件初始点命令)
请虫虫们不吝赐教,谢谢!


ps:刚才金币发放设置错了,希望回帖的虫虫 ...

implicit real*8(a-h,o-z)

      open(unit=10,file='li.txt',status='old')

1     Read(10,*,end=2)
      Goto 1

2     backspace 10
      backspace 10             

      read(10,*) a  ! 最后一行你要读的数据,具体格式参考你的文件数据而定。
      write(*,*) a

      End

[ Last edited by maomao1210 on 2010-9-11 at 18:31 ]
2楼2010-09-11 18:29:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫?

引用回帖:
Originally posted by maomao1210 at 2010-09-11 18:29:18:

      implicit real*8(a-h,o-z)

      open(unit=10,file='li.txt',status='old')

1     Read(10,*,end=2)
      Goto 1

2     backspace 10
      backspace 10             

      read(10,*) a  !  ...

这办法不错,非常感谢!难道真没有一个指令呀?
不知不觉过2W了!那向3W挺进~~
3楼2010-09-11 18:49:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
引用回帖:
Originally posted by mplanck at 2010-09-11 18:49:03:



这办法不错,非常感谢!难道真没有一个指令呀?

应该有,可惜我不知道呀
4楼2010-09-11 20:52:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 不应该看fileCode +5 且听虎啸 2026-08-12 6/300 2026-08-12 16:26 by Tide man
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +7 Tide man 2026-08-11 7/350 2026-08-12 16:15 by 风逸1991
[基金申请] 长年满屏的广告,版主太不责任了。基金也等的急 +4 gltch 2026-08-12 4/200 2026-08-12 16:08 by eulota
[论文投稿] 职称评审,求友友推荐见刊最快的期刊 +4 工厂打螺丝 2026-08-08 4/200 2026-08-12 09:18 by hansi2025
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +3 majunge000 2026-08-11 4/200 2026-08-11 20:13 by lch2012
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 听说今天filecode变了 +26 布布和一二 2026-08-06 49/2450 2026-08-11 13:18 by WH3796
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +8 家与远方 2026-08-10 13/650 2026-08-11 09:49 by 家与远方
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 静等基金结果 +5 gjjjzhong 2026-08-10 16/800 2026-08-10 17:19 by Tide man
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
[基金申请] 2026国自然放榜时间 +9 布布和一二 2026-08-08 9/450 2026-08-10 11:22 by xxxx2020
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
[基金申请] filecode与中标关系的预测 +5 布布和一二 2026-08-07 5/250 2026-08-09 16:15 by 袁向阳007
[基金申请] 关于filecode,很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
信息提示
请填处理意见