Edition et modification de fichier

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

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

Code:

---

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:

---

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 ...

---

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:

---

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:

---

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:

---

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.

Salut !

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

Code:

---

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