Utilisation de la méthode SPLIT()

Bonjour collègues,

Je n'arrive pas à écrire correctement la méthode Split. J'obtiens le
message "La référence d'objet n'est pas définie à une instance d'un
objet". L'aide locale ou en ligne ne m'a pas été d'un grand secours.

Bonjour collègues,

Dans ma form j'ai un contrôle DataGridView nommé dgvRuban.
Dans un fichier texte j'ai les valeurs de chaque ligne du DataGrid séparées
par le caractère point-virgule, chaque ligne étant séparée par un retour
chariot.

Je veux récupérer les valeurs en utilisant la méthode Split de façon à
placer chaque valeur dans la colonne du DataGrid qui lui correspond. Je
n'arrive pas à écrire correctement la méthode Split. J'obtiens le message
"La référence d'objet n'est pas définie à une instance d'un objet". L'aide
locale ou en ligne ne m'a pas été d'un grand secours.

Une aide serait très appréciée.

Vous trouverez mon code après ma signature.

Merci!

Guy Lafrenière



Private Sub Ouvrir_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles Ouvrir.Click

Dim strNomFichier As String, strLigne As String, strData As String()

strNomFichier = "C:Valeurs.txt"

' Vider le contenu précédent du DataGrid et repartir de rien.
With dgvRuban
.RowCount = 1
.Height = intRubanHeight ' Hauteur d'une ligne du DataGrid
.Top = intRubanTop ' Propriété Top du DataGrid
intCurrentRow = 0 ' Pour référence ailleurs dans le
programme
End With

Using sr As StreamReader = New StreamReader(strNomFichier)

Do
strLigne = sr.ReadLine()
strData = strLigne.Split(New [Char]() {";"c})
AddRow() ' Méthode personnelle pour ajouter une ligne au
DataGrid
' et en définir le style. Cette méthode
ajoute 1 à la valeur
' de la variable intCurrentRow à chaque
passage.
With dgvRuban
.Rows(intCurrentRow).Cells(0).Value = strData(0)
.Rows(intCurrentRow).Cells(1).Value = strData(1)
.Rows(intCurrentRow).Cells(2).Value = strData(2)
.Rows(intCurrentRow).Cells(3).Value = strData(3)
End With
Loop Until strLigne Is Nothing

sr.Close()

End Using

End Sub

Bonjour collègues,

Dans ma form j'ai un contrôle DataGridView nommé dgvRuban.
Dans un fichier texte j'ai les valeurs de chaque ligne du DataGrid
séparées par le caractère point-virgule, chaque ligne étant séparée par un
retour chariot.

Je veux récupérer les valeurs en utilisant la méthode Split de façon à
placer chaque valeur dans la colonne du DataGrid qui lui correspond. Je
n'arrive pas à écrire correctement la méthode Split. J'obtiens le message
"La référence d'objet n'est pas définie à une instance d'un objet". L'aide
locale ou en ligne ne m'a pas été d'un grand secours.

Une aide serait très appréciée.

Vous trouverez mon code après ma signature.

Merci!

Guy Lafrenière



Private Sub Ouvrir_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles Ouvrir.Click

Dim strNomFichier As String, strLigne As String, strData As String()

strNomFichier = "C:Valeurs.txt"

' Vider le contenu précédent du DataGrid et repartir de rien.
With dgvRuban
.RowCount = 1
.Height = intRubanHeight ' Hauteur d'une ligne du DataGrid
.Top = intRubanTop ' Propriété Top du DataGrid
intCurrentRow = 0 ' Pour référence ailleurs dans
le programme
End With

Using sr As StreamReader = New StreamReader(strNomFichier)

Do
strLigne = sr.ReadLine()
strData = strLigne.Split(New [Char]() {";"c})
AddRow() ' Méthode personnelle pour ajouter une ligne au
DataGrid
' et en définir le style. Cette méthode
ajoute 1 à la valeur
' de la variable intCurrentRow à chaque
passage.
With dgvRuban
.Rows(intCurrentRow).Cells(0).Value = strData(0)
.Rows(intCurrentRow).Cells(1).Value = strData(1)
.Rows(intCurrentRow).Cells(2).Value = strData(2)
.Rows(intCurrentRow).Cells(3).Value = strData(3)
End With
Loop Until strLigne Is Nothing

sr.Close()

End Using

End Sub