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

1000

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

li913

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

1000

li913 发表于 2020-6-7 13:08
open(s,file=dirname// '\' // filename)

结果变成这样了

fcode

给出你的代码

1000

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

是这样的

necrohan

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

1000

necrohan 发表于 2020-6-7 16:25
建议给文本的代码，不要用图片
open那句用 trim(dirname) 试试

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

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

好哒 但结果还是不行 文件没法建立在相应的文件夹下

青衣巷

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

1000

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

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

lumlngz

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

你好，我用了这一段代码试了一下发现不行，是因为TI.dat里面有数据嘛？