Как писать на определенных строках в fortran

Question

Я хочу скопировать файл из папки и записать в определенных строках файла, используя fortran. Я использую Windows, компилятор GNU fortran. Вот пример файла и кода. file1.txt

1 * 
2 ** 
3 *** 
4 **** 
5 ***** 
6 ****** 
7 ******* 
8 ******** 
9 ********* 
10 ********** 

Вот код: я определил некоторые переменные. Только если совпадают два критерия (конкретное значение переменной и номер строки), я хочу записать в новый текст в файле. Я попытался использовать команду system для копирования, но это не удается. Может ли кто-нибудь сказать мне правильный способ использования этого? И программа получила время выполнения ошибки FORMAT present for unformatted text

program read 

    integer :: a,b,c,d,e 
    CHARACTER (LEN=200) :: str 

    a=0 
    b=1 
    c=0 
    d=1 
    e=0 

    !call system ("copy" // "D:\test1\file1.txt"," ", // "D:") 
    !This command fails 

    open (unit=10, file="file1.txt", access="direct", & 
form="unformatted", action="readwrite", recl=100) 

    do i=1,10,1 
    read (10,*) str 

    if(a==0 .AND. i==3) then 
     write(10,100) 'This is ',i,' line' 
    else if(b==0 .AND. i==4) then 
     write(10,100) 'This is ',i,' line' 
    else if(c==0 .AND. i==5) then 
     write(10,100) 'This is ',i,' line' 
    else if(d==0 .AND. i==6) then 
     write(10,100) 'This is ',i,' line' 
    else if(e==0 .AND. i==7) then 
     write(10,100) 'This is ',i,' line' 
    100 format (2a,i0,1X) 
    end if 
    end do 

    close (unit=10) 
end program 

Могу ли я читать и писать в том же файле? Пожалуйста, поделитесь своими комментариями. Я сослался на некоторые вопросы Fortran - How to write data to specific line in the file?, но не мог мне помочь.

Answer 1

В системном вызове есть пара ошибок. Во-первых, вам нужно пространство между copy и первым аргументом. Во-вторых, вам нужен файл назначения, а не только папка. Кроме того, вы должны использовать только конкатенаторы строк //, а не запятые. Например, если вы хотите скопировать на новое имя файла file2.txt, вы можете использовать системный вызов, как это:

call system ("copy " // "D:\test1\file1.txt " // "D:\test1\file2.txt") 

Поскольку вы используете буквенные строки вместо переменных, вы можете упростить его, избавившись от в concatenaters:

call system ("copy D:\test1\file1.txt D:\test1\file2.txt") 

Answer 2

для иллюстрации, вот как направить работу доступа с текстовым файлом:

implicit none 
character*8 x 
! create a test file, all lines 8 characters: 
open(20,file='test.txt') 
x='12345678' 
write(20,'(a)')x 
x='asdfghjk' 
write(20,'(a)')x 
x='qwertyui' 
write(20,'(a)')x 
close(20) 
! open file direct access, note record length is 8+2 because I'm 
! stuck on DOS today with cr/lf line ends 
open(20,file='test.txt',access='direct',recl=10,form='formatted') 
! read whatever we want 
read(20,'(a)',rec=3)x 
write(*,*)'line 3 is',x 
! overwrite a particular line -- note the format is exactly 10 char 
! including the manually added line ending 
write(20,'(f5.2,i3,2a)',rec=2)3.14,42,char(13),char(10) 
end 

результирующего файла:

 
12345678 
3.14 42 
qwertyui