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

lumlngz 发表于 2024-4-5 10:41:37

fcode 发表于 2023-10-30 10:07
上代码，截图

我用的代码就是您上面的那个，但还是出现命令语法错误了

lumlngz 发表于 2024-4-5 10:43:01

fcode 发表于 2023-10-30 10:07
上代码，截图
dirname_1 = "total"
dirname= "part"
filename = trim(model)//'.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,10
      radius=i*0.1
      write(30,'(5f15.6)') radius
enddo

fcode 发表于 2024-4-5 19:47:11

如果你用的 windows 系统的话，用 '\' 代替 '/'
dirname_1 = "total"
dirname= "part"
filename = trim(model)//'.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,10
      radius=i*0.1
      write(30,'(5f15.6)') radius
enddo

lumlngz 发表于 2024-4-8 15:28:25

fcode 发表于 2024-4-5 19:47
如果你用的 windows 系统的话，用 '\' 代替 '/'
dirname_1 = "total"
dirname=...

成功了！谢谢老师

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