fortran读取大小未知数据

叩容

我是读取站点数据遇到这个问题的。
有几百个文件，每个文件因为站点数不固定（检查剔除站点的技巧，此处不涉及），导致了文件的行数不一致。
现在的问题是怎样读取不确定大小的数据呢？

（如果只有1个文件我当然可以打开看一眼有几行再设置程序。但是如果有几百个，手动操作很不现实。）
所以我在百度上搜到了这个小技巧，顺便分享给大家。

1. Program Main
   
2.         Implicit None
   
3.         integer n
   
4.         integer :: GetFileN
   
5.         Open( 12 , File = 'a.txt' )
   
6.         n = GetFileN( 12 )
   
7.         Write( * , * ) '共有',n,'行！'
   
8.         Close( 12 )
   
9. End Program Main  
   
10. 
    
11. Integer Function GetFileN( iFileUnit )
    
12.     Implicit None
    
13.     Integer , Intent( IN ) :: iFileUnit
    
14.     Integer :: ioS
    
15.     Character(Len=1) :: cDummy
    
16.     GetFileN = 0
    
17.     Rewind( iFileUnit )
    
18.     Do
    
19.       Read( iFileUnit , * , ioStat = ioS ) cDummy
    
20.       if ( ioS /= 0 ) Exit
    
21.       GetFileN = GetFileN + 1
    
22.     End Do
    
23.     Rewind( iFileUnit )
    
24.     Return
    
25. End Function GetFileN
    

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

这个Function GetFileN 即可以确定打开的这个文件有多少行，后面的按顺序读取就行了。

原网址：  fortran如何读取文件最后一行数据??


==========================
更新：
topmad童鞋的方法，请点击：
http://bbs.06climate.com/forum.php?mod=viewthread&tid=976

錯莂牸

open(11,
     &file="F:\work5\data
     &\rain24_110807.dat",
     &form="formatted",access="sequential")
           read(11,*)
           do while(.not.eof(11))                
           read(11,*) temp,bb,cc,dd
           nvals1=nvals1+1

         enddo
           write(*,*) nvals1

topmad

读取文件行数的方法好几个  论坛有一个以end=标号 为方法的判断方法  这段代码以ios为依据 也是个好方法

ningking1986

这个不错，多谢分享！

飑线

错别字的编程中 do while（.not.eof(设备号)）
end do
比较 好用

jiuyuefeng

试用了一下可以

grace639

又长知识了，赞

天雷的小猫

好东西，学习了。

天雷的小猫

好东西，学习了。

hare

谢谢啊，谢谢分享