求一个批量读取的代码

wutongyu

有一年的数据，365天的，格式很整齐，第一天的格式名为CODG0010.95I，第二天的为CODG0020.95I，依次类推，现如今要从这每一天的文件中读取一个数据，在写入到一个新的文件中，求大神帮忙。比如，从第三十一行中读取第二列的一个数据，写入到一个名称为1995.txt的文件中。跪求啊 ！！！

topmad

这用循环就行了，每次循环打开一个文件，独到数组里面，然后在数组里面控制，把要挑出来的数据写到新的文件里面，循环365次就行了

wutongyu

topmad 发表于 2012-10-27 10:07

                               
登录/注册后可看大图

这用循环就行了，每次循环打开一个文件，独到数组里面，然后在数组里面控制，把要挑出来的数据写到新的文件 ...

不知道怎么挑出第三十一行第二个数据呢，我不会直接读取啊

topmad

从第一行开始读起  都读进数组  假如有100行10列  那你第31行第二列就是 数组（31,2）

mofangbao

有点懒，自己学一下不就行了~

wutongyu

mofangbao 发表于 2012-10-27 11:05

                               
登录/注册后可看大图

有点懒，自己学一下不就行了~

学了好久就是没弄明白。。。

mofangbao

老五已经把思路说了，你按照这个思路做一下，要是过程遇到问题再回帖讨论啊

言深深

楼上说的有道理，但是基于你的程序基础初步估计凭这些提示难以编写出来程序，另外不知道是你说的不对还是我没有理解到位，你需要的数据时31行以后的所有第二列数据还是只有第31行第二个数据？？下面就第二种理解提供解决方案：
1，单个文件处理：你的文件前面三十行是不是不需要处理，如果这样的话可以用下面的程序尝试：
character*20,a
open(1,file="finename")
do i=1,30
read(1,*)a
enddo
read(1,*) xnull,x
close(1)
print*,x
end
整个程序就这么长，不需要添加任何别的东西，运行出来的结果就是屏幕输出，第30行第二个数
2.对于文件批处理，有很多解决方案，其中@mofangbaohttp://bbs.06climate.com/forum.php?mod=viewthread&tid=3079给出了很好的解决方案，简单总结有如下方法：
1）将所有文件的文件名称放到一个文本文件里面，fortran从中读取所需文件名称，方便以后操作。这一步仁者见仁智者见智，cmd的，fortran或者excel都能解决的；
2）直接在程序中生成文件名称，主要使用trim进行拼接，有些难度，给出一段程序代码：
character*8 name(365)
do i=1,9
write(name(i),"(i1)") i
enddo
do i=10,99
write(name(i),"(i2)") i
enddo
do i=10,99
write(name(i),"(i3)") i
enddo
do i=1,9
open(1,file="CODG00"//trim(name(i))//"0.95I")
print*,"CODG00"//trim(name(i))//"0.95I"
close(1)
enddo
end
差不多了吧，注意上面open的时候我只写到9，剩下的自己思考解决吧

mofangbao

言深深 发表于 2012-10-27 16:48

                               
登录/注册后可看大图

楼上说的有道理，但是基于你的程序基础初步估计凭这些提示难以编写出来程序，另外不知道是你说的不对还是我 ...

这种程序就是最基础的了，你可以让他自己写的，给思路就行，他写的过程中有问题再问就是了，我是没你有耐心还给写出来了

言深深

mofangbao 发表于 2012-10-27 18:24

                               
登录/注册后可看大图

这种程序就是最基础的了，你可以让他自己写的，给思路就行，他写的过程中有问题再问就是了，我是没你有耐 ...

写一些例子，以后收集放在“fortran学习笔记”里面用