主题：[讨论]跪求大神！！！关于循环读入、输出批量文件的困惑！
misterecho
[专家分：0] 发布于 2012-05-21 23:10:00
本人最近用fortran90编程，要将一个原本单个处理通过循环实现批量读入、输出。在读入、输出时遇到问题，请教过一些人，但自己还是不大清楚具体怎么操作。
现把我的问题简化为模型：
如在D盘，Fortran文件夹下，从文件夹A里依次读入1.txt，2.txt这两个文本，将1，2文本的内容都写入文件夹B里的文件data.txt里。（注：最好是严格按从A文件夹读入，输出到B文件夹，而不在同一文件夹Fortran里进行）
这个小程序应该不是很难，求高手不吝赐教！！！
回复列表 （共2个回复）
沙发
臭石头雪球 [专家分：23030] 发布于 2012-05-21 23:30:00
第一步，打开记事本，输入如下内容
[quote]
[font=宋体][color=#000000]D:\Fortran\1.txt
D:\Fortran\2.txt[/color][/font][/quote]
保存为 D:\Fortran\List.txt
第二步，创建文件
D:\Fortran\1.txt
D:\Fortran\2.txt
并输入内容。
第三步，运行如下代码：
[quote]Program Main
Implicit None
Character( Len = 512 ) :: cFilename , cContent
Integer iIOStat
Open( 12 , File = "D:\Fortran\List.txt" )
Open( 13 , File = "D:\B.txt" )
Do
Read( 12 , * , ioStat = iIOStat ) cFilename
if ( iIOStat /= 0 ) Exit
Open( 14 , File = Trim( cFilename ) )
Do
Read( 14 , * , ioStat = iIOStat ) cContent
if ( iIOStat /= 0 ) Exit
Write( 13 , * ) Trim(cContent)
End Do
Close( 14 )
End Do
Close( 13 )
Close( 12 )
End Program Main[/quote]
板凳
misterecho [专家分：0] 发布于 2012-05-22 14:52:00
感谢石头哥！！！赞一个~
我来回复
您所在位置：