论坛 › Fortran语法讨论 › 在文件夹里建新的文件夹，在新的文件夹里写入数据

lumlngz 发表于 2023-9-19 18:38:38

在文件夹里建新的文件夹，在新的文件夹里写入数据

write(dirname_1,'("total")')
          write(dirname,'("part")')
          write(filename,'(A2,".txt")')name
          call system("mkdir "//dirname_1)
          call system("mkdir "//dirname)
          open(30,
   &    file=trim(dirname_1)//'/'//trim(dirname)//'/'//filename)
      do i=0,numr
          radius=i*dr
          write(30,'(5f15.6)') radius,b,c,d,e
      enddo

lumlngz 发表于 2023-9-19 18:39:29

我看过另外一种方法比较麻烦，可以用call system 的方法实现这种操作吗

lumlngz 发表于 2023-9-19 18:40:33

希望各位老师赐教感谢感谢

fcode 发表于 2023-9-19 18:45:53

你现在这种方式有啥问题吗？

lumlngz 发表于 2023-9-19 19:25:21

本帖最后由 lumlngz 于 2023-9-19 19:27 编辑

有老师解答嘛

lumlngz 发表于 2023-9-19 19:26:47

fcode 发表于 2023-9-19 18:45
你现在这种方式有啥问题吗？

有问题，就是新建的part文件夹没有在total文件夹里出现，只有一个文件夹

fcode 发表于 2023-9-20 10:00:02

write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"
更直观，运行也更快

dirname_1 = "total"
dirname= "part"
filename = trim(name)//'.txt'
call system("mkdir "//dirname_1)
call system("mkdir "//trim(dirname_1)//'/'//dirname)
open(30,file=trim(dirname_1)//'/'//trim(dirname)//'/'//filename)
      do i=0,numr
          radius=i*dr
          write(30,'(5f15.6)') radius,b,c,d,e
      enddo
end

lumlngz 发表于 2023-9-27 17:24:39

fcode 发表于 2023-9-20 10:00
write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"


好的捏谢谢版主

lumlngz 发表于 2023-10-29 21:42:37

fcode 发表于 2023-9-20 10:00
write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"


版主我又用您方法试了怎么显示命令语法错误捏

fcode 发表于 2023-10-30 10:07:37

lumlngz 发表于 2023-10-29 21:42
版主我又用您方法试了怎么显示命令语法错误捏

上代码，截图

查看完整版本: 在文件夹里建新的文件夹，在新的文件夹里写入数据