Question

fortran如何读取文件最后一行数据？？

比如说数据如下，我也不知道有多少行，我只想要最后一行数据
1.5 2 2.5
1.1 5 3.9
1.5 6 6.5

Answer 1

一直读，直到结束为止。

结束可用 iostat 判断

追问

这个我是用循环来读的 但是我不知道怎么计算出它最后一行是第几行 这个iostat怎么用？

追答

Program Main
Implicit None
integer n
integer :: GetFileN
Open( 12 , File = 'a.txt' )
n = GetFileN( 12 )
Write( * , * ) '共有',n,'行！'
Close( 12 )
End Program Main
Integer Function GetFileN( iFileUnit )
Implicit None
Integer , Intent( IN ) :: iFileUnit
Integer :: ioS
Character(Len=1) :: cDummy
GetFileN = 0
Rewind( iFileUnit )
Do
Read( iFileUnit , * , ioStat = ioS ) cDummy
if ( ioS /= 0 ) Exit
GetFileN = GetFileN + 1
End Do
Rewind( iFileUnit )
Return
End Function GetFileN