[已解决]Fortran同时打开多个文本文件出错

shirly

我要同时打开12个文件，用下面的命令：
program minqingimplicit none
integer  fcharacter(len=50)::filename

do f=1,12
write(filename,'("d:\shirly\dat\mingqing\","A52681-2011",i2.2,".txt")')f
write（*,*）f
write(*,*)filename
open(1,file=trim(filename),form='formatted',status='old')
end do
end

前三行可以运行，可以写出文件名：d:\shirly\dat\mingqing\A52681-201101.txt，但open出错如下：

forrt1:severe<29>:file not found,unit 1,file d:\shirly\dat\mingqing\A52681-201101.txt
Image                     Pc                    Routine             Line            Sourse
mingqing.exe          00408BD9       Unknown         unknown      unknown

Incrementally linked image--PC correlation disabled
Press any key to continue

希望高手可以帮忙解决一下~不胜感激！

topmad

open（1.......）  你的文件号已经给了第一个文件，如果不关闭，是无法进行下面的循环，结束操作后 close一下

shirly

topmad 发表于 2013-8-29 10:00

                               
登录/注册后可看大图

open（1.......）  你的文件号已经给了第一个文件，如果不关闭，是无法进行下面的循环，结束操作后 close一 ...

首先十分感谢你的回复！
我刚加了close（1）还是那样，源文件是在的啊~

xo2001

file not found ，再次确认下路径，文件名，文件名中是否有空格。还有你同时打开多个文件，需要不同的通道号。如果依次打开就没事。

shirly

xo2001 发表于 2013-8-29 10:24

                               
登录/注册后可看大图

file not found ，再次确认下路径，文件名，文件名中是否有空格。还有你同时打开多个文件，需要不同的通道号 ...

感谢回复~！
路径没错，我单独地能打开。
这是循环打开文件，相当于依次打开的。不知道哪里出错了~{:2_34:}

冬日情愫+

提示的错误是没有找到文件 ，我觉得问题可能出在路径上，可能存在空格吧，
建议试试 '("d:\shirly\dat\mingqing\A52681-2011"//,i2.2,//".txt")'f

file=trim(adjustl(filename))

shirly

冬日情愫+ 发表于 2013-8-29 10:43

                               
登录/注册后可看大图

提示的错误是没有找到文件 ，我觉得问题可能出在路径上，可能存在空格吧，
建议试试 '("d:\shirly\dat\min ...

感谢回复~！^^
这样改了也出错：
forrt1: sever<27>:too many records in I/O statement, unit -5,file internal Formatted Write

LOSER

没看懂你的第一个write语句里的i2.2是啥意思

shirly

topmad 发表于 2013-8-29 10:00

                               
登录/注册后可看大图

open（1.......）  你的文件号已经给了第一个文件，如果不关闭，是无法进行下面的循环，结束操作后 close一 ...

首先，对我的疏忽说抱歉，是路径错误，多了一个g，非常感谢回复过的大侠~上面大侠的建议都是对的，我写的程序也是对的，要学的同学们可以参考哦~

LOSER

一觉起来，想了下，懂了i2.2了，又学了一招~嘿