[Débutant] Lecture de fichiers CSV

Lecture de fichiers CSV

BOnjour a tous

Dans le petit bout de code ci-dessous, je lis un fichier CSV ( séparateur (;)) et je place les données dans un datagrid qui se trouve sur ma form
lorsque je lance le code j'ai toujours le message "La référence d'objet n'est pas définie à une instance d'un objet." sur la ligne " Dim StringRow As String() = StringLine.Split(";") "
Et ce a la fin du remplissage du datagrid

Je ne vois pas trop le pourquoi, un peut d'aide sera le bien venu

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
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim StringRead As New StreamReader("c:\test\ATCDPP.CSV")
            Dim StringLine As String = StringRead.ReadLine()
 
            DgMedoc.ColumnCount = 3
 
            Do
                  'Je lis ma ligne
                  StringLine = StringRead.ReadLine
 
                  'Création d'un tableau de type string
                  Dim StringRow As String() = StringLine.Split(";")
 
                  'Je remplis avec comme séparateur le split
                  StringLine = StringRead.ReadLine()
 
                  'je places mes données lu dans un datagrid
                  DgMedoc.Rows.Add(StringRow(0).ToString, StringRow(1).ToString, StringRow(2).ToString)
 
            Loop
 
            StringRead.Close()
 
      End Sub

si la ligne est vide (souvent le cas de la dernière ligne) le split ne retournera pas un tableau
et donc stringrow(0) n'existe pas et donc l'erreur

il convient donc de tester if ligne = "" then exit for

Effectivement Pol, merci de l'info
Je vais ajouter un test de ligne vide ou fin de lecture

Merci encore