24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 386  |  回复: 3
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

mmfzx0517

木虫 (著名写手)

[交流] 【求助】【求助】在循环中,每一次循环获得的数据保存为不同的TXT文档?

在循环中,每一次循环获得的数据如何保存在不同的TXT文档?请高手指教,不甚感谢!
   例如:
      do  i=1,n
                语句
          ...........
         输出结果(就是在此处,如何将每一次循环的数据保存在不同的TXT文档?)
      end do
回复此楼

» 猜你喜欢

上坡
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)

★ ★ ★
sunxiao(金币+2,VIP+0):谢谢参与,欢迎常来仿真编程版 5-29 01:06
gwdavid(金币+1,VIP+0):程序软件版新开版!大家多多支持,欢迎常来! 5-30 22:30
就是使用内部文件。
4楼2009-05-28 21:10:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

grant.tgb

木虫 (小有名气)

用TRIM可实现

★ ★ ★ ★ ★ ★ ★ ★ ★
mmfzx0517(金币+5,VIP+0):谢谢你的帮助! 5-27 11:35
sunxiao(金币+4,VIP+0):谢谢参与,欢迎常来仿真编程版 5-29 01:06
write(form,'(i)') i
write(filename,*) trim(form),".TXT"
open(10,file=filename)
write(10,*) ”你想要的输出结果语句"
close(10)

把上面的几句放在你的输出结果那里就行了。

这是一个简单的形式,输出的文件是以数字区分的,如果想加字母,则可在write(filename,*) trim(form),".TXT" 这条命令中加。如write(filename,*) “ABCD”, trim(form),".TXT",那么输出的就是字母开头加数字的文件名了。

哦,对了,在程序开头加一条定义:

character(len=20) :: filename,form

呵呵

[ Last edited by grant.tgb on 2009-5-22 at 17:19 ]
2楼2009-05-22 16:54:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 356求调剂 +3 gysy?s?a 2026-03-28 3/150 2026-03-29 08:26 by fmesaito
[考研] 348求调剂 +4 小懒虫不懒了 2026-03-28 4/200 2026-03-29 08:23 by fmesaito
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 0856材料化工调剂 总分330 +13 zhubinhao 2026-03-27 13/650 2026-03-29 07:42 by 无际的草原
[考研] 070305高分子化学与物理 304分求调剂 +7 c297914 2026-03-28 7/350 2026-03-29 01:17 by 544594351
[考研] 289求调剂 +13 新时代材料 2026-03-27 13/650 2026-03-29 01:16 by 544594351
[考研] 求调剂 +7 争取九点睡 2026-03-28 8/400 2026-03-28 21:07 by 争取九点睡
[考研] 295材料工程专硕求调剂 +7 1428151015 2026-03-27 7/350 2026-03-28 19:58 by S240
[考研] 压国家一区线,求导师收留,有恩必谢! +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 311求调剂 +9 lin0039 2026-03-26 9/450 2026-03-28 13:05 by 唐沐儿
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 求调剂 +4 零八# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[考研] 材料292调剂 +12 橘颂思美人 2026-03-23 12/600 2026-03-27 15:44 by caszguilin
[考博] 26申博 +3 加油冲啊! 2026-03-26 3/150 2026-03-27 15:38 by cls512
[考研] 085600,材料与化工321分调剂 +4 大馋小子 2026-03-27 6/300 2026-03-27 14:11 by 松花缸1201
[考研] 281求调剂 +6 Koxui 2026-03-24 7/350 2026-03-26 15:37 by 无际的草原
[考研] 环境专硕324分求调剂推荐 +5 轩小宁—— 2026-03-26 5/250 2026-03-26 12:05 by i_cooler
[考研] 296求调剂 +4 汪!?! 2026-03-25 7/350 2026-03-25 16:41 by 汪!?!
[考研] 285求调剂 +3 AZMK 2026-03-24 3/150 2026-03-25 12:23 by userper
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
信息提示
请填处理意见