怎么在文件开头写入数据而不覆盖原有内容？

静待花开 · 发表于 2022-12-25 09:58:23

先贴代码

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

01program main
02    implicit none
03    integer :: A(5,3), buf(15,1)
04    integer :: nsize, irow
05 
06    nsize = 5
07    A( 1, : ) = [ 5, 4, 8 ]
08    A( 2, : ) = [ 4, 1, 9 ]
09    A( 3, : ) = [ 3, 4, 8 ]
10    A( 4, : ) = [ 1, 2, 8 ]
11    A( 5, : ) = [ 3, 1, 0 ]
12    Open(Unit=34, File="TimeLog.txt", Form="formatted", Access="sequential", Position='append', Status="old")
13    Do irow = 1, 5
14       write(34,*)A(irow,:)
15    End Do
16    Close(34)
17    Open(Unit=34, File="TimeLog.txt", Form="formatted", Access="sequential", Position='Rewind', Status="old")
18    write(34,'(I9)')nsize
19    Close(34)
20 
21end

上面代码中，数组A()有5行，就想在 TimeLog.txt 的开头写入一个整数，此数表示后面有5行数据。
上面代码写入nsize后会把前面写入的A都覆盖掉，不知道有没有什么办法，能否不覆盖？我尝试过在写入A之前，先写入一个空行，再写入A，最后再在开头写入nsize。但仍然会覆盖掉A。
因为另外一个程序想读入这个文件，但想在一开头读入这个nsize，从而分配数组大小，再读入A()的内容。

fcode · 发表于 2022-12-25 13:04:03

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

01program main
02  implicit none
03  integer :: A(5,3)
04  integer :: nsize, irow
05  A( 1, : ) = [ 5, 4, 8 ]
06  A( 2, : ) = [ 4, 1, 9 ]
07  A( 3, : ) = [ 3, 4, 8 ]
08  A( 4, : ) = [ 1, 2, 8 ]
09  A( 5, : ) = [ 3, 1, 0 ]
10  Open(Unit=34, File="TimeLog.txt")
11  write(34,100) 0 !//假设暂时不知道大小，先写入一个 0 占位
12  Do irow = 1, size(A,1)
13    write(34,*) A(irow,:)
14  End Do
15  Close(34)
16  nsize = 5
17  Open(Unit=34, File="TimeLog.txt",form="formatted",access="direct",Status="old",recl=9)
18  write(34,100,rec=1) nSize
19  Close(34)
20100 format(i9)
21end program main

静待花开 · 发表于 2022-12-25 19:42:29

fcode 发表于 2022-12-25 13:04
[mw_shl_code=fortran,true]program main
implicit none
integer :: A(5,3)

非常感谢您多次帮忙，太感谢了！

[文件读写] 怎么在文件开头写入数据而不覆盖原有内容？

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章