应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】怎么在文件尾行读写数据？【已完结】
91/1返回列表
查看: 1561  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫？

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

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


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

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

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
不知不觉过2W了！那向3W挺进~~
1楼 2010-09-11 10:59:29
已阅   回复此楼   关注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 ]
赞一下(1人) 回复此楼
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:



这办法不错，非常感谢！难道真没有一个指令呀？

应该有，可惜我不知道呀
赞一下(1人) 回复此楼
4楼2010-09-11 20:52:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助。 2010-09-12 07:17:13
读我不知道如何做，但写应该很简单吧，用 open 中的 append 模式应该就可以……
赞一下(2人) 回复此楼
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 这个选项下，还有可能没有……
赞一下(1人) 回复此楼
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
----------------------------------------------------------
赞一下(1人) 回复此楼
不知不觉过2W了！那向3W挺进~~
9楼2010-09-13 21:54:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 mplanck 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的？ +17 爱看书的可乐 2026-08-26 19/950 2026-08-30 22:24 by xiangy672
[基金申请] 能否申诉？ +4 echo8914667 2026-08-30 5/250 2026-08-30 21:11 by echo8914667
[基金申请] 为什么到现在没收到通知？ +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 面上意见出来了 +9 黄鸟于飞Chao 2026-08-29 18/900 2026-08-30 16:47 by 黄鸟于飞Chao
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +6 gdd2018 2026-08-28 11/550 2026-08-30 08:58 by 超级无敌华子
[基金申请] 中青基了要发朋友圈吗？ +4 349506619 2026-08-28 4/200 2026-08-29 22:41 by alongwaytogo
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 哪位高人中了，把查询到的截图贴出来让我看看，让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国际合作可查了，中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 国合现在查不到了吗？ +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
信息提示
关闭
请填处理意见
关闭