fortran读取大小未知数据

叩容 · 发表于 2013-12-18 16:17:22

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由叩容于 2013-12-18 18:44 编辑

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

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

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

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

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

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

錯莂牸 · 发表于 2013-12-18 17:05:22

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 · 发表于 2013-12-18 18:10:22

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

ningking1986 · 发表于 2013-12-18 18:49:25

这个不错，多谢分享！

飑线 · 发表于 2014-8-25 15:44:16

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

jiuyuefeng · 发表于 2014-9-20 10:37:12

试用了一下可以

grace639 · 发表于 2015-4-21 14:45:44

又长知识了，赞

天雷的小猫 · 发表于 2015-4-22 08:36:23

好东西，学习了。

天雷的小猫 · 发表于 2015-4-22 08:36:35

好东西，学习了。

hare · 发表于 2015-4-29 13:13:18

谢谢啊，谢谢分享

		自动登录	找回密码
密码			立即注册

[经验总结] fortran读取大小未知数据

登录后查看更多精彩内容~

评分