Lecture d' un fichier texte pour ListBox

Version imprimable

13/06/2015, 16h24
Cybercope

Lecture d' un fichier texte pour ListBox

Bonjour,

Je bute depuis un certain moment sur un petit problème. :arf:

Je dispose de plusieurs Listbox (8 au total) et j' ai un fichier texte dans lequel j' ai inscrit ligne par ligne le contenu des Listbox :
pour que se soit plus compréhensible, je vais vous donné un exemple :

Listbox1 :

Citation:

1
2
3

Listbox2 :

Citation:

Bonjour
Salut
Ca va

et mon document texte est écrit comme ceci :

Citation:

1
2
3

Bonjour
Salut
Ca va

etc...

Mon problème est que je souhaite, en cliquant sur un bouton, retrouvé les valeur dans mes listBox.
J' utilise l' instruction Readline mais je ne sais pas comment dire au programme de passer au paragraphe suivant dès qu' il rencontre un saut de ligne et de compléter la ListBox suivante avec ce paragraphe.

En espérant que vous ayez compris ma question... :help:

Merci d' avance !!! :D
13/06/2015, 20h20
Graffito
Pour faciliter la procédure, modifier le fichier ainsi:
Code:

1 2 3 4 5 6 Listbox1:1 Listbox1:2 Listbox1:3 Listbox2:Bonjour Listbox2:Salut ...
Après le readline, faire un Split sur la string lue pour récupérer le nom de la ListBox et la valeur à rajouter dans ses items.
Caster en listbox "Me.Controls(ListBoxName)" en utilisant CType.
14/06/2015, 12h10
Cybercope

Bonjour,

Je vous remercie beaucoup de votre réponse. ;)

Cependant, je comprend bien la façon dont je doit écrire mes listbox dans mon .txt :

Citation:

Listbox1:1
Listbox1:2
Listbox1:3
Listbox2:Bonjour
Listbox2:Salut
Listbox2:Ca va

Mais je ne comprend pas la manière de récupérer le nom de la listBox... :alerte:

Merci !!!! :D

Comme ceci ? (je ne code pas en vb.net)

Code:

1
2
3
4
5
Dim textLine As String() = MyStreamReader.ReadLine().Split(":")
Dim listBoxName As String = textLine(0)
Dim listBoxValue As String = textLine(1)
Dim listBox As ListBox = DirectCast(Me.Controls(listBoxName),ListBox)
listBox.Items.Add(listBoxValue)

15/06/2015, 16h12
Cybercope

Merci beaucoup , je teste et je vous dit !

NB: je ne connaissait pas la fonction Split !!! :zoubi:

Voila j' ai essayé mais j' ai une erreur : :pastaper:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sr As New StreamReader(ofd.FileName)
                Dim Split1
                Dim ListValue As String
                Dim ListItm As String

                While sr.Peek >= 0
                    Split1 = sr.ReadLine.Split(":")
                    ListValue = Split1(0)
                    ListItm = Split1(1)
                    Dim listBox As ListBox = DirectCast(Me.Controls(ListValue), ListBox)
                    listBox.Items.Add(ListItm)
                End While

Il me sort l'erreur : L' exception NullReferenceException n' a pas pus être géré, en me surlignant ListBox.Items.Add(ListItm) :alerte:

15/06/2015, 19h24
Graffito

La raison la plus probable est que la ListBox identifiée par ListValue ne soit pas directement dans la Form , mais dans un container (Panel, TabPage, ...).
Dans ce cas, remplacer "Me" par le container parent des ListBox.
15/06/2015, 22h25
Cybercope

Problème résolu merci beaucoup !!! J' ai remplacer Me par Tabpage1 ! 8-)