如何将一个一行文本数据写入另一个文本的第二行

vvt

[Fortran] 纯文本查看 复制代码

character(len=512) :: x
Open(13,File="2009.txt",position="append")
Open(12,File="2008.txt")
Read(12,'(a512)') x
Write(13,'(a)') trim(x)
close(12)
close(13)
end