fortran - 在 Fortran 中写入现有文件而不覆盖

Question

我有一个由 Fortran 程序编写的现有文件(已格式化)，我想在文件开头添加几行。我们的想法是在不复制原始文件的情况下完成此操作。

我可以在文件末尾添加一行:

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="append")
write(21,*) "a new line"

但是当我尝试时:

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="rewind")
write(21,*) "a new line"

它会覆盖整个文件。

这可能是不可能的。至少，我很高兴能确认这实际上是不可能的。

Answer 1

是的，这是不可能的。使用 position= 您只需设置写入位置。通常，您只需通过写入顺序文件来删除当前记录之后的所有内容。您可以在直接访问文件的开头调整记录，但不仅仅是在开头添加某些内容。您必须先复印一份。