problèmes écriture dans un fichier

Version imprimable

Bonjour,

Partie1
Je crée un fichier 1, j'en lis un autre n°2, j'écris dans le fichier créer, puis je ferme tout le monde.
partie 2
Je réouvre le fichier créer (1) et j'ouvre un fichier n°3 puis je re modifie le fichier créer 1
je ferme tout le monde.

Et apparement quand je fais la partie 2 c'est comme si il n'avait pas fait la partie 1.

exemple : le "write(109,*),'1234d-4' " ne s'affiche pas dans mon fichier 109. Si quelqu'un a compris pourquoi ?

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
36
37
38
39
      open(109,file = titre, status='unknown', form ='formatted')
      open(1, file = 'Dat00210.vel',status='old',form='formatted')
      read(1,*),nrtri
 
!------------- file 1 and vit1 ----------------------------------     
      write(109,*),nrtri
      do i=1,nrtri
         read(1,*) A,B
         if ( abs(A) .gt.v1) then 
            A=res1
            if (abs(B) .gt.v1) then
               B=res1
            endif
         endif
         write(109,*), A,B
      enddo  
      write(109,*),'1234d-4'
 
      close(1)
      close(109)
!------------file 2 and vit1 ------------------------------------
      open(109,file = 'env.vel', status='old', form ='formatted')
      open(1, file = 'Dat00220.vel',status='old',form='formatted')
      read(1,*),nrtri
 
      write(109,*),nrtri
      do i=1,nrtri
         read(1,*) A,B
         if ( abs(A) .gt.v1) then
            A=res1
            if (abs(B) .gt.v1) then
               B=res1
            endif
         endif
         write(109,*), A,B
      enddo  
 
      close(1)
      close(109)

22/10/2009, 17h00
genteur slayer

typiquement comme tu réouvre le fichier 109, tu réécrit dedans au début et donc l'étape 2 efface ce que tu as fait dans l'étape 1...

si tu veux avoir tout il faut écrire dans le fichier 109 à la suite... pour cela dans ton second open tu rajoute position="append"

Voici la modif suite à test conseils, mais rien n'a changé.

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
36
37
38
39
40
  open(109,file = titre, status='unknown', form ='formatted')
      open(1, file = 'Dat00210.vel',status='old',form='formatted')
      read(1,*),nrtri
 
!------------- file 1 and vit1 ----------------------------------     
      write(109,*),nrtri
      do i=1,nrtri
         read(1,*) A,B
         if ( abs(A) .gt.v1) then 
            A=res1
            if (abs(B) .gt.v1) then
               B=res1
            endif
         endif
         write(109,*), A,B
      enddo  
      write(109,*),'123d-4'
 
      close(1)
      close(109)
!------------file 2 and vit1 ------------------------------------
      open(109,file = 'env.vel', status='old', form ='formatted'
     &   ,position = 'append')
      open(1, file = 'Dat00220.vel',status='old',form='formatted')
      read(1,*),nrtri
 
      write(109,*),nrtri
      do i=1,nrtri
         read(1,*) A,B
         if ( abs(A) .gt.v1) then
            A=res1
            if (abs(B) .gt.v1) then
               B=res1
            endif
         endif
         write(109,*), A,B
      enddo  
 
      close(1)
      close(109)

26/10/2009, 12h06
genteur slayer

peut-tu donné un exemple de fichier d'entrée à qq lignes max ainsi que de la sortie que ça te donne...

essaye aussi de ne pas fermer le fichier 109 (et donc de ne pas le ré-ouvrir) entre les deux opérations...