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

笨蛋哈哈

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


下面是代码

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

查看代码

打印?

01	program main

02	implicit none

03	integer::list,inputn                   !do 循环计数用的变量

04	character(len=19):: file(23)           !存放文件名的字符型一维数组

05	character(len=19):: file1

06	integer::file_state,num

07	open(101,file = 'filelist.txt',status='old',action='read')

08	open(102,file = 'check.txt',status='old',action='readwrite')

09

10	do list = 1,23                        !将filelist.txt中存储的文件名写入一维数组 file 中

11	read(101,*)file(list)

12

end do

13	write(102,*)file                      !检查filelist.txt中的数据是否读取

14	do inputn=1,23

15	file1=file(inputn)

16

num=1

17	call input(num,file1)          !调用input打开名字为 file(i)的txt文档

18

num=num+1

19

end do

20	write(102,*)num                    !记录循环进行的次数********结果为2，只循环了一次TT

21	end program main

22

23	subroutine input(numb,filename)

24	implicit none

25	character(len=19)::filename

26	integer::file_state,numb

27	open(unit=numb,file =filename ,status='old',action='read',iostat=file_state)

28	open (unit=100,file="result.txt",status='old',action='readwrite')

29	if(file_state/=0)then                                  !检查文件是否正常打开

30	write(100,*)"failed to open",filename

31

else

32	write(100,*)"successed to open",filename

33

end if

34	close(numb,status='keep')

35	close(100,status='keep')

36

return

37	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] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	implicit none

03	integer::list,inputn                   !do 循环计数用的变量

04	character(len=19):: file(23)           !存放文件名的字符型一维数组

05	character(len=19):: file1

06	integer::file_state,num

07	open(101,file = 'filelist.txt',status='old',action='read')

08	open(102,file = 'check.txt',status='old',action='readwrite')

09	open (unit=100,file="result.txt",status='old',action='readwrite')

10	do list = 1,23                        !将filelist.txt中存储的文件名写入一维数组 file 中

11	read(101,*)file(list)

12

end do

13	write(102,*)file                      !检查filelist.txt中的数据是否读取

14

num=1

15	do inputn=1,23

16	file1=file(inputn)

17	call input(num,file1)          !调用input打开名字为 file(i)的txt文档

18

num=num+1

19

end do

20	write(102,*)num                    !记录循环进行的次数********结果为2，只循环了一次TT

21	close(100,status='keep')

22	end program main

23

24	subroutine input(numb,filename)

25	implicit none

26	character(len=19)::filename

27	integer::file_state,numb

28	open(unit=numb,file =filename ,status='old',action='read',iostat=file_state)

29

30	if(file_state/=0)then                                  !检查文件是否正常打开

31	write(100,*)"failed to open",filename

32

else

33	write(100,*)"successed to open",filename

34

end if

35	close(numb,status='keep')

36

return

37	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 循 ...

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