| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 
 | Dim table As New DataTable()
Using reader As New StreamReader(cheminDuFichier)
 
    Dim header As String = reader.ReadLine()
    Dim columnNames As String() = header.Split(";")
    For Each columnName As String In columnNames
        table.Columns.Add(columnName, GetType(String))
    Next
 
    Dim line As String = reader.ReadLine()
    While line IsNot Nothing
 
        Dim fields As String() = line.Split(";")
        Dim row As DataRow = table.NewRow()
        For i As Integer = 0 To fields.Length - 1
            row(i) = fields(i)
        Next
 
        line = reader.ReadLine()
    End While
 
End Using | 
Partager