fichier .txt dans un datagridview

Version imprimable

Bonjour,

je souhaite afficher des informations issus d'un fichier texte dans un datagridview.
Le fichier texte se présente de la forme suivante dans tout les cas, chaque action est faite par un retour à la ligne, et comporte la date, l'heure et la nature de l'opération, voici l'exemple :

Citation:

28/02/2013=!=23:52:11=!=Ouverture de l application
28/02/2013=!=23:52:28=!=Initialise la carte de comptage
28/02/2013=!=23:52:28=!=Initialise la carte ProfilBUS
28/02/2013=!=23:52:31=!=Ouverture de la fenetre gestion

Donc dans mon datagridview je compte crée 3 colonnes, une date, une heure et une opération, voici mon code qui ne fonctionne pas :
Code:

1 2 3 4 5 Dim separation As String = "=!=" Dim Elements As String() = Split(File.ReadAllText(My.Settings.path_static & "\log.txt"), separation) For i As Integer = 0 To Elements.Length - 1 DataGridView1.Rows.Add(i) Next
si vous avez une idée !

Code:

1
2
3
4
5
6
7
Dim lineseparation AsString = Environment.NewLine 
Dim columnseparation AsString = "=!="
Dim Elements AsString() = Split(File.ReadAllText(My.Settings.path_static & "\log.txt"), lineseparation)
For i AsInteger = 0 To Elements.Length - 1
  DataGridView1.Rows.Add(Elements[i].Split(columnseparation)) ;      
Next

j'ai essayé ton code, mais ça ne fonctionne pas :

Code:

1
2
3
4
5
6
        Dim lineseparation As String = Environment.NewLine
        Dim columnseparation As String = "=!="
        Dim Elements As String() = Split(File.ReadAllText("C:\Users\laurent\Documents\static\log.txt"), lineseparation)
        For i As Integer = 0 To Elements.Length - 1
            DataGridView1.Rows.Add(Elements(i).Split(columnseparation))
        Next

peut etre parce qu'on split avec '=!=' sans signaler les nombre de colonne ni leur affectation

01/03/2013, 16h31
Graffito

As-tu auparavant créé 3 colonnes de type String dans la DataGridView ?
01/03/2013, 16h48
gastoncs

non tu veu dire ceci :

Citation:

Dim col_date as string
Dim col_heure as string
Dim col_operation as string

Mais aprés comment les inclure ? dans le tableau ?

Aux fautes de syntaxe VB près (je ne pratique pas VB):

Code:

1
2
3
4
5
Dim ColDate as DataGridViewTextBoxColumn = new DataGridViewTextBoxColumn()
ColDate.Name="Date" 
ColDate.HeaderText="Date" 
DataGridView1.Add(ColDate)
// idem pour heure et operation

ok, merci, malheureusement je n'arrive pas afficher les entrées de mon fichier texte dans le datagridview1, seul les colonnes apparaissent correctement, pourtant le fichier texte est présent avec les caractére '=!='

voila mon code au complet au chargement de la fenetre

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
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TopMost = True
        Dim ColDate As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColDate.Name = "Date"
        ColDate.HeaderText = "Date"
        DataGridView1.Columns.Add(ColDate)
        Dim ColHeure As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColHeure.Name = "Heure"
        ColHeure.HeaderText = "Heure"
        DataGridView1.Columns.Add(ColHeure)
        Dim ColEven As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColEven.Name = "Evenement"
        ColEven.HeaderText = "Evenement"
        DataGridView1.Columns.Add(ColEven)
 
        'on insére les données issu du fichier texte
 
        Dim lineseparation As String = Environment.NewLine
        'Dim columnseparation As String = "=!="
        Dim Elements As String() = Split(File.ReadAllText("C:\Users\laurent\Documents\static\log.txt"), lineseparation)
        Label1.Text = Elements.Length
        For i As Integer = 0 To Elements.Length
            DataGridView1.Rows.Insert(Elements(i))
        Next
    End Sub

ps : il s'agit de la bonne adresse du fichier texte, bizarre

Bonsoir,
si vous suivez bien les indications de Graffito, le code doit ressembler à ça et devrait fonctionner :

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
27
28
29
30
31
32
33
34
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TopMost = True
        Dim ColDate As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColDate.Name = "Date"
        ColDate.HeaderText = "Date"
        DataGridView1.Columns.Add(ColDate)
        Dim ColHeure As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColHeure.Name = "Heure"
        ColHeure.HeaderText = "Heure"
        DataGridView1.Columns.Add(ColHeure)
        Dim ColEven As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColEven.Name = "Evenement"
        ColEven.HeaderText = "Evenement"
        DataGridView1.Columns.Add(ColEven)
 
        Dim lineseparation As String = Environment.NewLine
        Dim columnseparation As String = "=!="
        Dim Elements As String() = Split(File.ReadAllText("C:\Users\laurent\Documents\static\log.txt"), lineseparation)
 
        For i As Integer = 0 To Elements.Length - 1
            DataGridView1.Rows.Add(Elements(i).Split(columnseparation))
        Next
 
        'on insére les données issu du fichier texte
 
        'Dim lineseparation As String = Environment.NewLine
        ''Dim columnseparation As String = "=!="
        'Dim Elements As String() = Split(File.ReadAllText("C:\Users\laurent\Documents\static\log.txt"), lineseparation)
        ''Label1.Text = Elements.Length
        'For i As Integer = 0 To Elements.Length
        '    DataGridView1.Rows.Insert(Elements(i))
        'Next
 
    End Sub

01/03/2013, 21h05
gastoncs

oui effectivement j'avais tenté une modifs, merci pour l'info. et merci à tous pour avoir pris du temps afin de m'aider . :ccool:
Bonne soirée

petit correctif , ça ira mieux ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim ColDate As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColDate.Name = "Date"
        ColDate.HeaderText = "Date"
        DataGridView1.Columns.Add(ColDate)
        Dim ColHeure As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColHeure.Name = "Heure"
        ColHeure.HeaderText = "Heure"
        DataGridView1.Columns.Add(ColHeure)
        Dim ColEven As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
        ColEven.Name = "Evenement"
        ColEven.HeaderText = "Evenement"
        DataGridView1.Columns.Add(ColEven)
 
        Dim lineseparation As String = Environment.NewLine
        Dim columnseparation() As String = {"=!="}
        Dim Elements As String() = Split(File.ReadAllText("C:\Users\laurent\Documents\static\log.txt"), lineseparation)
 
        For i As Integer = 0 To Elements.Length - 1
            DataGridView1.Rows.Add(Elements(i).Split(columnseparation, StringSplitOptions.None))
        Next

String.Split, méthode (String(), StringSplitOptions)