应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » Fortran如何建立文件夹并在文件夹中写入文件？
81/1返回列表
查看: 6368  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

yingmo01

木虫 (小有名气)

[求助] Fortran如何建立文件夹并在文件夹中写入文件？ 已有1人参与

我想在Fortran程序中实现以下几个步骤

（1）建立  [文件夹1], [文件夹2]，[文件夹3]
（2）在  [文件夹1], [文件夹2]，[文件夹3]中分别写入2000 个文件，这些文件的格式相同，只是存储的名称不同，比如fort.22到fort.2022
         


         这样既便于存储，又可以防止文件混淆。



         跪求大神指点！！！！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
我
1楼 2016-12-22 22:11:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Noch

金虫 (著名写手)

壮士
出钱悬赏吧！重赏之下必有勇夫

发自小木虫IOS客户端
赞一下 回复此楼
等待就是浪费青春！！！
2楼2016-12-23 08:46:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1014511134

专家顾问 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
看下书，很容易就解决了。。。。
赞一下 回复此楼
3楼2016-12-23 09:57:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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是什么操作系统，用的是什么编译器？希望下次说明一下。
赞一下(2人) 回复此楼
Chemistry
4楼2016-12-23 20:11:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yingmo01

木虫 (小有名气)
引用回帖:
4楼: Originally posted by 7152075 at 2016-12-23 20:11:40
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'
    ist ...

我用的visual studio。这段程序已经能用，只是还想问问
（1）system与CHDIR表示什么呢？
（2）建立文件夹默认的路径是在哪呢？
（3）"Md"表示什么？
（4）use ifort 木块包含哪些东西能不能详细介绍下，或者能够推荐一些参考资料
（5）write( temp,* ) i表示把i赋给temp吗？
（6）屏幕上输出了子目录或文件1已经存在，但是在屏幕上并没有体现，这是怎么回事？还请指点！
赞一下 回复此楼
我
5楼2016-12-23 22:42:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

问天阁

木虫 (正式写手)
帮助文件

发自小木虫Android客户端
回复此楼
6楼2016-12-24 07:00:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

2014092101
。

发自小木虫Android客户端
7楼2016-12-24 07:23:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

【答案】应助回帖

引用回帖:
5楼: Originally posted by yingmo01 at 2016-12-23 22:42:05
我用的visual studio。这段程序已经能用，只是还想问问
（1）system与CHDIR表示什么呢？
（2）建立文件夹默认的路径是在哪呢？
（3）"Md"表示什么？
（4）use ifort 木块包含哪些东西能不能详细介绍 ...

(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文件夹下，那几个东西有没有就行了。
赞一下(3人) 回复此楼
Chemistry
8楼2016-12-24 09:06:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yingmo01 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 11:09 by lqtl9djx19
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:54 by lqtl9djx19
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:39 by lqtl9djx19
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:53 by lqtl9djx19
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:38 by lqtl9djx19
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 07:55 by lotyj5cz79
[基金申请] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:40 by lotyj5cz79
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:38 by lotyj5cz79
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:23 by lotyj5cz79
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:08 by lotyj5cz79
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 3/150 2026-02-18 06:53 by lotyj5cz79
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 00:40 by tk2gfblvuz
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 00:23 by tk2gfblvuz
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-17 23:40 by tk2gfblvuz
[基金申请] 基金正文30页指的是报告正文还是整个申请书 +3 successhe 2026-02-16 4/200 2026-02-17 20:56 by successhe
[基金申请] 今年春晚有几个节目很不错，点赞！ +5 瞬息宇宙 2026-02-16 6/300 2026-02-17 12:49 by jymy19840415
[微米和纳米] 球磨粉体时遇到了大的问题，请指教！ 10+3 6sbiam 2026-02-12 15/750 2026-02-16 15:03 by tgzxzqj
[基金申请] 过年走亲戚时感受到了所开私家车的鄙视链 +3 瞬息宇宙 2026-02-15 5/250 2026-02-16 14:23 by aspect3000
[基金申请] 情人节自我反思：在爱情中有过遗憾吗？ +4 瞬息宇宙 2026-02-15 5/250 2026-02-15 22:28 by baiboxie
[硕博家园] 江汉大学解明教授课题组招博士研究生/博士后 +3 cleverlyy 2026-02-12 3/150 2026-02-12 21:02 by qsdf1
信息提示
关闭
请填处理意见
关闭