Schreiben in eine vorhandene Datei wird nicht überschrieben, die in Fortran

Ich habe eine vorhandene Datei geschrieben, die von einem Fortran-Programm (formatiert) und ich möchte hinzufügen, einige Zeilen am Anfang der Datei. Die Idee ist, so zu tun, ohne eine Kopie der ursprünglichen Datei.

Könnte ich fügen Sie eine Zeile am Ende der Datei mit:

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="append")
write(21,*) "a new line"

aber wenn ich es versuchte:

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="rewind")
write(21,*) "a new line"

überschreibt er die ganze Datei.

Kann es unmöglich sein.
Zumindest ich wäre froh um eine Bestätigung, dass es praktisch unmöglich ist.

InformationsquelleAutor maxhaz | 2013-10-25
  1. 4

    Ja, es ist unmöglich. Mit position= legen Sie nur die position für das schreiben. Normalerweise werden Sie nur löschen alles hinter dem aktuellen Datensatz, indem Sie ein schreiben in eine sequentielle Datei. Sie können möglicherweise passen einem Datensatz am Anfang in einer direct-access-Datei, aber auch nicht nur etwas am Anfang. Sie haben, um eine Kopie der ersten.

    • Aber du musst Sie nicht Lesen Sie die gesamte alte Datei gleichzeitig in den Speicher. Verwenden Sie die OS zum umbenennen der alten Datei in einen temporären Dateinamen. Dann eine neue Datei mit dem alten Dateinamen und den Daten, die Sie wollen. Dann fügen Sie die alte Datei in die neue Datei. (Je nach OS und die Natur der Daten der Datei, die Sie vielleicht in der Lage zu tun, dass mit dem OS.)
    • "machen Sie eine Kopie ersten" enthält Ihre situation zu.
    InformationsquelleAutor Vladimir F
  2. 0

    Wenn Sie mit un-formatierten Daten und wissen, wie viele Linien erwarten, versuchen Sie es mit der direct access file read/write-Methode. Dies hat das Potenzial, um Informationen zu speichern, die für jede Zeile in "Datensatz", die zugegriffen werden kann, die später viel wie ein array.

    Um zum Anhängen an den Anfang, einfach erstellen Sie so viele leere Datensätze, wie Sie Zeilen in dein 'Kopf' am Anfang der Datei, dann gehen Sie zurück und ändern Sie deren Werte auf die eigentlichen Zeilen, die Sie wollen, dass Sie später.

    Beispiel von Direct Access file 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

    code-Quelle, siehe Kapitel auf "Direct Access Files":
    http://oregonstate.edu/instruct/ch590/lessons/lesson7.html

    InformationsquelleAutor abby sobh
  3. -1

    Ist es möglich !!! Hier ist ein Beispielprogramm, das könnte die Aufgabe erfüllen.

       ! 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
    • Will er schreiben im Anfang der Datei. Für das schreiben auf die und verwenden nur position=append.
    • Danke, ich wusste nicht, lies die Frage richtig. Nie wieder passieren. Ich weiß nicht, ob jeder Unterschied zwischen position = 'append', Aber access='append', status = 'old' funktioniert auch
    • access=append ist etwas seltsam, nicht standardisierte Erweiterung. Standard Fortran 90 ist position=append
    InformationsquelleAutor Sathyam
Schreibe einen Kommentar