Afficher une donnée contenue dans une liste de class

Version imprimable

Bonjour,
Grâce à ceux qui m'ont déjà aidé sur ce forum, j'ai pu comprendre comment mémoriser les données contenues dans un fichier texte. Le code est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Class Form1 Dim Ts As New List(Of T) Private Class T Public Tx As Integer Public Ty As Integer End Class Dim Test As New T Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DataLine() as string = System.IO.File.ReadAllLines(OpenCameraMotionFileDialog.FileName) For Each l As String In DataLine Test.Tx = CInt(Split(l, "|")(1)) Test.Ty = CInt(Split(l, "|")(2)) Ts.Add(Test) End If Next End If Call DisplayData() End Sub End Class
Avec ça, j'ai mémorisé dans la classe Test les données Tx et Ty, puis mémorisé dans Ts autant de class Test qu'il y a de lignes dans le fichier texte. Mon problème est que je ne parviens pas à afficher les valeurs contenues dans une ligne précise du fichier texte. Je pensais y arriver facilement en ajoutant avant le End Class le module suivant :
Code:

1 2 3 4 5 Private Sub DisplayData() Test = Ts.Item(2) Label1.Text = Test.Tx Label2.Text = Test.Ty End Sub
Mais seules les données de la dernières ligne du fichier texte s'affichent, et je ne comprend pas pourquoi. A priori Test=Ts.item(0) devrait mémoriser dans Test la première ligne de la liste Ts, pas la dernière... Comprends vraiment pas. Merci de m'éclairer de vos lumières.

Bonjour,
C'est aussi une histoire de portée de variable.
"Test" en global remplace à chaque tour, toutes les valeurs des items de la liste par sa dernière valeur. Tuas donc une liste d'items de même valeur.
Comme cela ça 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
    Dim Ts As New List(Of T)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim OpenCameraMotionFileDialog As New OpenFileDialog()
        OpenCameraMotionFileDialog.Title = "Please Select a File"
        OpenCameraMotionFileDialog.InitialDirectory = "C:\\Program Files (x86)/MCSM"
        OpenCameraMotionFileDialog.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If OpenCameraMotionFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim DataLine() As String = System.IO.File.ReadAllLines(OpenCameraMotionFileDialog.FileName)
            For Each l As String In DataLine
                If InStr(1, l, "--") = 0 Then 'beginning of body data reading
                    Dim t As New T
                    t.f = CInt(Split(l, "|")(0))
                    t.Tx = CInt(Split(l, "|")(1))
                    't.Ty = CInt(Split(l, "|")(2))
                    Ts.Add(t)
                End If
 
            Next
        End If
       DisplayData()
 
    End Sub
 
    Private Sub DisplayData()
        Dim tst As T = Ts.Item(1)
        Label1.Text = CStr(tst.f)
        Label2.Text = CStr(tst.Tx)
    End Sub

A tester.

30/03/2011, 15h33
mBlast

AAAHHHHHH.... Merci Chrismonoye, tu m'enlèves une sacrée épine du pied et en plus je viens de comprendre un peu mieux le problème de la portée des variables grâce à toi.... Merci :ccool: