necrohan 发表于 2023-4-24 08:42
是，而且有格式要求

okok感谢你呀

lumlngz 发表于 2023-4-23 16:42
你好，我用了这一段代码试了一下发现不行，是因为TI.dat里面有数据嘛？

是，而且有格式要求

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

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

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

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

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

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那句用 trim(dirname) 试试

给出你的代码