爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 6066|回复: 10

[求助] 使用fortran计算txt格式数据的行数

[复制链接]

新浪微博达人勋

发表于 2013-6-16 20:16:18 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
各位帮帮忙,问个很低级的问题。我有500个测站的日值数据(txt),部分缺测被剔除了。现在想要计算每个txt的行数,应该怎么使用fortran实现?教我一个txt就可以
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 成长值: 0
发表于 2013-6-16 21:27:44 | 显示全部楼层
给你一个@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

新浪微博达人勋

 成长值: 0
发表于 2013-6-16 21:28:10 | 显示全部楼层
给你一个@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

新浪微博达人勋

发表于 2013-6-16 22:25:13 | 显示全部楼层
这个在论坛已经很多了 搜一下就有了  善用搜索功能啊
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2013-6-17 15:33:50 | 显示全部楼层
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-6-17 13:47:17 | 显示全部楼层
楼主呢,出来冒个泡啊,会了么
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-6-17 14:15:15 | 显示全部楼层
个人觉得只要行数,用fortran太麻烦了,直接用脚本吧
cat *.txt | wc -l
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-6-17 10:23:44 | 显示全部楼层
言深深 发表于 2013-6-16 21:28
给你一个@mofangbao写过的程序,论坛有更多的帖子,这里就直接贴上来了

n=0

深深大才!!!!
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-6-17 10:51:15 | 显示全部楼层
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

新浪微博达人勋

0
早起挑战累计收入
发表于 2013-6-17 08:55:29 | 显示全部楼层
言深深 发表于 2013-6-16 21:28
给你一个@mofangbao写过的程序,论坛有更多的帖子,这里就直接贴上来了

n=0

这...楼主这么问说明看别人的程序太少了,或者都是只满足会用,从来不关心别人怎么写的
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表