Programme ne répond plus.

**twizell** · 14/11/2005, 15h30

Salut,

J'ai appli qui ouvre 1 fichier texte d'environ 15 mo, le lit ligne par ligne, le ferme et lit un autre fichier texte. J'ai mis un progress bar sur ma fenetre pour que l'utilisateur puisse voir le déroulement du processus mais lorsque j'execute l'application, le programme cesse de repondre jusqu'à la fin de la lecture des fichiers.

Qqun pourrait m'indiquer comment évité que le programme cesse de répondre...

Voici mon code:

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
 
            Dim con As New ADODB.Connection
            Dim lsDSN As String
 
            'Nous sélectionnons la connection string
            If txtEnvironnement.Text = "Développement" Then
                lsDSN = "User ID=Username;Password=Pass;Data Source=GEND;"
            Else
                lsDSN = "User ID=Username;Password=Pass;Data Source=GEND;"
            End If
            'Nous ouvrons la connection
            con.Open lsDSN
            Dim Ligne As String
            Dim Table() As String
            'Nous ouvrons le fichier RADIO
            x = 0
            Open txtRep.Text & "\BWIBIKE" For Input As #1
            ProgressBar1.max = FileLen(txtRep.Text & "\BWIBIKE")
            On Error Resume Next
            Do While Not EOF(1)
                Line Input #1, Ligne
                Table() = Split(Replace(Ligne, "'", "''"), ",")
                sql_stmt = "INSERT INTO CIPC (EXP_DATE, STATUT, TYPE_DESC, NO_SERIE_N1, " & _
                "NO_SERIE_N2, ITEM, MARQUE, MODELE, COULEUR_N1, COULEUR_N2, IND, " & _
                "TYPE_OBJET, AJOUT, VITESSE) VALUES (TO_DATE('" & FindInStr(Ligne, 1, 8) & "','yyyymmdd'), '" & Trim(Split(FindInStr(Ligne, 10, 15), ",")(1)) & _
                "', '" & Trim(Split(FindInStr(Ligne, 26, 43), ",")(1)) & "', '" & Trim(FindInStr(Ligne, 70, 16)) & "', '" & Trim(FindInStr(Ligne, 87, 16)) & _
                "', '" & Trim(FindInStr(Ligne, 104, 12)) & "', '" & Trim(FindInStr(Ligne, 117, 16)) & "', '" & Trim(FindInStr(Ligne, 134, 12)) & _
                "', '" & Trim(Split(FindInStr(Ligne, 147, 20), ",")(1)) & "', '" & Trim(Split(FindInStr(Ligne, 168, 20), ",")(1)) & "', '" & Trim(FindInStr(Ligne, 189, 7)) & _
                "', 'RADIO', TO_DATE('" & Date & "','YYYY-MM-DD'), " & Trim(FindInStr(Ligne, 189, 2)) & ")"
                con.Execute sql_stmt
                ProgressBar1.Value = ProgressBar1.Value + 199
                If Err.Description <> "" Then
                    Open App.Path & "\ERREUR.TXT" For Append As #2
                    Print #2, Now() & " --> " & Err.Description
                    Print #2, sql_stmt
                    Print #2, Ligne
                    Print #2, "-------------------------------------------"
                    Close #2
                    Err.Clear
                End If
            Loop
            Close #1

**ouskel'n'or** · 14/11/2005, 15h36

Qqun pourrait m'indiquer comment évité que le programme cesse de répondre...

Qu'appelles-tu "Cesse de répondre ?"
Si c'est le progressBar, tu peux mettre une tempo pour le faire avancer, enfin, tu peux essayer

ProgressBar1.Value = ProgressBar1.Value + 199

A part ça, ton programme fait tout bien normalement ?

A+

**random** · 14/11/2005, 15h36

do events

**twizell** · 14/11/2005, 15h51

Envoyé par ouskel'n'or

Qu'appelles-tu "Cesse de répondre ?"

