| 查看: 6545 | 回复: 7 | |||
yingmo01木虫 (小有名气)
|
[求助]
Fortran如何建立文件夹并在文件夹中写入文件？ 已有1人参与
|
|
我想在Fortran程序中实现以下几个步骤 （1）建立 [文件夹1], [文件夹2]，[文件夹3] （2）在 [文件夹1], [文件夹2]，[文件夹3]中分别写入2000 个文件，这些文件的格式相同，只是存储的名称不同，比如fort.22到fort.2022 这样既便于存储，又可以防止文件混淆。 跪求大神指点！！！！ |
回复此楼» 猜你喜欢
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子
已经有15人回复
-
面上的水很深
已经有18人回复
-
国社科通讯评审
已经有5人回复
-
5个%2F，非固定段22个字母
已经有9人回复
-
生命口C13面上会评时间
已经有11人回复
-
内心匮乏
已经有16人回复
-
生命口面上会评结束了吗大家有知道结果吗？现在还没有结果正常不？
已经有9人回复
-
投英文期刊如何查重
已经有6人回复
-
不要再数国自然申请书的 filecode 的分隔符个数了
已经有21人回复
-
伯胺上甲基求助
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于FORTRAN程序输出结果如何建立实体模型
已经有4人回复
- ABAQUAS二次开发，如何入手啊？？？
已经有9人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- 【转帖】强烈推荐使用phonopy计算声子谱
已经有44人回复
- 【分享】TableCurve 2D/3D注册码
已经有38人回复
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 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 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
yingmo01
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1516.2
- 散金: 11
- 红花: 1
- 帖子: 272
- 在线: 53.3小时
- 虫号: 3201080
- 注册: 2014-05-12
- 专业: 内流流体力学
5楼2016-12-23 22:42:05
问天阁
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 5173.8
- 红花: 5
- 帖子: 577
- 在线: 434小时
- 虫号: 1198420
- 注册: 2011-01-31
- 性别: GG
- 专业: 物理无机化学
6楼2016-12-24 07:00:20
7楼2016-12-24 07:23:41
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
|
(1)system代表的是系统内部的命令，这里指的是windows系统在DOS下的命令，CHDIR就是其中的一个命令，比如cd，dir，md这些都是windows系统本身自带的命令，在Fortran中使用system目的就是为了调用这些命令。 (2)默认是在你程序所在的位置建立，如果你想改动路径可以人为添加。 (3)Md在程序注释中已经写了，就是代表建立文件夹的意思。 (4)use ifort是IVF+VS中特有的，目的就是为了调用system模块，相关的资料，你可以看看vs中自带的帮助。 (5)write(temp,*) i，是内部文件（internal file）的写法，具体可参考Fortran的相关书籍都有。你说的没错，就是把i赋值给temp，将i由整型变为字符型，要不然你想做fort1，for2……这些东西的时候，计算机如何知道后面的1,2,3？ (6)屏幕上就是告诉你文件夹已经存在了，其它是不会说的，你看一看你storage文件夹下，那几个东西有没有就行了。 |
8楼2016-12-24 09:06:05
10