版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

hua320king

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 170.5
帖子: 21
在线: 5.3小时
虫号: 950751
注册: 2010-01-30
性别: GG
专业: 岩土与基础工程

[交流] 【讨论】怎么从文件的最后一行读数据？已有3人参与

Fortran程序读某个文件，这个文件是不断增加数据的，我需要每次增加的数据，所以想从文件的最后一行开始读数据，不知道用什么命令，请群友不吝告知。

回复此楼

» 猜你喜欢

2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
孩子确诊有中度注意力缺陷已经有6人回复
2026博士申请-功能高分子，水凝胶方向已经有6人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复
请问2026国家基金面上项目会启动申2停1吗已经有5人回复
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？已经有3人回复

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

1楼2010-10-21 21:23:29

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

hakekill

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 1709.3
帖子: 131
在线: 19小时
虫号: 246017
注册: 2006-04-29
性别: GG
专业: 水环境与生态水利

★
小木虫(金币+0.5):给个红包，谢谢回帖交流

楼上这个方法好，比我的方法跟简单明了

赞一下(1人)

回复此楼

4楼2010-10-24 11:00:05

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 5 个回答

hakekill

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 1709.3
帖子: 131
在线: 19小时
虫号: 246017
注册: 2006-04-29
性别: GG
专业: 水环境与生态水利

★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
ajian04(金币+1):谢谢参与交流~ 2010-10-22 16:15:02

test.txt的内容是

CODE:

测试程序如下：

CODE:

program main 

implicit none

character( len = 100 ) ::  tmpstr

integer ::  ios 

open(unit=10,file="test.txt")

do

   read(unit=10, fmt = "(A)", iostat = ios ) tmpstr

   if ( ios == -1 ) exit 

end do

backspace(10)

backspace(10)

read(unit=10, fmt = "(A)") tmpstr

print *, trim(tmpstr) 

close(10) 

end program main

[ Last edited by hakekill on 2010-10-22 at 11:09 ]

赞一下(2人)

回复此楼

2楼2010-10-22 11:05:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

mplanck

至尊木虫 (职业作家)

之上又是啥子虫虫？

应助: 0 (幼儿园)
金币: 22899.2
散金: 5216
红花: 19
帖子: 3980
在线: 760.8小时
虫号: 468030
注册: 2007-11-27
性别: GG
专业: 原子和分子物理

★
小木虫(金币+0.5):给个红包，谢谢回帖交流
ajian04:谢谢参与交流~ 2010-10-23 19:54:41

这个问题我上次提过，解决方法如下：
---------------------------------------------------------
      character*70 lineword
            open (9,file='openfile,position='append')
      backspace 9
      read (9, '(A70)') lineword
      write(*, '(A70)') lineword
            close(9)
      end
----------------------------------------------------------
详情请参考我的帖子： http://muchong.com/bbs/viewthread.php?tid=2387833

赞一下(2人)

回复此楼

不知不觉过2W了！那向3W挺进~~

3楼2010-10-23 11:32:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

hua320king

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 170.5
帖子: 21
在线: 5.3小时
虫号: 950751
注册: 2010-01-30
性别: GG
专业: 岩土与基础工程

我用了笨方法，就是将每次增加的数据覆盖文件中已有的数据，这样每次读取文件就是读入的增加的数据。
ofstream ofs("D:\\cforexe\\Coutdate.txt",ios::trunc);

赞一下

回复此楼

5楼2010-11-07 10:18:19

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 5 个回答