import fichier csv dans une datatable et gridview

Version imprimable

Bonjour à tous,
J'importe un fichier csv dans une gridview à l'aide du code suivant, jusqu’à la tous va bien :

Code:

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
  Dim csvPath As String = "C:\TEMP vb\Sample.csv"
 
        'Create a DataTable.
        Dim dt As New DataTable()
 
        dt.Columns.AddRange(New DataColumn(3) {New DataColumn("A", GetType(String)), New DataColumn("B", GetType(String)), New DataColumn("C", GetType(String)), New DataColumn("D", GetType(String))})
        'Read the contents of CSV file.
        Dim csvData As String = File.ReadAllText(csvPath)
 
        'Execute a loop over the rows.
        For Each row As String In csvData.Split(ControlChars.Lf)
            If Not String.IsNullOrEmpty(row) Then
                dt.Rows.Add()
                Dim i As Integer = 0
 
                'Execute a loop over the columns.
                For Each cell As String In row.Split(","c)
                    dt.Rows(dt.Rows.Count - 1)(i) = cell
                    i += 1
                Next
            End If
        Next
 
        'Bind the DataTable.
        GridView1.DataSource = dt
        GridView1.DataBind()

Ce code m’insère les lignes de la première a la dernière, logique , j'aimerai le modifier pour qu'il m’insère la dernière ligne du fichier csv dans la première ligne de la datatable et ainsi de suite .. vu qu'on ne peut pas vraiment insérer
les données en première ligne dans le fichier csv!!! j'aimerai savoir si cela est possible? si c'est la bonne méthode?
Merci de votre aide
Greg

Bon , j'ai trouvé ça sur le net pour écrire a la première ligne du fichier csv, si ça peut aider d'autre personne....

Code:

1
2
3
4
5
6
7
8
   Dim index As Integer
        Dim rdr As StreamReader = File.OpenText("C:\TEMP vb\Sample.csv")
        While Not rdr.EndOfStream
            rdr.ReadLine()
            index += 1
        End While
        rdr.Close()
        File.WriteAllLines("C:\TEMP vb\Sample.csv", New String() {"rrrrr,ttttttt,ttttttt " & index.ToString, File.ReadAllText("C:\TEMP vb\Sample.csv")})

Merci .
Greg

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
Dim csvData As String = File.ReadAllText(csvPath)
dim tableau() as string=csvData.split(ControlChars.Lf)
For i =tableau.count -1 to 0 step -1
For Each cell As String In tableau(i).Split(","c)
                    dt.Rows(dt.Rows.Count - 1)(i) = cell
                    i += 1
                Next
 
Next