Question

fortran 循环读出文本文件的每一行

RT, 怎么用 fortran 循环读出现有文本文件的每一行, 并且在每一行前面添加 file, 后面按照行号分别添加 in process 1, in process 2, .... 3, ...... 4, ...

这样的内容生成新的文本. (只考虑fortran 循环)

求教大神, 谢谢!

Answer 1

fortran95格式，gfortran下编译成功
代码：

program main
implicit none;
!输入文件infile,输出文件名outfile
character(*),parameter :: infile='indata.txt',outfile='outdata.txt';
integer,parameter :: num = 4;!输入文件的行数
character(255) :: stringline; !存放读取的字符串
integer :: i;
OPEN(UNIT=20,FILE=infile,STATUS='OLD',ACTION='read');
OPEN(UNIT=30,FILE=outfile,status='replace',action='write');
do i=1,num
READ(20,'(a)') stringline;!读入一行
write(30,100) trim(stringline),num;!输出一行
enddo
100 format ('file ',a,' in process ',i5);!格式化输出file in process
end program main