| 查看: 1975 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
atachengqi新虫 (初入文坛)
|
[求助]
fortran连续读取文件，文件名的问题 已有2人参与
|
|
|
从模型计算得出一系列的文件，（例如CC_001,CC_002.......CC_079) 如果要编写语言来依次读取这些文件，文件名这个问题应该怎么解决？ （主要是前面那个0啊，一个一个都去掉0也不太现实） 谢谢各位大神了！！！ |
回复此楼» 猜你喜欢
澳大利亚 Murdoch University 全奖博士招生（3个名额）地质化工冶金领域
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有6人回复
-
不应该看fileCode
已经有9人回复
-
Filecode 又变了，巨变
已经有4人回复
-
分享一下我之前已中青C的计划书的filecode
已经有5人回复
-
FileCode能看出啥？
已经有26人回复
-
关于Filecode分析方法
已经有11人回复
-
重要来源：本周末出结果
已经有9人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有14人回复
-
结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。
已经有4人回复
5楼2016-03-12 22:21:16
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
