Discussion :

[nyme92]

Bonjour,
Je ne sais pas trop si cela doit paraître ici ou dans linux shell car je programme en fortran 77/90 sous linux.
Enfin, qu'on ne m'en veuille pas trop, faut bien commencer quelque part.
Voilà ma question :
Je lis des fichiers via fortran, et de temps à autre il m'en faut changer le contenu.
La plupart du temps il s'agit des x premieres lignes.
Donc il me faut retirer ces lignes et les remplacer par d'autres, qui seront "préparées" par le fortran, sans toucher au reste des données.
Ceci serait assez tarabiscoté en fortran (je me trompe peut-être), le shell et sa puissance peut-il m'aider? Ou autre ?

Merci pour toute réponse.

G

[Sylvain Bergeron]

Si le fichier est à accès direct, la solution Fortran sera très simple. Tu récris simplement les lignes à modifier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
character (len=LongueurDesLignesDuFichier) Ligne
...
do k = 1, x
   Saisie de la nouvelle Ligne
   write(Fichier,rec=k) Ligne
enddo
...

Si le fichier est à accès séquentiel, la solution est moins efficace en Fortran. Il faut créer un nouveau fichier contenant les x nouvelles lignes, et ensuite les lignes x+1 et + du fichier original.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
character (len=AussiLongQueLaPlusLongueDesLignesDuFichier) Ligne
...
! Écriture des x nouvelles lignes
do k = 1, x
   Saisie de la nouvelle Ligne
   write(NouveauFichier,'(a)') trim(Ligne)
enddo
 
! Élimination des x anciennes lignes
do k = 1, x
   Saisie de la nouvelle Ligne
   read(AncienFichier,'(a)') Ligne
enddo
 
! Copie des x+1 et + lignes suivantes
do
   read(AncienFichier,'(a)',ioStat=k) Ligne
   if (k /= 0) exit
   write(NouveauFichier,'(a)') trim(Ligne)
enddo
...

[gregory2526]

effectivement, le shell devrai pouvoir t'aider.

Si tu as un fichier contenant les lignes "preparées" par le fortran (fichierfortran), tu peux compter le nombre de lignes de ton fichier fichierAmodifier (si tu ne le connait pas déjà) en utilisant la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wc -l fichierAmodifier

le résultat qui t'es donné est le nombre de lignes qu'il contient, qu'on va appeler Nb.
tu fais une simple soustraction pour savoir combien de lignes tu dois garder (Nb-X), et tu fais un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tail -n (Nb-X) > fichiertemporaire

cela te permet de copier les (Nb-X) lignes que tu veux conserver dans un fichier.
tu fais ensuite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cat fichierfortran fichiertemporaire > fichierfinal

et tu obtiendra le fichier modifié qui t'interesse.

je n'ai pas testé, car je n'ai pas linux sous la main. mais ça devrai fonctionner.
si tu le fais souvant, tu auras tout intérêt à créer un script shell pour le faire.

Il y a peut-être des méthodes plus simple, mais là, en trois commandes et une soustraction, tu peux obtenir ce dont tu as besoin.

En espérant que ça t'aide.

[FR119492]

Salut !

Si tu fais tout en Fortran, c'est très simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        ...
      Open (1,File='Existant')
      Open (2,File='Nouveau')
      Do k=1,x
        Read (1,'(A)') Old
        Write (2,'(A)') New
      End Do
C
      Do
        Read (1,'(A)'), End=999)  Rest
        Write (2,'(A)') Rest
      End Do
C
  999   ...

Jean-Marc Blanc