如何连续读取多个文件里的数据来计算公式

283679566

一共有137个文件，并且已经生成了一个list文件。如下：
GRGS_2002213-2002243_anomaly
GRGS_2002244-2002273_anomaly
GRGS_2002274-2002304_anomaly
GRGS_2002305-2002334_anomaly
GRGS_2002335-2002365_anomaly
GRGS_2003001-2003031_anomaly
GRGS_2003032-2003059_anomaly
GRGS_2003060-2003090_anomaly
GRGS_2003091-2003120_anomaly
GRGS_2003121-2003151_anomaly
GRGS_2003182-2003212_anomaly
GRGS_2003213-2003243_anomaly
GRGS_2003244-2003273_anomaly
GRGS_2003274-2003304_anomaly
GRGS_2003305-2003334_anomaly
GRGS_2003335-2003365_anomaly
GRGS_2004001-2004031_anomaly
GRGS_2004032-2004060_anomaly
在程序里打开这个list文件：
open(unit=8,file=gracefile,status='old')
然后如和读取list里面的文件名就不知道了
求教

wheelar

character(len=100) :: strFileName
integer :: intIO
open(11,file='filelist',status='old')
do i=1,137
    read(11,*,iostat=intIO) strFileName
    if(intIO/=0) exit
    open(unit=13,file=strFileName,status='old')
    ......
    close(unit=13)
enddo

我不's玩具

list是否在txt里，然后用一个dos命令生成路径txt用for定义一个字符数组open打开此txt，顺序读取即可

283679566

我不's玩具 发表于 2015-5-11 21:03
list是否在txt里，然后用一个dos命令生成路径txt用for定义一个字符数组open打开此txt，顺序读取即可

在一个txt里面，我不知道怎么算是顺序读取。。。。用循环do吗
do i=1,137
  read(9,*) gracefile(i)

end do
这样子算我读到了文件吗，因为这样我感觉自己读的只是文件的名字，而不是list里面的原文件。。。

283679566

wheelar 发表于 2015-5-11 21:27
character(len=100) :: strFileName
integer :: intIO
open(11,file='filelist',status='old')

谢谢，这样子文件是往下读的。我想请教一下，这个open（unit=13.file=strFileName，status=‘old’）就是在提取list里面的文件吗？

wheelar

open(11,file='filelist',status='old')是读取含有137个文件名的文件，把每个文件名放入strFileName变量
，open（unit=13，file=strFileName，status=‘old’）就是读取GRGS_2002213-2002243_anomaly等137个文件里面的数据了

283679566

wheelar 发表于 2015-5-11 21:55
open(11,file='filelist',status='old')是读取含有137个文件名的文件，把每个文件名放入strFileName变量
...

非常感谢！

言深深

写法不对
open(unit=13,file=trim(strFileName)//".txt",status='old')
这是根据你说的，我添加了后缀名。务必看一下你的文件， 有没有后缀名（如果不显示的情况，需要将后缀名显示出来再看。）

nbkiss4y

学习一下看看

nbkiss4y

虽然我也不是很懂