Discussion :

[depelek]

Bonjour,
J'ai déjà fait des progressbar pour loader un fichier dont je connaissais
le nombre de données (ou de lignes dans mon cas)
Mais mon souci aujourd'hui, c'est de faire la même chose avec un fichier dont je ne connais pas le contenu
Comment avoir une progression correcte si je ne sais pas quand mon fichier va être fini d'être lu?
Merci pour vos infos
A+

[Vesta]

Avec ca:

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
Dim iFileID As Integer
Dim lFileLen As Long
Dim lSizeCount As Long
Dim sLine As String

lSizeCount = 0
ProgressBar1.Max = 100

iFileID = FreeFile ' get next free file id

Open "MyFile.txt" For Input As iFileID
iFileLen = Lof(iFileID) ' get the length of the file
Do
  Line Input #iFileID, sLine ' read the next line
  lSizeCount = lSizeCount + Len(sLine) ' count the number of characters processed
  ProgressBar1.Value = 100 * Int(lSizeCount / lFileLen) ' set the progressbar
Loop Until Eof(iFileID)
Close iFileID