Discussion :

[wmenant]

Bonjour à tous,

J'essai tant bien que mal d'afficher une barre de progression pendant la lecture d'un fichier. J'utilise donc un thread avec des délégués pour définir la valeur maximum de la barre de progression, et afficher la progression pendant la lecture.

Le seul problème (qui peut paraître simple surement à vos yeux) et que je n'arrive pas à définir la valeur maximale de la barre de progression, j'ai soit des dépassement de capacité, soit une valeur trop grande...

Voici le code de mon thread :

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
 
            Dim lProcessedLength As Long = 0
            Dim fileLength As Long = 0
            Dim iProgressValue As Long = 0
            Using fs As FileStream = File.Open("C:\fichier.iso", FileMode.Open, FileAccess.ReadWrite)
                fileLength = fs.Length
                Using bs As BufferedStream = New BufferedStream(fs)
                    Using sr As StreamReader = New StreamReader(bs)
                        Dim ligne As String = ""
                        ligne = sr.ReadLine
                        lProcessedLength += ligne.Length
                        iProgressValue = Convert.ToInt32((lProcessedLength / fileLength) * 100)
                        tdlg.ShowProgressPercent(iProgressValue)
                        While ligne IsNot Nothing
                            If cancel = True Then
                                Exit Sub
                            End If
                            lProcessedLength += ligne.Length
                            ' get the percent of the file that we have completed...
                            iProgressValue = Convert.ToInt32((lProcessedLength / fileLength) * 100)
                            tdlg.ShowProgressPercent(iProgressValue)
                            ligne = sr.ReadLine
                        End While
                        sr.Close()
                        sr.Dispose()
                    End Using
                    bs.Close()
                    bs.Dispose()
                End Using
                fs.Close()
                fs.Dispose()
            End Using

Dans ce code, j'ai directement mis la taille du fichier dans la mise à jour de la valeur maximale de la barre de progression (fichier de 4Go) Et le File.lentgh provoque un dépassement de capacité.

Pouvez vous m'aidez s'il vous plait ?

Merci à tous !

[ebastien]

Bonjour,

Plusieurs choses clochent dans ce code :
- La lecture des lignes (ligne = sr.ReadLine) est en dehors de la boucle : La boucle ne fait qu'incrémenter la ProgressBar ??!
- La variable lProcessedLength n'est pas utilisée : La ProgressBar est incrémenté de 1 à chaque boucle et non pas en fonction de lProcessedLength ...

Concernant la valeur max de la ProgressBar, si le fichier peut atteindre 4Go (ça va être long comme traitement !!!) ça va dépasser. Il va falloir utiliser une méthode pour calculer la valeur de progression de la ProgressBar et sa valeur max afin qu'elles soient proportionnelles à la progression de lecture et à la taille du fichier (type pourcentage).

eb.

[Pol63]

tu peux mettre le progressbar.maximum à une valeur autre que la taille du fichier et faire un produit en crois pour trouver la valeur à y mettre

si le progressbar fait 300 pixels de long, mettre 300 en max a un sens dans le sens ou faire avancer de 1 fait avancer d'un pixel (alors que sur 4 millions faire avancer de 1 ne fait pas avancer du tout le progressbar)
tu peux aussi gérer en pourcentage et mettre 100 dans max (ca sera quand même moins fin)
et si tu ne veux t'embeter à gérer le nombre de pixels tu mets arbitrairement 1000 dans max, ca sera fin et simple à calculer

après tu connais le nombre d'octets du fichier et tu connais le nombre d'octets lus
enfin toi tu lis des lignes, mais le nombre d'octets peut en etre déduis

et sinon mettre à jour le progressbar à chaque ligne est une perte de temps, donc surement une perte de performance, le faire toutes les x lignes suffit

[wmenant]

Merci pour vos réponses, j'ai donc modifier la lecture des lignes à l'intérieur de la boucle (c'est vrai que sinon c'était un peu nul comme code ) et j'ai essayer de calculer la progression; J'ai donc ceci :

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
 
Dim lProcessedLength As Long = 0
            Dim fileLength As Long = 0
            Using fs As FileStream = File.Open("C:\fichier.iso", FileMode.Open, FileAccess.ReadWrite)
                fileLength = fs.Length
                Using bs As BufferedStream = New BufferedStream(fs)
                    Using sr As StreamReader = New StreamReader(bs)
                        Dim ligne As String = ""
                        ligne = sr.ReadLine
                        While ligne IsNot Nothing
                            If cancel = True Then
                                Exit Sub
                            End If
                            lProcessedLength += ligne.Length
                            ' get the percent of the file that we have completed...
                            Dim iProgressValue As Integer = Convert.ToInt32((lProcessedLength / fileLength) * 100)
                            tdlg.ShowProgressPercent(iProgressValue)
                            ligne = sr.ReadLine
                        End While
                        sr.Close()
                        sr.Dispose()
                    End Using
                    bs.Close()
                    bs.Dispose()
                End Using
                fs.Close()
                fs.Dispose()
            End Using

Mais le traitement se termine avec une barre remplie à 94%, ai-je oublié quelque chose ?

Merci encore !

[wmenant]

Désolé post en double problème d'envoi de formulaire...

[Pol63]

pas regardé le code mais tu as surement oublié de faire +2 à chaque ligne (un saut de ligne c'est 2 caractères, et vu que tu découpes par ligne ils sont supprimés te ta chaine de caractère)

[ebastien]

Et je reviens sur ce que disait Pol63 :

mettre à jour le progressbar à chaque ligne est une perte de temps, donc surement une perte de performance, le faire toutes les x lignes suffit

Donc, pour gagner en perf, calculer le pourcentage toutes les x lignes et appeler tdlg.ShowProgressPercent uniquement si ce poucentage est réellement modifié ...

[wmenant]

Pol63, même résultat en ajoutant +2 a chaque ligne... Se termine a 94%