如何在 fortran 中编辑现有文件并将其导出到同一文件

Question

我正在尝试在我的输入文件中交换一些字符。 如果我将数据导出到新文件，我的代码可以正常工作。 但是，我无法将更改导出到同一个文件。在前 2 行之后，它没有正确导出数据。你对我有什么建议吗？

这是我需要更改的数据（我需要删除 % 符号）

test.su2：

%file
%
%
%
4 4 
4 5
3 5
%
%
3 4
4 2

这是我的代码，它忽略了以 % 开头的行并将其写入另一个 .su2 文件：

程序更新_su2_file

  IMPLICIT NONE
  INTEGER :: I
  CHARACTER(80) :: LINE


  OPEN(10,FILE='2DCRM.su2',FORM='FORMATTED')
  OPEN(20,FILE='2DCRM_updated.su2',FORM='FORMATTED')



  DO 100 WHILE (.TRUE.)
  READ (10,'(A)',END=999) LINE  !Read line from input file

  IF(LINE(1:1).EQ.'%') GOTO 100 !Skip line starts with %
  WRITE(20,'(A)') TRIM(LINE)    !Write line to output file   100 END DO   999 CONTINUE 

  CLOSE (10)
  CLOSE (20)

  END PROGRAM update_su2_file

基本上我需要将更新后的数据写入 test.su2 文件而不是新文件。

我尝试如下更新我的代码，但正如我上面提到的，它没有正确写入我的数据。

程序更新_su2_file

  IMPLICIT NONE
  INTEGER :: I
  CHARACTER(80) :: LINE


  OPEN(10,FILE='test.su2',FORM='FORMATTED')



  DO 100 WHILE (.TRUE.)
  READ (10,'(A)',END=999) LINE  !Read line from input file

  IF(LINE(1:1).EQ.'%') GOTO 100 !Skip line starts with %
  WRITE(10,'(A)') TRIM(LINE)    !Write line to output file   100 END DO   999 CONTINUE 

  CLOSE (10)

  END PROGRAM update_su2_file

这是不正确的输出文件：

%file
%file

Answer 1

就地编辑文件是解决问题的错误方法。您应该将所需的输出写入第二个文件，如果需要，用第二个文件替换原始文件。

我将解释为什么这不是你应该做的，而不是展示如何编辑文件。

已连接的外部文件只有一个位置。 对于此任务，您需要维护两个位置：您将要写入的位置，以及到目前为止您已完成的读取进度。您可以这样做，但您必须手动跟踪和重新定位。

您的文件有不同长度的记录。 如果您想将第一条内容为%file 的记录替换为内容为4 4 的记录，或者将内容% 替换为2 4您需要在文件中移动以下任何其他内容的位置。这将使创建第二个文件的任何文件系统访问成本相形见绌。

即使只有这两个问题，它已经成为一项艰巨的任务。一个你会弄错的，丢弃你唯一的文件副本。写入第二个文件要容易得多。

---

您还必须考虑可重复性和可用性。对于此任务，您的程序是幂等的（因此，如果您在新文件上再次运行该程序并不重要），但并非所有类似的程序都是。

就像在测试危险的覆盖程序时一样，您希望将来可以使用原件：明天，您的主管说“我想要您获得的输入数据，以便与我的其他学生分享”，或者期刊审稿人问“原始来源是什么样的？”。您希望将原始研究工件安全地存放起来，因此“就地”毫无意义。