1000 发表于 2020-6-7 12:43:04

怎么在相应文件夹里创建相应文件！！！？？？？

作业要求实在每一个文件夹里创建一个文件，譬如1940s文件夹里创建一个名为1940.dat的文本文件。但我的代码执行下来，文件并不在文件夹里。代码和运行结果如下。
求大神帮忙！！！

li913 发表于 2020-6-7 13:08:37

open(s,file=dirname// '\' // filename)

1000 发表于 2020-6-7 13:19:28

li913 发表于 2020-6-7 13:08
open(s,file=dirname// '\' // filename)
结果变成这样了

fcode 发表于 2020-6-7 13:55:38

给出你的代码

1000 发表于 2020-6-7 16:04:35

fcode 发表于 2020-6-7 13:55
给出你的代码
是这样的

necrohan 发表于 2020-6-7 16:25:27

本帖最后由 necrohan 于 2020-6-7 16:32 编辑

建议给文本的代码，不要用图片
open那句用 trim(dirname) 试试

1000 发表于 2020-6-7 20:08:10

necrohan 发表于 2020-6-7 16:25
建议给文本的代码，不要用图片
open那句用 trim(dirname) 试试program main
implicit none
integer::i,s=1940
character(len=5)::dirname
character(len=8)::filename
real::a
open(10,file='TI.dat',form='unformatted',access='direct',recl=48)
do i=1,66
read(10,rec=i)a
write(dirname,'(i4,"s")')s
write(filename,'(i4,".dat")')s
call system("mkdir "//dirname)
open(s,file=trim(dirname)//'\'//filename,form='unformatted',access='direct',recl=48)
write(s,rec=i)a
close(s)
s=s+1
enddo
endprogram
好哒 但结果还是不行 文件没法建立在相应的文件夹下

青衣巷 发表于 2020-6-8 08:08:21

open(s,file=trim(dirname)//'/'//filename,form='unformatted',access='direct',recl=48)

1000 发表于 2020-6-8 20:37:15

青衣巷 发表于 2020-6-8 08:08
open(s,file=trim(dirname)//'/'//filename,form='unformatted',access='direct',recl=48)

哇塞！！！ 感谢！！！！！

lumlngz 发表于 2023-4-23 16:42:29

1000 发表于 2020-6-8 20:37
哇塞！！！ 感谢！！！！！

你好，我用了这一段代码试了一下发现不行，是因为TI.dat里面有数据嘛？
页: [1] 2
查看完整版本: 怎么在相应文件夹里创建相应文件！！！？？？？