Remplir un datagridview à partir d'un fichier texte

Version imprimable

06/09/2010, 12h26
solim

Remplir un datagridview à partir d'un fichier texte

Bonjour,
Je cherche comment importer les données d'un fichier texte dans un contrôle datagridview. Mon fichier texte contient deux colonnes de données séparées par des tabulations et mon contrôle datagridview 2 colonnes également.
Je souhaiterais également pouvoir enregistrer dans le fichier texte toutes les modifications apportées au datagridview.
Est-ce que quelqu'un aurait déjà réalisé un truc comme ca ?
Merci pour votre aide
06/09/2010, 12h34
methylene

Salut,

Crées un simple Tableau (bien évidemment il faudra redimensionner ton tableau au fur et à mesure sauf si tu connais le nombre de ligne totales)

Code:

Dim MyTab

Ensuite parcoures chaque lignes de ton fichier texte en faisant un "Split" sur la tabulation, et remplit y ton Tableau.

Enfin lies ton tableau à la DGV.

Pour les méthodes c'est ici

Bon courage !
06/09/2010, 16h39
chrismonoye

Bonjour,
sans créer de tableau, on peut lire le fichier ligne par ligne avec un StreamReader, y extraire les chaines entre "tab" et les ajouter au DGV dans la foulée .
06/09/2010, 18h24
methylene

L'avantage du tableau, c'est que tu peux retravailler tes valeurs, alors que en affichage direct il faudra de toute façon stocker les valeurs quelquepart !

En gros ce que te propose Chris :

Extraction --> Affichage

Ce que je te propose :

Extraction --> Stockage Temporaire (exécution de l'application) --> Affichage

Après tout dépend ce que tu veux faire.

Bonsoir methylene,
c'est vrai j'y suis allé façon bourrin, premier degré avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub LoadDgv(ByVal dgv As DataGridView, ByVal fichier As String)
 
        dgv.ColumnCount = 2
 
        '***Adapter le chemin selon localisation du fichier concerné.
        Dim fichierALire As String = Application.StartupPath & "\" & fichier
        '***Chaines d'une ligne.
        Dim champs() As String
        '***Lecteur
        Dim sr As New StreamReader(fichierALire)
 
        '***lit les lignes, extrait les chaines entre "tab" et les ajoute
        '   au DGV.
        While Not sr.EndOfStream
            Dim ligne As String = sr.ReadLine()
            champs = ligne.Split(CChar(vbTab))
            dgv.Rows.Add(champs)
 
        End While
 
    End Sub

Même éphémèrement, c'est stocké, mais enfin bon.
Par contre pour un fichier lourd, il doit être intéressant de stocker pour faire une recherche avant affichage.
D'où l'intérêt de ta façon de faire.
Il me semble que Pol63 est de retour.