怎样在fortran中实现连续新建多个连续的txt文件！求大神解答

wangmeng

怎样在fortran中实现连续新建多个连续的txt文件！求大神解答

例如：

open(1,file='1.txt',status='unknown')
open(2,file='2.txt',status='unknown')
open(3,file='3.txt',status='unknown')
open(4,file='4.txt',status='unknown')
open(5,file='5.txt',status='unknown')
。。。。。。。。。。。。。。。

南宫朱雀

可以用循环，例如
do k=1,n
open(k,file='d:\...\'//trim(adjustl(k))//'.txt',status='...')
enddo

可以参考一下这篇帖子
http://blog.sina.com.cn/s/blog_6221146d0100h9db.html

wangmeng

character*8 stu
real var1,var2
character( len = 2 ) :: u
INTEGER year,mon,day

do k=1,142
open(k,file='d:\wm\'//trim(adjustl(u))//'.txt',status='new')
enddo
这是我修改之后的，可运行有错误！！

lqouc

wangmeng 发表于 2013-10-11 18:26

                               
登录/注册后可看大图

character*8 stu
real var1,var2
character( len = 2 ) :: u

你好歹把文件名也循环了吧，用不同的设备打开一个文件肯定不行啊，而且看看你的u的长度合适么？

南宫朱雀

wangmeng 发表于 2013-10-11 18:26

                               
登录/注册后可看大图

character*8 stu
real var1,var2
character( len = 2 ) :: u

你的u其实并没有参与循环，这里循环变量是k，
可以直接把你的adjustl(u)换成adjustl(k)试试，一般来说文件号，和你输出的有规律的文件名是要参与循环的

南宫朱雀

或者这样，先单独建一个存文件号数字的文档，如果有20个站，存的内容就是
1
2
...
20
然后读取它，定义一个字符数组，用于存储这个文档中的文件号，之后在结合前面的循环和trim命令就可以了，例如：

character*2 u(20)
open(100,file='f:\1\file name number.txt')
do k=1,20
read(100,*)u(k)
enddo
close(100)

do k=1,20
open(k,file='f:\1\'//trim(u(k))//'.txt')
write(k,*)k
close(k)
enddo
end
我试过，这个方法可行

阿筛要努力

记下来，学习了！！

1530718856

好好好啊啊啊啊

伊峰

循环文件名！！！