Fortran Coder

标题: Fortran批量打开txt文件时不成功 [打印本页]
作者: 笨蛋哈哈    时间: 2014-12-2 21:15
标题: 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

Console2.f90

1.6 KB, 下载次数: 2

代码文件
作者: 珊瑚虫    时间: 2014-12-2 21:56
请写清楚程序在运行时报的什么错误，
另外建议你的管道100在主程序的101 102 一起打开，这样每一次是否正确都能记录下来
按照的的意思，你的23个文件应该是已经存在的文件，还是你要建立的文件 如果是要建立的文件，就把,status='old' 去掉
作者: fcode    时间: 2014-12-2 22:02
num=1 放到 do 循环前面，而不是里面。
作者: 笨蛋哈哈    时间: 2014-12-2 22:09
珊瑚虫 发表于 2014-12-2 21:56
请写清楚程序在运行时报的什么错误，
另外建议你的管道100在主程序的101 102 一起打开，这样每一次是否正确 ...

23个文件是存在的，但是循环23次后result.txt只记录了一结果，
作者: 笨蛋哈哈    时间: 2014-12-2 22:11
fcode 发表于 2014-12-2 22:02
num=1 放到 do 循环前面，而不是里面。

嗯嗯，拿出去就是记录循环23次了，但是result.txt只记录了 successed to open670420071124082.txt，这是最后一个文件的文件名，怎么才能全部记录下来？
作者: 笨蛋哈哈    时间: 2014-12-2 22:17
还有，谢谢帮忙改发帖格式的论坛管理员们
作者: 珊瑚虫    时间: 2014-12-2 22:18
[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    时间: 2014-12-2 22:20
把
open (unit=100,file="result.txt",status='old',action='readwrite')
放到主程序 Open(101) 一起

把
close(100,status='keep')
放到主程序 write(102,*)num 后面
作者: 笨蛋哈哈    时间: 2014-12-2 22:25
笨蛋哈哈 发表于 2014-12-2 22:11
嗯嗯，拿出去就是记录循环23次了，但是result.txt只记录了 successed to open670420071124082.txt，这是 ...

我找到原因了，不要把result.txt那个文档关闭就行了
作者: 笨蛋哈哈    时间: 2014-12-2 23:33
珊瑚虫 发表于 2014-12-2 22:18
[mw_shl_code=fortran,true]program main
implicit none
integer::list,inputn                   !do 循 ...

嗯嗯，谢谢啦程序终于对了
作者: 笨蛋哈哈    时间: 2014-12-2 23:34
珊瑚虫 发表于 2014-12-2 22:18
[mw_shl_code=fortran,true]program main
implicit none
integer::list,inputn                   !do 循 ...

嗯嗯，谢谢啦程序终于对了
作者: 笨蛋哈哈    时间: 2014-12-2 23:36
fcode 发表于 2014-12-2 22:20
把
open (unit=100,file="result.txt",status='old',action='readwrite')
放到主程序 Open(101) 一起

嗯，你是论坛管理吗，看着名字像，谢谢指教，问题解决了
作者: fcode    时间: 2014-12-3 08:23
是的，我是管理。欢迎~~



欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2