Fortran Coder

标题: 怎么在相应文件夹里创建相应文件！！！？？？？ [打印本页]

---

作者: 1000    时间: 2020-6-7 12:43
标题: 怎么在相应文件夹里创建相应文件！！！？？？？
作业要求实在每一个文件夹里创建一个文件，譬如1940s文件夹里创建一个名为1940.dat的文本文件。但我的代码执行下来，文件并不在文件夹里。代码和运行结果如下。
求大神帮忙！！！

---

作者: li913    时间: 2020-6-7 13:08
open(s,file=dirname// '\' // filename)

---

作者: 1000    时间: 2020-6-7 13:19

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

结果变成这样了

---

作者: fcode    时间: 2020-6-7 13:55
给出你的代码

---

作者: 1000    时间: 2020-6-7 16:04

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

是这样的

---

作者: necrohan    时间: 2020-6-7 16:25


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

---

作者: 1000    时间: 2020-6-7 20:08

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

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

---

作者: 青衣巷    时间: 2020-6-8 08:08
open(s,file=trim(dirname)//'/'//filename,form='unformatted',access='direct',recl=48)

---

作者: 1000    时间: 2020-6-8 20:37

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

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

---

作者: lumlngz    时间: 2023-4-23 16:42

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

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

---

作者: necrohan    时间: 2023-4-24 08:42

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

是，而且有格式要求

---

作者: lumlngz    时间: 2023-4-24 15:55

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

okok感谢你呀

---

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)

Powered by Discuz! X3.2