24小时热门版块排行榜

返回列表

当前主题已经存档。

mmfzx0517

木虫 (著名写手)

应助: 5 (幼儿园)
金币: 4170.4
散金: 51
红花: 3
帖子: 1146
在线: 199.2小时
虫号: 507123
注册: 2008-02-19
专业: 传热传质学

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

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

回复此楼

» 猜你喜欢

实验室接单子已经有4人回复
全日制（定向）博士已经有4人回复
假如你的研究生提出不合理要求已经有6人回复
对氯苯硼酸纯化已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有12人回复
不自信的我已经有12人回复
所感已经有4人回复
论文终于录用啦！满足毕业条件了已经有28人回复
要不要辞职读博？已经有7人回复
北核录用已经有3人回复

上坡

1楼 2009-05-22 14:53:39

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

grant.tgb

木虫 (小有名气)

应助: 1 (幼儿园)
金币: 2734.1
帖子: 170
在线: 41.1小时
虫号: 425534
注册: 2007-07-27
性别: GG
专业: 金属材料的力学行为

用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 ]