Fortran批量打开txt文件时不成功

笨蛋哈哈

由于项目需要需要用到fortran做一个简单的计算，恶补Fortran后计算部分程序写好了，就等着批量打开文件计算了
但是已经卡在这里两天了，希望有人伸出援助之手，


下面是代码

[Fortran] 纯文本查看 复制代码

program main
 implicit none
 integer::list,inputn                   !do 循环计数用的变量
character(len=19):: file(23)           !存放文件名的字符型一维数组
character(len=19):: file1
 integer::file_state,num
 open(101,file = 'filelist.txt',status='old',action='read')
 open(102,file = 'check.txt',status='old',action='readwrite')

 do list = 1,23                        !将filelist.txt中存储的文件名写入一维数组 file 中 
read(101,*)file(list)
 end do
 write(102,*)file                      !检查filelist.txt中的数据是否读取
do inputn=1,23
     file1=file(inputn)
     num=1
     call input(num,file1)          !调用input打开名字为 file(i)的txt文档
num=num+1
 end do
 write(102,*)num                    !记录循环进行的次数********结果为2，只循环了一次TT
 end program main

 subroutine input(numb,filename)
 implicit none
 character(len=19)::filename
 integer::file_state,numb
 open(unit=numb,file =filename ,status='old',action='read',iostat=file_state)
 open (unit=100,file="result.txt",status='old',action='readwrite')
 if(file_state/=0)then                                  !检查文件是否正常打开
write(100,*)"failed to open",filename
     else
        write(100,*)"successed to open",filename
     end if
 close(numb,status='keep')
 close(100,status='keep')
    return
 end subroutine input

珊瑚虫

请写清楚程序在运行时报的什么错误，
另外建议你的管道100在主程序的101 102 一起打开，这样每一次是否正确都能记录下来
按照的的意思，你的23个文件应该是已经存在的文件，还是你要建立的文件 如果是要建立的文件，就把,status='old' 去掉

fcode

num=1 放到 do 循环前面，而不是里面。

笨蛋哈哈

珊瑚虫 发表于 2014-12-2 21:56
请写清楚程序在运行时报的什么错误，
另外建议你的管道100在主程序的101 102 一起打开，这样每一次是否正确 ...

23个文件是存在的，但是循环23次后result.txt只记录了一结果，

笨蛋哈哈

fcode 发表于 2014-12-2 22:02
num=1 放到 do 循环前面，而不是里面。

嗯嗯，拿出去就是记录循环23次了，但是result.txt只记录了 successed to open670420071124082.txt，这是最后一个文件的文件名，怎么才能全部记录下来？

笨蛋哈哈

还有，谢谢帮忙改发帖格式的论坛管理员们

珊瑚虫

[Fortran] 纯文本查看 复制代码

program main
 implicit none
 integer::list,inputn                   !do 循环计数用的变量
character(len=19):: file(23)           !存放文件名的字符型一维数组
character(len=19):: file1
 integer::file_state,num
 open(101,file = 'filelist.txt',status='old',action='read')
 open(102,file = 'check.txt',status='old',action='readwrite')
  open (unit=100,file="result.txt",status='old',action='readwrite')
 do list = 1,23                        !将filelist.txt中存储的文件名写入一维数组 file 中 
read(101,*)file(list)
 end do
 write(102,*)file                      !检查filelist.txt中的数据是否读取
      num=1
do inputn=1,23
     file1=file(inputn)
     call input(num,file1)          !调用input打开名字为 file(i)的txt文档
     num=num+1
 end do
 write(102,*)num                    !记录循环进行的次数********结果为2，只循环了一次TT
 close(100,status='keep')
 end program main

 subroutine input(numb,filename)
 implicit none
 character(len=19)::filename
 integer::file_state,numb
 open(unit=numb,file =filename ,status='old',action='read',iostat=file_state)

 if(file_state/=0)then                                  !检查文件是否正常打开
write(100,*)"failed to open",filename
     else
        write(100,*)"successed to open",filename
     end if
 close(numb,status='keep')
    return
 end subroutine input

fcode

把
open (unit=100,file="result.txt",status='old',action='readwrite')
放到主程序 Open(101) 一起

把
close(100,status='keep')
放到主程序 write(102,*)num 后面

笨蛋哈哈

笨蛋哈哈 发表于 2014-12-2 22:11
嗯嗯，拿出去就是记录循环23次了，但是result.txt只记录了 successed to open670420071124082.txt，这是 ...

我找到原因了，不要把result.txt那个文档关闭就行了

笨蛋哈哈

珊瑚虫 发表于 2014-12-2 22:18
[mw_shl_code=fortran,true]program main
implicit none
integer::list,inputn                   !do 循 ...

嗯嗯，谢谢啦程序终于对了