24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 382  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿武汉理工,总分321,英一数二,求老师收留。 +7 nnnnnnn5 2026-03-25 7/350 2026-03-29 00:32 by 我是小康
[考研] 0856材料化工调剂 总分330 +11 zhubinhao 2026-03-27 11/550 2026-03-28 20:22 by 418490947
[考研] 一志愿北化085600材料专硕275|有文章专利|求调剂 +7 Micky11223 2026-03-25 7/350 2026-03-28 18:34 by 无际的草原
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +3 AZMK 2026-03-27 5/250 2026-03-28 16:19 by xxxsssccc
[考研] 材料与化工272求调剂 +9 阿斯蒂芬2004 2026-03-28 9/450 2026-03-28 15:21 by 1018329917
[考研] 320分,材料与化工专业,求调剂 +9 一定上岸aaa 2026-03-27 13/650 2026-03-28 15:00 by 神马都不懂
[考研] 求化学调剂 +4 wulanna 2026-03-28 4/200 2026-03-28 13:37 by 唐沐儿
[考研] 299求调剂 +7 嗯嗯嗯嗯2 2026-03-27 7/350 2026-03-28 13:09 by 唐沐儿
[考研] 086000调剂 +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[考研] 化学调剂 +4 爱吃番茄的旭 2026-03-24 5/250 2026-03-27 17:50 by kiokin
[考研] 考研调剂 +4 Sanmu-124 2026-03-26 4/200 2026-03-27 17:49 by kiokin
[考研] 315调剂 +4 0860求调剂 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
[考研] 294分080500材料科学与工程求调剂 +4 柳溪边 2026-03-26 4/200 2026-03-26 21:14 by XPU李庆
[考研] 【2026考研调剂】制药工程 284分 求相关专业调剂名额 +4 袁奂奂 2026-03-25 8/400 2026-03-25 14:32 by lbsjt
[考研] 0854电子信息求调剂 324 +4 Promise-jyl 2026-03-23 4/200 2026-03-25 11:36 by Sugarlight
[有机交流] 有机合成求助 20+3 FENGSHUJEI 2026-03-23 5/250 2026-03-24 19:31 by 88817753
[考研] 材料专硕找调剂 +5 哈哈哈吼吼吼哈 2026-03-23 5/250 2026-03-24 19:07 by 了了了了。。
[考研] 一志愿国科过程所081700,274求调剂 +3 三水研0水立方 2026-03-23 3/150 2026-03-23 23:11 by MajorWen
[考研] 一志愿重庆大学085700资源与环境,总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] 328求调剂 +4 LHHL66 2026-03-23 4/200 2026-03-23 14:55 by lbsjt
信息提示
请填处理意见