24小时热门版块排行榜    

查看: 1465  |  回复: 8

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫?

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

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


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

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

» 猜你喜欢

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

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

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的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1):鼓励应助。 2010-09-12 07:17:13
读我不知道如何做,但写应该很简单吧,用 open 中的 append 模式应该就可以……
5楼2010-09-11 21:52:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫?

引用回帖:
Originally posted by snoopyzhao at 2010-09-11 21:52:45:
读我不知道如何做,但写应该很简单吧,用 open 中的 append 模式应该就可以……

搜索fortran帮助文件,看到open的所有供选参数如下:ACCESS CONVERT MODE RECORDTYPE ACTION DEFAULTFILE NAME SHARE ASSOCIATEVARIABLE DELIM ORGANIZATION SHARED
BLANK DISPOSE PAD STATUS  BLOCKSIZE FILE POSITION TITLE
BUFFERCOUNT FORM READONLY TYPE  BUFFERED IOFOCUS RECL USEROPEN CARRIAGECONTROL MAXREC RECORDSIZE   
就是没看到append
不知不觉过2W了!那向3W挺进~~
6楼2010-09-13 16:26:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)


小木虫(金币+0.5):给个红包,谢谢回帖交流
引用回帖:
Originally posted by mplanck at 2010-09-13 16:26:31:

搜索fortran帮助文件,看到open的所有供选参数如下:ACCESS CONVERT MODE RECORDTYPE ACTION DEFAULTFILE NAME SHARE ASSOCIATEVARIABLE DELIM ORGANIZATION SHARED
BLANK DISPOSE PAD STATUS  BLOCKSIZE FIL ...

又查了一下,append 应该是一个扩展的选项,不同的编译器可能不一样……有的在 access 这个选项下,也有的在 position 这个选项下,还有可能没有……
7楼2010-09-13 20:16:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
引用回帖:
Originally posted by snoopyzhao at 2010-09-13 20:16:55:



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

8楼2010-09-13 21:49:46
已阅   回复此楼   关注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的回帖
相关版块跳转 我要订阅楼主 mplanck 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 这样的filecode谁见过 +3 布布和一二 2026-08-08 5/250 2026-08-08 12:22 by 仁砚薪传
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +4 a089 2026-08-07 4/200 2026-08-08 12:15 by arzu_hma
[找工作] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 Vi50GxzrFcSG 2026-08-07 4/200 2026-08-08 10:39 by 3OOjAIS77qg2
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 Vi50GxzrFcSG 2026-08-07 6/300 2026-08-08 10:19 by 3OOjAIS77qg2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 HEQlVqMTIA7d 2026-08-07 4/200 2026-08-08 08:27 by 6vVgjDL4CnGu
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 KXLV3nuBVBY7 2026-08-07 4/200 2026-08-08 08:21 by 6vVgjDL4CnGu
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 HEQlVqMTIA7d 2026-08-07 3/150 2026-08-08 03:47 by 6vVgjDL4CnGu
[基金申请] 基金中了 +14 laoda193707 2026-08-06 14/700 2026-08-08 00:23 by 实验小白ha
[基金申请] 化学口download_prp&fileCode的固定段好像这几天一直没变,有变的大神么? +3 Tide man 2026-08-07 4/200 2026-08-07 22:39 by Tide man
[基金申请] 固定端突然变了,今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] 听说今天filecode变了 +24 布布和一二 2026-08-06 47/2350 2026-08-07 16:02 by zhiyanjiang
[基金申请] 大家散了吧,后缀研究没有意义,别浪费时间了,过好目前的每一天,不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] 求各位大神看下 100+6 hpkpkpkp 2026-08-05 33/1650 2026-08-06 14:49 by zhiyanjiang
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 8月时间戳变的,举个手。玩一下,释放压力 +9 archvillain 2026-08-04 11/550 2026-08-05 20:06 by wlwhappy
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 4/200 2026-08-05 09:59 by lfy8008
[基金申请] 有没有H口的?有收到消息的吗? +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
[基金申请] 纯娱乐,不喜欢勿喷 +7 Tide man 2026-08-04 10/500 2026-08-04 15:10 by loufangrui
[基金申请] 什么时候能放榜呀? +3 Jacob678 2026-08-03 3/150 2026-08-03 16:14 by gltch
信息提示
请填处理意见