批量读取多个站点的TXT文件（一个站一个txt文件），文件内为几十年的降水资料，且....

月满西楼

四叶草 发表于 2015-1-1 17:24
每个站都不一样，那我的方法就不适合了。不过你还是可以自己慢慢研究下，这样收获会更多。祝你成功。

还是很谢谢你。。。要是我成功了，就分享出来

四叶草

月满西楼 发表于 2015-1-1 18:03
还是很谢谢你。。。要是我成功了，就分享出来

下班回来看了下书，我觉得你的问题可以通过
'do  while(.not.eof(unit))  
…………
enddo'
语句来实现，至于循环里面的控制语句就得自己捣腾一下子了

月满西楼

四叶草 发表于 2015-1-1 21:40
下班回来看了下书，我觉得你的问题可以通过
'do  while(.not.eof(unit))  
…………

谢谢你。。。用指针弄出来了
do t=1,num
n=1
10 open(102,file='E:\BY\CHINA\NW\'//trim(idmingzi(t))//'.txt')  
open(103,file='E:\BY\result_DJ\'//trim(idmingzi(t))//'.txt')
do j=1,m
  read (102,*,end=100) id(j),year(j),mon(j),day(j),tav(j),rhav(j),h(j),tg(j),tgg(j),tg1(j),tg2(j)
  n=n+1
enddo
100 continue
  循环部分
rewind(10)

月满西楼

言深深 发表于 2015-1-1 17:38
fortran可以读取每一个文件的行数目，论坛有这样的程序。我粘贴在下面吧，其他的工作请自己思考：

谢谢大神。。。在你的提醒下，终于倒腾出来了。。。

言深深

月满西楼 发表于 2015-1-2 11:33
谢谢大神。。。在你的提醒下，终于倒腾出来了。。。

好！

四叶草

月满西楼 发表于 2015-1-2 11:32
谢谢你。。。用指针弄出来了
do t=1,num
n=1

恭喜恭喜！

秋/mn

厉害{:5_275:}

acxc4343

学习一下！！

vivianal

月满西楼 发表于 2015-1-2 11:33
谢谢大神。。。在你的提醒下，终于倒腾出来了。。。

谢谢楼主分享！！！

flowers940815

学习学习~