文件修改

vvt

全部读到内存，然后重新写一遍。

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

program fcode_cn
  implicit none
  integer :: a(3)
  Open(11,File="a.txt")
  Read(11,*) a
  Rewind(11)
  Write(11,"(g0)") a([1,3])
  Close(11)
end program fcode_cn

不仅 Fortran 只能这样，其他编程语言也是如此，包括但不限于 C/C++, PHP, golang, Delphi, VB（我是说原生的文件读写，而非封装后的库）

不仅编程语言，绝大部分成熟的文本编辑器软件，包括但不限于 windows记事本，notepad++，UltraEdit，gedit，vi，emacs，sublime Text，都是这样。

PS：倡导大家摒弃 notepad++，换成其他文本编辑器

vvt

文件末尾删除数据不用这么麻烦。

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

program fcode_cn
  implicit none
  integer :: a(2)
  Open(11,File="a.txt")
  Read(11,*) a
  endfile(11)
  Close(11)
end program fcode_cn