copier ligne fichier1 vers fichier 2

**del549** · 15/07/2013, 18h09

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

**moomba** · 16/07/2013, 14h39

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

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