Discussion :

[gastoncs]

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Graffito]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 

[gastoncs]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Graffito]

As-tu auparavant créé 3 colonnes de type String dans la DataGridView ?

[gastoncs]

non tu veu dire ceci :

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

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

[Graffito]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gastoncs]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chrismonoye]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gastoncs]

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

[chrismonoye]

petit correctif , ça ira mieux ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)