Fortran Coder

查看: 2181|回复: 13
打印 上一主题 下一主题

[求助] 在文件夹里建新的文件夹,在新的文件夹里写入数据

[复制链接]

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
跳转到指定楼层
楼主
发表于 2023-9-19 18:38:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
[Fortran] 纯文本查看 复制代码
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

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
沙发
 楼主| 发表于 2023-9-19 18:39:29 | 只看该作者
我看过另外一种方法比较麻烦,可以用call system 的方法实现这种操作吗

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
板凳
 楼主| 发表于 2023-9-19 18:40:33 | 只看该作者
希望各位老师赐教感谢感谢

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

地板
发表于 2023-9-19 18:45:53 | 只看该作者
你现在这种方式有啥问题吗?

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
5#
 楼主| 发表于 2023-9-19 19:25:21 | 只看该作者
本帖最后由 lumlngz 于 2023-9-19 19:27 编辑

有老师解答嘛

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
6#
 楼主| 发表于 2023-9-19 19:26:47 | 只看该作者
fcode 发表于 2023-9-19 18:45
你现在这种方式有啥问题吗?

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

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

7#
发表于 2023-9-20 10:00:02 | 只看该作者
write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"
更直观,运行也更快

[Fortran] 纯文本查看 复制代码
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

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
8#
 楼主| 发表于 2023-9-27 17:24:39 | 只看该作者
fcode 发表于 2023-9-20 10:00
write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"

好的捏谢谢版主

31

帖子

6

主题

0

精华

熟手

F 币
144 元
贡献
68 点
9#
 楼主| 发表于 2023-10-29 21:42:37 | 只看该作者
fcode 发表于 2023-9-20 10:00
write(dirname_1,'("total")')
像这种写法很奇怪。直接写
dirname_1 = "total"

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

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

10#
发表于 2023-10-30 10:07:37 | 只看该作者
lumlngz 发表于 2023-10-29 21:42
版主我又用您方法试了怎么显示命令语法错误捏

上代码,截图
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 21:52

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表