| 查看: 6369 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
yingmo01木虫 (小有名气)
|
[求助]
Fortran如何建立文件夹并在文件夹中写入文件？ 已有1人参与
|
||
|
我想在Fortran程序中实现以下几个步骤 （1）建立 [文件夹1], [文件夹2]，[文件夹3] （2）在 [文件夹1], [文件夹2]，[文件夹3]中分别写入2000 个文件，这些文件的格式相同，只是存储的名称不同，比如fort.22到fort.2022 这样既便于存储，又可以防止文件混淆。 跪求大神指点！！！！ |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于FORTRAN程序输出结果如何建立实体模型
已经有4人回复
- ABAQUAS二次开发，如何入手啊？？？
已经有9人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- 【转帖】强烈推荐使用phonopy计算声子谱
已经有44人回复
- 【分享】TableCurve 2D/3D注册码
已经有38人回复
问天阁
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 5173.8
- 红花: 5
- 帖子: 577
- 在线: 434小时
- 虫号: 1198420
- 注册: 2011-01-31
- 性别: GG
- 专业: 物理无机化学
6楼2016-12-24 07:00:20
Noch
金虫 (著名写手)
壮士
- 应助: 25 (小学生)
- 金币: 3295.4
- 散金: 351
- 红花: 14
- 帖子: 1120
- 在线: 237.9小时
- 虫号: 2906291
- 注册: 2013-12-31
- 性别: GG
- 专业: 机械结构强度学
2楼2016-12-23 08:46:22
1014511134
专家顾问 (正式写手)
-
专家经验: +82 - 应助: 102 (高中生)
- 金币: 5098.7
- 散金: 20
- 红花: 16
- 帖子: 424
- 在线: 182.4小时
- 虫号: 3220970
- 注册: 2014-05-20
- 性别: GG
- 专业: 应用地球物理学
- 管辖: 程序语言
3楼2016-12-23 09:57:11
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17670.7
- 红花: 10
- 帖子: 2108
- 在线: 175.6小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
yingmo01: 金币+30, ★★★★★最佳答案 2016-12-24 09:07:26
感谢参与，应助指数 +1
yingmo01: 金币+30, ★★★★★最佳答案 2016-12-24 09:07:26
|
program creat_doc use ifport implicit none integer i,j,k character( len=56 ) temp,name,temp1 integer istatus1,istatus2,istatus3,istatus4,istatus5 name='storage' istatus1=system( "Md "//trim( name ) ) !建立文件夹 istatus2=CHDIR( trim( name ) ) !定位文件夹 k=0 do i=1,3 !//文件夹有多少个，可自行修改（这里的文件夹有3个） write( temp,* ) i temp=adjustl( temp ) !//左对齐，因为默认i是右对齐的 istatus3=system( "Md "//trim( temp ) ) !在此路径上再建一层文件夹 istatus4=CHDIR(trim(temp)) !//定位到新一层的文件夹 do j=1+k,10+k !fort文件有多少个（这里是1个文件夹里存10个，名称分别叫fort1,fort2……fort10） write( temp1,* ) j open( 11+j,file='fort'//adjustl ( trim ( temp1 ) ) ) !//写入你想要的文件名 close( 11+j ) end do k=k+10 istatus5=CHDIR( ".." ) !//退出本层目录 end do end program creat_doc 相关说明已经写在注释中了。我是在IVF+VS编译器上，windows7系统上运行是没问题的，不知道LZ是什么操作系统，用的是什么编译器？希望下次说明一下。 |
4楼2016-12-23 20:11:40
10