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

珊瑚虫

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

珊瑚虫

[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