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

redasia · 发表于 2017-7-28 18:21:02

一直没解决这个问题：打开一个顺序文件进行写入，写完后，想在文件最前面插入一条记录，用rewind命令回到开头，写入记录后，前面写入的其他内容就都没有了。
不知有没有人解决过此类问题（注：重点是插入，而不是先存入变量中，最后再一起写如）。

下面是统计文件行数并写在文件开头的列子，结果rewind后只有行数，无其他内容。

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

01open(40,file='out.txt',form="formatted")
02open(12, file="in.txt")
03 
04line_num=0
05 do !顺序读取
06       read(12,*iostat=ioerr) t 
07       if(ioerr/=0)exit
08 
09       write(40,'(f10.2)')t
10      line_num=line_num+1
11  enddo
12 
13 rewind(40)
14 write(40,'(i10)')line_num
15close(40)
16 close(12)

fcode · 发表于 2017-7-28 18:52:55

所有windows应用程序，想在文件里插入内容，都是全部读入内存，然后重新重头写入的。

所以你会发现用记事本，word，UE打开保存一个文件很慢。
（我不是很清楚linux和MacOS的情况，但是fortran语法里无法实现直接的文件插入）

li913 · 发表于 2017-7-30 08:51:36

本帖最后由 li913 于 2017-7-30 08:54 编辑

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

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

01program test
02character(10)::ch=''
03open(40,file='out.txt',form="formatted")
04open(12, file="in.txt")
05write(40,*) ch
06line_num=0
07 do !顺序读取
08       read(12,*,iostat=ioerr) t 
09       if(ioerr/=0)exit
10       write(40,'(f10.2)')t
11      line_num=line_num+1
12  enddo
13close(40); close(12)
14open(40,file='out.txt',status='old',access='stream')
15 write(ch,'(i10)')line_num
16 write(40) ch
17close(40)
18 end program

redasia · 发表于 2017-7-31 11:18:03

谢谢大家！看来没啥好办法，要么先保存在内存里，要么重新读写一遍。

pasuka · 发表于 2017-7-31 12:10:18

lz为啥不考虑二进制文件格式呢？譬如MAT、HDF5等等

redasia · 发表于 2017-7-31 14:56:35

li913 发表于 2017-7-30 08:51
在文件第一行预留足够空间，比如第一行输出10个任意字符。整体输出完毕后，用流文件打开，替换先前字符。[m ...

此办法可以，不要重读一遍，只要重新打开写入。

redasia · 发表于 2017-7-31 15:11:03

li913 发表于 2017-7-30 08:51
在文件第一行预留足够空间，比如第一行输出10个任意字符。整体输出完毕后，用流文件打开，替换先前字符。[m ...

谢谢大家，此方法可以，不需重新读写一遍，只需重新打开写入即可。但不明白其原理，难道以”stream“方式打开文件时会整个都读入内存？关闭时再次写入？流文件是新加入的形式，下去好好看看。

redasia · 发表于 2017-7-31 17:21:19

pasuka 发表于 2017-7-31 12:10
lz为啥不考虑二进制文件格式呢？譬如MAT、HDF5等等

因为文件不大，比较简单，不太会其他复杂格式，只会Fortran。

li913 · 发表于 2017-8-2 15:23:32

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

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

chiangtp · 发表于 2017-8-8 13:29:04

意猶未盡: https://stackoverflow.com/questi ... -file-using-fortran
SEQUENTIAL access: 吐槽不便（基本上只能topdown), 無感優點(vary length)

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

评分

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章