| 查看: 1980 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
atachengqi新虫 (初入文坛)
|
[求助]
fortran连续读取文件，文件名的问题 已有2人参与
|
|
|
从模型计算得出一系列的文件，（例如CC_001,CC_002.......CC_079) 如果要编写语言来依次读取这些文件，文件名这个问题应该怎么解决？ （主要是前面那个0啊，一个一个都去掉0也不太现实） 谢谢各位大神了！！！ |
回复此楼» 猜你喜欢
时间戳又变了8-15
已经有9人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有8人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有52人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有9人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有6人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
filecode
已经有11人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
atachengqi
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 473.5
- 散金: 20
- 帖子: 10
- 在线: 4.3小时
- 虫号: 3735094
- 注册: 2015-03-13
- 专业: 大气遥感和大气探测
6楼2016-03-14 11:03:12
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 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 (小学生)
- 金币: 17677.2
- 红花: 10
- 帖子: 2109
- 在线: 175.7小时
- 虫号: 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
