使用fortran计算txt格式数据的行数

胖胖

各位帮帮忙，问个很低级的问题。我有500个测站的日值数据（txt），部分缺测被剔除了。现在想要计算每个txt的行数，应该怎么使用fortran实现？教我一个txt就可以

言深深

给你一个@mofangbao写过的程序，论坛有更多的帖子，这里就直接贴上来了

n=0
10        open(10,file='mofangbao.txt')

        do while (.true.)
        read(10,*,end=100) line
        n=n+1
        enddo
        100 continue
close(10)

print*,"数据行数：",n

end

言深深

给你一个@mofangbao写过的程序，论坛有更多的帖子，这里就直接贴上来了

n=0
10        open(10,file='mofangbao.txt')

        do while (.true.)
        read(10,*,end=100) line
        n=n+1
        enddo
        100 continue
close(10)

print*,"数据行数：",n

end

topmad

这个在论坛已经很多了 搜一下就有了  善用搜索功能啊

胖胖

mofangbao 发表于 2013-6-17 08:55

                               
登录/注册后可看大图

这...楼主这么问说明看别人的程序太少了,或者都是只满足会用,从来不关心别人怎么写的

确实看得不多，以后多多学习。

nuister

楼主呢，出来冒个泡啊，会了么

infocert

个人觉得只要行数，用fortran太麻烦了，直接用脚本吧
cat *.txt | wc -l

kongfeng0824

言深深 发表于 2013-6-16 21:28

                               
登录/注册后可看大图

给你一个@mofangbao写过的程序，论坛有更多的帖子，这里就直接贴上来了

n=0

深深大才！！！！

平流层的萝卜

read(11,*)
n=1
do while(1)
read(11,*,iostat=status)
if(status<0) then
exit
else
n=n+1
endif
enddo
print*,"行数“,n

mofangbao

言深深 发表于 2013-6-16 21:28

                               
登录/注册后可看大图

给你一个@mofangbao写过的程序，论坛有更多的帖子，这里就直接贴上来了

n=0

这...楼主这么问说明看别人的程序太少了,或者都是只满足会用,从来不关心别人怎么写的