Message d'erreur : La référence d'objet n'est pas définie

Version imprimable

Bonjour,

J'ai un fichier que je lit et je ne veut ré-enregistrer qu'a partir de la 5éme ligne. J'utilise donc un compteur pour sa voir ou je me trouve dans mon fichier.

Arrivé a ce point, je SPLIT les lignes aux "*" et je choisis les morceaux que je veut.

Mais il m'affiche un message d'erreur que je trouve complétement hors sujet, et je n'arrive donc pas a trouver le problème...

Voici mon code

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
 
 
        Dim i As Integer = 0
        Dim Chemin As String
        Dim result As String()
        Dim Fichier As String = ""
 
        Chemin = "c:\test2\" & Me.CB_CODE.SelectedItem & ".txt"
 
        Try
 
            Dim monStreamReader As New StreamReader(Chemin)
            Dim ligne As String
            ligne = monStreamReader.ReadLine()
 
            Do
 
                ligne = monStreamReader.ReadLine()
 
                If i > 4 Then
 
                    While ligne <> ""
 
                        ligne = monStreamReader.ReadLine()
                        result = ligne.Split("*")
                        Fichier = Fichier & result(0) & ";" & result(8) & ";" & vbCrLf
 
                    End While
 
                End If
 
                i = i + 1
 
            Loop Until ligne Is Nothing
 
            monStreamReader.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        End Try

Message d'erreur :

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

D'après des MsgBox de contrôle, j'ai pu m'apercevoir que la variable Fichier se remplissais correctement...

Merci d'avance,
Cordialement.

22/02/2010, 09h52
Samuel Blanchard

Bonjour,

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

Cette erreur signifie qu'un de tes objets est à null et que tu tentes d'utiliser une méthode sur celui-ci.
Peux-tu nous fournir la StackTrace de l'erreur (numero de ligne) ?
22/02/2010, 10h00
majo59

L'erreur se produit après avoir lu toute les lignes non-vides ( <> "" )

Il lit toute les ligne puis affiche l'erreur.

Et lorsque que je supprime ce qu'il y a à l'intérieur du While, plus de message d'erreur.
22/02/2010, 10h06
Samuel Blanchard

Peux tu envoyer la StackTrace quand même :)
22/02/2010, 10h12
majo59

comment je fait pour la récupérer?

Voila comment on récupère "une trace de pile" d'une exception :

Code:

1
2
3
4
5
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
            MsgBox(ex.StackTrace.ToString())
        End Try

22/02/2010, 10h25
majo59
Voilà ce qu'il y a marqué dans la msgbox:
Code:

1 2 "à Nom_appli.Form3.BT_EXPORTER_click(object sender, eventargs e) dans C:\...\Form3.vb: ligne 256"
Et la ligne 256 correspond à

Code:

result = ligne.Split("*")

du while.

Voilà ce qui pose problème
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ligne = monStreamReader.ReadLine() Do ligne = monStreamReader.ReadLine() If i > 4 Then While ligne <> "" ligne = monStreamReader.ReadLine() ...
Si, à la limite on excepte le premier, (mais si le fichier était totalement vide, cette ligne planterait automatiquement) à chaque tour de boucle Do, tu lis les lignes 2 par 2, et surtout sans tester à aucun moment si tu es arrivé à la gin du fichier.
Donc lorsque c'est le cas, ligne vaut Nothing, et donc ton Split plante.

22/02/2010, 10h35
Samuel Blanchard
Voila ce qui se passe :
Code:

1 2 3 ligne = monStreamReader.ReadLine() result = ligne.Split("*")
ta méthode ReadLine te retourne une valeur vide (nothing) dans ligne car il n'a plus rien à lire sans doute. donc lorsque tu veux faire un Split de ta variable ligne, il est pas content, car Split de rien c'est mal :)

pour contrer ce problème il faut juste tester la valeur de ligne avant de Splitter
Code:

1 2 3 4 5 6 If ligne IsNot Nothing Then ' la tu fais ton split et le reste ligne = monStreamReader.ReadLine() result = ligne.Split("*") End If
22/02/2010, 10h36
Samuel Blanchard

