| 查看: 1639 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
atachengqi新虫 (初入文坛)
|
[求助]
fortran连续读取文件，文件名的问题已有2人参与
|
|
|
从模型计算得出一系列的文件，（例如CC_001,CC_002.......CC_079) 如果要编写语言来依次读取这些文件，文件名这个问题应该怎么解决？ （主要是前面那个0啊，一个一个都去掉0也不太现实） 谢谢各位大神了！！！ |
回复此楼» 猜你喜欢
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
孩子确诊有中度注意力缺陷
已经有6人回复
-
2026博士申请-功能高分子，水凝胶方向
已经有6人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
-
请问2026国家基金面上项目会启动申2停1吗
已经有5人回复
-
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？
已经有3人回复
-
RSC ADV状态问题
已经有4人回复
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17670.7
- 红花: 10
- 帖子: 2108
- 在线: 175.6小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
8楼2016-03-14 13:06:06
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17670.7
- 红花: 10
- 帖子: 2108
- 在线: 175.6小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
感谢参与，应助指数 +1
|
利用内部文件可以实现，我把代码粘贴给你，这个代码要实现的功能就是读取CC_001~CC_005.txt所有文件，并把读取内容放入result.txt中，你参考此代码去修改。（PS:代码运行开始输入文件有多少个，然后自动出结果） Program example Implicit None Integer::i,n Integer,Allocatable::a(  Character(len=20)::string Write(*,*) 'input the number of documents:' !//输入文件数量 Read(*,*) n Allocate(a(n)) Do i=1,n Write( string,"( 'CC_',i3.3 )" ) i Open( 10+i,file=trim( string )//'.txt' ) Read( i+10,* ) a(i) End do Do i=1,n Open( 100,file='result.txt' ) Write( 100,"( i3 )" ) a(i) End do Read(*,*) End Program example |
2楼2016-03-12 22:05:50
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17670.7
- 红花: 10
- 帖子: 2108
- 在线: 175.6小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
| 中间那个笑脸是integer,allocatable::a( : ),想要测试的文件在这里。 |
» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : CC_001.txt
- 附件 2 : CC_002.txt
- 附件 3 : CC_003.txt
- 附件 4 : CC_004.txt
- 附件 5 : CC_005.txt
- 附件 6 : Source1.f90
2016-03-12 22:08:29, 1 bytes
2016-03-12 22:08:31, 1 bytes
2016-03-12 22:08:31, 1 bytes
2016-03-12 22:08:31, 1 bytes
2016-03-12 22:08:31, 1 bytes
2016-03-12 22:08:31, 523 bytes
3楼2016-03-12 22:09:00
4楼2016-03-12 22:20:03