24小时热门版块排行榜

返回列表

hua320king

铜虫 (初入文坛)

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

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

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

回复此楼

» 猜你喜欢

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

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

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

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挺进~~