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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question