Discussion :

[genteur slayer]

salut,

bon voilà, je suis toujours sur ma barre d'avancement, avec effacement de la ligne (char(8) pour backspace) et, à l'écran no soucis ça marche trop bien mais je l'écris aussi dans un fichier texte et là y a soucis:

au lieu d'effacer, il me rajoute des caractères backspace... du coup j'ai une ligne super longue avec la moitié des caractère qui font des petits carrés

je réouvre ce fichier à chaque fois que jeux veux écrire dedans et le referme, y a t'il un option du open qui me permette de réécrire la dernière ligne?
c'est assez pénible, est-ce que quelqu'un a une idée?

voici la fonction que j'utilise:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
!=======================================================================
! subroutiune de bare d'avancement
!=======================================================================
subroutine WaitBardam(fin,cur,funit,fcount)
  implicit none
  integer, parameter :: ki=kind(1.d0)                                  !dimenssionnement des rééls
  real(ki), intent(in) :: fin,cur
  integer, intent(in) :: fcount
  integer,intent(in),dimension(fcount):: funit
  integer i,fc,av,ios
  integer, parameter :: longligne=78
  open(unit=91,file="sortie.dat",status="old",position="append",action="write",iostat=ios)
  do i=1,longligne                                         				!effacement de la ligne
    do fc=1,fcount
	  write(funit(fc),'(a1,$)')char(8)
	end do
  enddo
  do fc=1,fcount
	write(funit(fc),'(a19,$)')"calcul en route : ["
  end do
  av=int(cur/fin*50)															!curseur entier
  if (av>50) av=50
  !~ open(unit=92,file="deb.dat",status="old",position="append",action="write",iostat=ios)
  !~ write(92,*)fin, cur, av
  !~ close(92)
  Do i=1,av																!on remplit la bare
    do fc=1,fcount
	  if (MOD(i,5)/=0) then
		write(funit(fc),'(a1,$)')'.'
	  else
		write(funit(fc),'(I1,$)')i/5
	  endif
	end do
  end do
  if (av/=50) then
	do i=av,49                      									!on remplit la fin avec des espaces
	  do fc=1,fcount
		write(funit(fc),'(a1,$)')' '
	  end do
	end do
  end if
  av=av*2
  if (av<100) then    													!on est pas au bout:
    do fc=1,fcount
	  write(funit(fc),'(a2,I3,a1,$)')"] ",av,"%"
	end do
  else
	do fc=1,fcount
	  write(funit(fc),'(a9)')"] Terminé"
	end do
  end if
  close(91)
end subroutine WaitBardam
!=======================================================================

note: funit est un tableau contenant 6 et 91 fcount=2

[genteur slayer]

bon bin g trouvé tout seul:

Code :

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

backspace(unit=91)

cela détruit la dernière ligne (position="append" donc en fin de dernière ligne)

si on la rappelle, cela efface la ligne d'avant et ainsi de suite....