Je vois que Sehnsucht a été plus rapide que moi.
22/02/2010, 10h43
majo59

Merci pour ton aide ;)

J'ai trouvé moi même après le message de la StackTrace!

Et c'est maintenant logique :D

Je ne connaissait pas du tout cette StackTrace, mais ça va m'être très utile maintenant.

Merci encore.

édit: merci aussi à Sehnsucht, je n'avait pas vu son message ^^
22/02/2010, 10h49
Sehnsucht

@majo59
De rien, mais il reste encore beaucoup de choses potentiellement "plantables" dans ton code ou tout du moins, pas bien joli-joli.

Si jamais tu as une erreur tu passe dans ton Catch, mais tu ferme donc jamais ton StreamReader.
Ta concaténation avec resultat(8) ... que se passe-t-il s'il n'y a pas assez d'éléments dans resultat (je me doute que Toi tu sais, qu'il y en a assez, mais rien ne dis que le fichier n'a pas été modifié à la main par quelqu'un "en ton absence").
Toujours sur cette concaténation, C'est toujours mieux de passer par un StringBuilder, pour gérer les fichier textes.
22/02/2010, 10h52
Samuel Blanchard
Heureux de t'avoir fait progresser :)

En revanche prend bien en compte les remarques de Sehnsucht.
Tu cours potentiellement un rique avec la ligne suivante si ton fichier est vide par exemple :
Code:

1 2 While ligne <> ""
il faudrait que tu fasse un test pour vérifier que ligne est différent de nothing avant de commencer ta boucle.

Bon courage !
22/02/2010, 11h03
majo59

Merci pour vos conseils.

je connait bien toute les erreurs potentielle qui traine... surtout a cause de la lecture...

Je ne suis pas expert en VB.NEt et j'essaye de sécurisé le maximum. Mais je voit bien qu'il me reste pas mal de progrès a faire :P

C'est vrai que mon programme marche a la perfection seulement si personne ne vient s'amuser à changer les fichier.

Merci encore pour vos conseils ;)

Je te conseille d'essayer quelque chose comme ceci (peut-être pas parfait à 100% j'ai fait vite :D)

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
 
Dim chemin As String = String.Format("C:\test2\{0}.txt", Me.CB_CODE.SelectedItem)
 
If Not IO.File.Exists(chemin) Then
    MessageBox.Show(String.Format("Fichier `{0}` introuvable.", chemin))
    Exit Sub
End If
 
Dim ligne As String
Dim elements() As String
Dim compteur As Integer = 0
Dim sB As New StringBuilder()
 
Using sR As New StreamReader(chemin)
    Try
        Do Until sR.EndOfStream
            If compteur <= 4 Then
                compteur += 1
                Continue Do
            End If
            ligne = sR.ReadLine()
            elements = ligne.Split("*"c)
            If elements.Length >= 9 Then
                sB.AppendFormat("{0}{1}", elements(0), elements(8))
                sB.AppendLine()
            Else
                'TODO: Gérer le cas où il n'y a pas assez d'éléments
            End If
        Loop
        'TODO: Remplacer ici, le Catch général sur une Exception quelconque par des Catch spécifiques aux types d'érreurs susceptibles d'être rencontrés, et laisser à la rigueur le Catch général en dernier.
    Catch ex As Exception
        'TODO: Ne garder la MessageBox (et surtout bannir MsgBox qui n'est là que pour la compatibilité VB6) que pour le débug et la remplacer par une écriture dans un fichier log par exemple.
        MessageBox.Show(ex.Message)
    Finally
        If sR IsNot Nothing Then sR.Close()
    End Try
End Using

22/02/2010, 11h24
majo59

Oui mais le truc du File.Exist, c'est inutile, car le fichier est sélectionné à partir d'une ComboBox répertoriant les fichier existants. Donc si il à était sélectionné, c'est qu'il existe ;)
22/02/2010, 17h18
Sehnsucht

J'imagine que cette ComboBox est chargée au lancement du formulaire ?

Donc tu lances le programme, il charge la ComboBox, ensuite moi petit malin ^^, je supprime le fichier, et je sélectionne l'entrée toujours présente dans la ComboBox, et bam, ça plante !