Elle devient grisse puis le seul bouton qui fonctionne est le x dans le coin droit et quand je clique dans la fenetre du programme, la barre de titre change pour (Ne répond pas)...

**ouskel'n'or** · 14/11/2005, 16h17

Essaie déjà de mettre un End après Close #1

Souvent, lorsqu'un programme travaille, la barre de titre affiche "Ne répond pas". Ce n'est pas forcément significatif. Pour un fichier txt, 15 mo est assez important. As-tu essayé d'aller boire un café avant de faire Ctrl Alt Sup ?

Qu'y a-t-il dans le rapport d'erreurs ?

A+

**Megaxel** · 14/11/2005, 16h21

Ben oui, je suis d'accord (encore!!) avec Ousk:
C'est long, d'ouvrir un fichier de15 Mo. Si tu mets un petit Pop-up juste après le Open de ton fichier texte, tu y arrives?

**zazaraignée** · 14/11/2005, 16h35

Salut

Je suis d'accord avec les gars. De plus, si tu veux avoir quelque chose qui soit significatif pour montrer la progression, dans le cas d'un fichier texte, j'utiliserais un simple message dans une barre d'état du genre: "Lecture de la ligne 1" et j'incrémenterais le numéro de la ligne dans le message.

Pour utiliser un progressBar, il faut connaître la valeur maximale à atteindre ce qui est assez difficile à trouver dans le cas des fichers texte, chaque ligne n'ayant pas la même longueur et ne connaissant pas d'avance le nombre de lignes. Tout ce qu'on sait, c'est le nombre d'octets. À la limite, tu peux compter les caractère (un caractère = un octet) d'une ligne et les soustraire du nombre d'octets du fichier...

Xo · 14/11/2005, 17h17

Envoyé par zazaraignée

Tout ce qu'on sait, c'est le nombre d'octets

Yes, un p'tit lien :
http://vb.developpez.com/faq/?page=Fichiers#taille_fic

**twizell** · 14/11/2005, 17h30

Le programme ne plante pas, il ne repond plus... Si je le laisse aller, il fonctionne sauf que la barre de progression n'est pas visible.

Essaie déjà de mettre un End après Close #1

Je ne met pas de end car je refait la meme boucle 5 fois sur 5 fichiers différents.

Je sais que chaque ligne que je lit fait 199 octets donc pour la progresse bar, je n'ai pas de problème pour l'incrémenter.

Ce que j'aimerais c'est que le programme n'affiche pas (Ne répond pas...) à l'utilisateur et que l'écran devienne pas grisse...

Comment déterminer la quantité de mémoire que mon programme à besoin pour rouler sur un pc?

**Megaxel** · 14/11/2005, 17h49

Mais on a bien compris que le prog n'est pas planté. A mon avis, il est entrain d'ouvrir le fichier texte

Code :

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

1
2
 
Open txtRep.Text & "\BWIBIKE" For Input As #1

quand il met le "ne répond pas".
Et si tu mets ta ligne "ProgressBar1.max = ... " avant le "Open txtRep.Text", ça affichera la barre et ça fera patienter l'utilisateur. Même si elle ne bouge pas pendant un moment...

**zazaraignée** · 14/11/2005, 18h02

Et si en revenant de ta pause café, ça ne semble toujours rien faire, vérifie s'il n'y a pas une boucle qui tourne à vide, donc indéfiniment... C'est un problème très courant. Tellement que des fois, on n'y pense plus...

Xo · 14/11/2005, 18h42

Envoyé par random

Doevents

La réponse de random, quoiqu'un peu succinte, donne je crois la solution : place cette instruction dans ta boucle, après l'affectation de sa nouvelle valeur à ta Progress Bar par exemple, et ça devrait marcher mieux

**twizell** · 14/11/2005, 19h46

Merci!!! Le DoEvents fonctionne parfaitement!!!

Programme ne répond plus.

VB 6 et antérieur

Discussions similaires

Partager

Partager