31
6
0
熟手
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
使用道具 举报
臭石头雪球
2033
12
5
论坛跑堂
fcode 发表于 2023-9-19 18:45 你现在这种方式有啥问题吗?
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
fcode 发表于 2023-9-20 10:00 write(dirname_1,'("total")') 像这种写法很奇怪。直接写 dirname_1 = "total"
lumlngz 发表于 2023-10-29 21:42 版主我又用您方法试了怎么显示命令语法错误捏
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-23 17:22
Powered by Tencent X3.4
© 2013-2024 Tencent