如何在文件开始（或文件中间）插入一条记录

li913

在文件第一行预留足够空间，比如第一行输出10个任意字符。整体输出完毕后，用流文件打开，替换先前字符。

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

program test
character(10)::ch='' 
open(40,file='out.txt',form="formatted")
open(12, file="in.txt")
write(40,*) ch
line_num=0
 do !顺序读取
       read(12,*,iostat=ioerr) t 
       if(ioerr/=0)exit
       write(40,'(f10.2)')t
      line_num=line_num+1
  enddo
close(40); close(12)
open(40,file='out.txt',status='old',access='stream')
 write(ch,'(i10)')line_num
 write(40) ch
close(40)
 end program

li913

redasia 发表于 2017-7-31 15:11
谢谢大家，此方法可以，不需重新读写一遍，只需重新打开写入即可。但不明白其原理，难道以”stream“方式 ...

二进制文件写入，只更改相应的字符，文件其余内容不变。