Je cherche depuis quelque temps à remplir une datagrid pour afficher les données d'un fichier texte structuré en VB.NET.
Pour cela, je remplis une table à 2 dimensions avec les données contenues dans le fichier, mais je n'arrive pas à afficher les données dans la grille de mon formulaire.
voici mon code:
Dim col, lig, nblignes As Integer
Dim tableau(14, lig), texte As String
'On remplie le tableau avec les données du fichier
'On compte le nombre d'associations existantes dans le fichier associations.txt:
Dim lignes() As String = File.ReadAllLines(fichier + ".txt")
nblignes = lignes.Length
'On remplit la table T(,) avec le contenu du fichier
FileOpen(1, fichier + ".txt", OpenMode.Input)
lig = 0
ReDim Preserve tableau(14, nblignes)
While Not lig >= nblignes
lig = lig + 1
texte = LineInput(1)
For col = 0 To 13
tableau(col, lig) = Split(texte, "/")(col)
Next col
End While
FileClose(1)
grille_membres.DataSource = tableau(0, 0)
Si quelqu'un peux m'expliquer, car je ne trouve que des tutos à partir de bases de données SQL, EXCEL, ou autre.
Je précise que mon tableau est bien rempli avec les bonnes données.
De nombreux tutoriels sont présents sur ce site. Si nombreux qu'il faut de la patience pour les trouver. Faut-il s'en plaindre ? Dites-vous bien que si je l'ai trouvé, c'est parce que je l'ai cherché, et que si je vous ai donné les informations au compte-gouttes, c'est précisément pour vous apprendre à chercher.
J'ai accepté la réponse, mais car elle m'a mis sur la voie, mais il a fallu pas mal fouiller après.
Pour éventuellement aider d'autres diminués du bulbe, comme moi, je propose le code final qui fonctionne très bien:
(Pour la compréhension, le datagridview a été nommé dans le formulaire : grille_membres.
Dim col, lig, nblignes As Integer
Dim tableau(14, lig), row(14), texte As String
'On remplie le tableau avec les données du fichier
'On compte le nombre d'associations existantes dans le fichier associations.txt:
Dim lignes() As String = File.ReadAllLines(fichier + ".txt")
nblignes = lignes.Length
nblignes = nblignes - 1
'On remplit la table T(,) avec le contenu du fichier
FileOpen(1, fichier + ".txt", OpenMode.Input)
lig = 0
ReDim Preserve tableau(14, nblignes)
While Not lig > nblignes
texte = LineInput(1)
For col = 0 To 13
tableau(col, lig) = Split(texte, "/")(col)
row(col) = tableau(col, lig)
Next col
grille_membres.Rows.Add(row)
lig = lig + 1
End While
FileClose(1)
