Pour remplir ton datagrid
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
| Imports System.IO
Public Shared Function Rempli_datagrid(ByVal path As String,byval dg as datagrid)
'DECLARER un lecteur de fichier
Dim monlecteur As StreamReader
Dim myArray As Array
dim val as string
'DECLARER une collection pour les lignes du fichier
Try
'path est le chemin complet du fichier à lire
monlecteur = New StreamReader(path)
With monlecteur
'POSITIONNER le flux au début du fichier
.BaseStream.Seek(0, SeekOrigin.Begin)
'TANT QUE le lecteur a quelquechose à lire
While (.Peek > 0)
myArray = Split(.ReadLine, ":")
For j as integer = 0 To myArray.Length - 1
val = myArray(j)
dg.Item(row, column) = val
next
End While
End With
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
'FERMER le lecteur en tout etat de cause
monlecteur.Close()
End Try
End Function |
ensuite dans un sub quelconque tu rentres
Rempli_datagrid(chemin de ton fichier,nom d ton datagrid)
Partager