copier ligne fichier1 vers fichier 2

bonjour a tous. j'aurais besoin de votre aide.

j'ai un fichier, contenant des lignes de texte. je souhaiterais extraire par exemple les lignes 5 à 1000 vers un fichier 1 et 1500 a 2000 vers un fichier 2 en fortran.

quelqu'un aurait il une idée ?


merci

Pas optimisé du tout, mais l'idée est là, à toi d'améliorer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

integer :: n character(len=10000) :: montampon   open(10,file="Monfichier0")   ! Je me décale de 4 lignes pour arriver sur la 5ième (on ne lis rien) do n=1,4 read(10,*) end do   ! Première Partie open(11,file="Fichier1") do n=5,1000 read(10,*) montampon write(11,*) trim(adjustl(montampon)) end do close(11) close(10)   open(10,file="Monfichier0") ! Je me décale de 1499 lignes do n=1,1499 read(10,*) end do   ! Seconde Partie ! Première Partie open(12,file="Fichier2") do n=1500,2000 read(10,*) montampon write(12,*) trim(adjustl(montampon)) end do close(12) close(10)

---

adjustl permet de décaller à fond vers la gauche la chaine de cartactère, et trim ne garde que ce qui contient un caractère autre que espace ou nul, pour éviter d'avoir des lignes de 10000 charactères de long.

Cette méthode est moche et lente. plus d'infos ici http://fortran.developpez.com/faq/?page=section5

Tu peut aussi lire l'ensemble du fichier d'un coup en mémoire, puis l'écrire d'un coup, c'est nettement plus rapide (tu fait un tableau de character)

un grand merci !!

Bonjour,

Une remarque en passant: attention au spécificateur de format '*' pour la lecture:

Code:

---

1 2	read(10,*) montampon

---

La lecture se fera alors jusqu'au premier séparateur (typiquement un espace) rencontré.
Il est préférable de faire

Code:

---

1 2	read(10,'(a)') montampon

---

si on veut éviter ce genre de troncature.

Effectivement, je n'ai pas fait attention, autant pour moi ;)