24小时热门版块排行榜

返回列表

当前主题已经存档。

mmfzx0517

木虫 (著名写手)

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

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

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

回复此楼

» 猜你喜欢

请问有评职称，把科研教学业绩算分排序的高校吗已经有6人回复
2025冷门绝学什么时候出结果已经有6人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有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 ]