24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 385  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 305求调剂 +8 RuiFairyrui 2026-03-28 8/400 2026-03-29 08:22 by fmesaito
[考研] 调剂310 +8 温柔的晚安 2026-03-25 9/450 2026-03-29 08:19 by fmesaito
[考研] 2026年华南师范大学欢迎化学,化工,生物,生医工等专业优秀学子加入! +3 llss0711 2026-03-28 5/250 2026-03-29 00:23 by MRMFYTL
[考研] 数一英一271专硕(085401)求调剂,可跨 +7 前行必有光 2026-03-28 8/400 2026-03-28 23:22 by 小木虫tim
[考研] 332求调剂 +4 @MZB382400 2026-03-28 4/200 2026-03-28 21:02 by 唐沐儿
[考研] 一志愿华理,数一英一285求A区调剂 +8 AZMK 2026-03-25 12/600 2026-03-28 18:15 by AZMK
[考研] 347求调剂 +3 山顶见α 2026-03-25 3/150 2026-03-28 14:13 by 唐沐儿
[考研] 317求调剂 +6 十闲wx 2026-03-24 6/300 2026-03-28 13:27 by Iveryant
[考研] 330一志愿中国海洋大学 化学工程 085602 有读博意愿 求调剂 +3 wywy.. 2026-03-27 4/200 2026-03-28 03:32 by fmesaito
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 274求调剂 +17 顾九笙要谦虚 2026-03-24 23/1150 2026-03-27 15:16 by caszguilin
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[考研] 总分322求生物学/生化与分子/生物信息学相关调剂 +5 星沉uu 2026-03-26 6/300 2026-03-26 19:02 by macy2011
[考研] 生物学 296 求调剂 +4 朵朵- 2026-03-26 6/300 2026-03-26 19:01 by 不吃魚的貓
[考研] 309求调剂 +4 gajsj 2026-03-25 5/250 2026-03-26 00:27 by Dyhoer
[考研] 材料与化工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_
[考研] 0854电子信息求调剂 324 +4 Promise-jyl 2026-03-23 4/200 2026-03-25 11:36 by Sugarlight
[考研] 一志愿国科过程所081700,274求调剂 +3 三水研0水立方 2026-03-23 3/150 2026-03-23 23:11 by MajorWen
信息提示
请填处理意见