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 : 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
 
 
        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 :
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.