24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 387  |  回复: 3
当前主题已经存档。

mmfzx0517

木虫 (著名写手)

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

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

» 猜你喜欢

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

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的回帖

mmfzx0517

木虫 (著名写手)

恩,很感谢。
上坡
3楼2009-05-27 10:51:11
已阅   回复此楼   关注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的回帖
相关版块跳转 我要订阅楼主 mmfzx0517 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 348求调剂 +4 小懒虫不懒了 2026-03-28 4/200 2026-03-29 08:23 by fmesaito
[考研] 085600 材料与化工 329分求调剂 +11 Mr. Z 2026-03-25 11/550 2026-03-29 08:14 by 无际的草原
[硕博家园] 求调剂 有机化学考研356分 +3 Nadiums 2026-03-25 4/200 2026-03-29 00:50 by 544594351
[考研] 22408 359分调剂 +4 Qshers 2026-03-27 5/250 2026-03-28 21:26 by zhq0425
[考研] 化学0703 调剂 306分 一志愿211 +4 26要上岸 2026-03-28 4/200 2026-03-28 15:30 by 1018329917
[考研] 299求调剂 +7 嗯嗯嗯嗯2 2026-03-27 7/350 2026-03-28 13:09 by 唐沐儿
[考研] 求调剂 +8 张zz111 2026-03-27 9/450 2026-03-28 03:41 by fmesaito
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 085600,材料与化工321分,求调剂 +9 大馋小子 2026-03-27 9/450 2026-03-27 14:30 by mmm just
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 考研调剂 +10 呼呼?~+123456 2026-03-24 10/500 2026-03-27 11:46 by wangjy2002
[考研] 0703化学338求调剂! +6 Zuhui0306 2026-03-26 7/350 2026-03-27 10:35 by shangxh
[考研] 276求调剂。有半年电池和半年高分子实习经历 +10 材料学257求调剂 2026-03-23 11/550 2026-03-27 10:13 by YCIT- LHL
[考研] 0703化学求调剂 +3 丹青奶盖 2026-03-26 5/250 2026-03-26 20:11 by macy2011
[考研] 281求调剂 +6 Koxui 2026-03-24 7/350 2026-03-26 15:37 by 无际的草原
[考研] 材料与化工328分调剂 +6 。,。,。,。i 2026-03-23 6/300 2026-03-25 22:30 by 418490947
[考研] 材料与化工304求B区调剂 +3 邱gl 2026-03-25 3/150 2026-03-25 19:03 by Ainin_
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 一志愿南航材料专317分求调剂 +5 炸呀炸呀炸薯条 2026-03-23 5/250 2026-03-24 16:52 by 星空星月
[考研] 求调剂一志愿武汉理工大学材料工程(085601) +5 WW.' 2026-03-23 7/350 2026-03-24 14:50 by sprinining
信息提示
请填处理意见