我有一个由Fortran程序(格式化)编写的现有文件,我想在文件的开头添加几行。我们的想法是在不复制原始文件的情况下这样做。
我可以在文件末尾添加一行:
open(21,file=myfile.dat,status='old',action='write',
form='formatted',position="append")
write(21,*) "a new line"
但是当我尝试时:
open(21,file=myfile.dat,status='old',action='write',
form='formatted',position="rewind")
write(21,*) "a new line"
它会覆盖整个文件。
这可能是不可能的。 至少,我很高兴得到确认它实际上是不可能的。
答案 0 :(得分:4)
是的,这是不可能的。使用position=
,您只需设置写作位置。通常,您只需通过在顺序文件中写入来删除当前记录之外的所有内容。您可以在直接访问文件中调整开头的记录,但不仅仅是在开头添加内容。你必须先复制一份。
答案 1 :(得分:0)
如果您使用的是未格式化的数据并知道需要多少行,请尝试使用直接访问文件读/写方法。这有可能在“记录”中存储每行的信息。以后可以像数组一样访问它。
为了追加到开头,只需创建尽可能多的空记录,就像在“标题”中一样。在文件的开头然后返回并将它们的值更改为您希望它们稍后的实际行。
直接访问文件的示例io:
CHARACTER (20) NAME
INTEGER I
INQUIRE (IOLENGTH = LEN) NAME
OPEN( 1, FILE = 'LIST', STATUS = 'REPLACE', ACCESS = 'DIRECT', &
RECL = LEN )
DO I = 1, 6
READ*, NAME
WRITE (1, REC = I) NAME ! write to the file
END DO
DO I = 1, 6
READ( 1, REC = I ) NAME ! read them back
PRINT*, NAME
END DO
WRITE (1, REC = 3) 'JOKER' ! change the third record
DO I = 1, 6
READ( 1, REC = I ) NAME ! read them back again
PRINT*, NAME
END DO
CLOSE (1)
END
代码源,请参阅"直接访问文件"部分: http://oregonstate.edu/instruct/ch590/lessons/lesson7.html
答案 2 :(得分:-1)
有可能!!!这是一个可以完成任务的示例程序。
! Program to write after the end line of a an existing data file
! Written in fortran 90
! Packed with an example
program write_end
implicit none
integer :: length=0,i
! Uncomment the below loop to check example
! A file.dat is created for EXAMPLE defined to have some 10 number of lines
! 'file.dat may be the file under your concern'.
! open (unit = 100, file = 'file.dat')
! do i = 1,10
! write(100,'(i3,a)')i,'th line'
! end do
! close(100)
! The below loop calculates the number of lines in the file 'file.dat'.
open(unit = 110, file = 'file.dat' )
do
read(110,*,end=10)
length= length + 1
end do
10 close(110)
! The number of lines are stored in length and printed.
write(6,'(a,i3)')'number of lines= ', length
! Loop to reach the end of the file.
open (unit= 120,file = 'file.dat')
do i = 1,length
read(120,*)
end do
! Data is being written at the end of the file...
write(120,*)'Written in the last line,:)'
close(120)
end