Lire un txt dans une listbox

cs_ShaoKhan Messages postés 13 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 8 août 2002 - 27 avril 2002 à 16:45
TFlorian Messages postés 194 Date d'inscription dimanche 3 mars 2002 Statut Membre Dernière intervention 19 décembre 2005 - 27 avril 2002 à 19:41
je voudrais savoir comment lire un txt dans une listbox.

Genre la 1re ligne du txt = la 1re ligne du listbox
La 2e ligne du txt = la 2e ligne du listbox

et ainsi de suite...

Merci %-6

3 réponses

TFlorian Messages postés 194 Date d'inscription dimanche 3 mars 2002 Statut Membre Dernière intervention 19 décembre 2005 3
27 avril 2002 à 17:28
Bonjour,

voila qui devrais t'aider :

Private Sub Form_Load()
' Remplit List1 et le tableau ItemData à l’aide
' des éléments correspondants triés.
List1.AddItem "Lucie Gombaud"
List1.ItemData(List1.NewIndex) = 42310
List1.AddItem "Véronique Le Goff"
List1.ItemData(List1.NewIndex) = 52855
List1.AddItem "Marie-Louise Vierne"
List1.ItemData(List1.NewIndex) = 64932
List1.AddItem "François Rhein"
List1.ItemData(List1.NewIndex) = 39227
End Sub

Private Sub List1_Click()
' Ajoute le numéro et le nom de l’employé.
Msg = List1.ItemData(List1.ListIndex) & " "
Msg = Msg & List1.List(List1.ListIndex)
Label1.Caption = Msg
End Sub

Tu colle ca dans une nouvelle form,
tu met
- un listbox
- un label

F5, tu selectionne une des lige et tu clique sur la form...

regarde la caption de ta form ;-)

TFlorian
0
cs_ShaoKhan Messages postés 13 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 8 août 2002
27 avril 2002 à 18:17
Eh bien je parlais de copie rle texte d'un fichier .txt et de le transférez dans une listbox...

Merci quand même cela m'a aider un peu mais si tu connais la vraie réponse eh bien dit moi le...
0
TFlorian Messages postés 194 Date d'inscription dimanche 3 mars 2002 Statut Membre Dernière intervention 19 décembre 2005 3
27 avril 2002 à 19:41
Bonjour,

j'avais pas compris ;-)

Open "c:\toto.txt" For Input As #1
Do While Not EOF(1) ' Vérifie si la fin du fichier

Line Input #1, InputData ' Lit les lignes du fichier en line input
Debug.Print InputData ' Imprime dans la fenêtre
'reecri le nouveau fichier

List1.AddItem InputData
List1.ItemData(List1.NewIndex) = Etape

Etape = Etape + 1

Loop
Close #1 ' Ferme les fichiers.

voila qui devrais reponde mieu au probleme ;-)

si tu veux utiliser une commondialog (show open) regarde mon article :
http://www.vbfrance.com/article.asp?Val=4024

si tu a d'autre question n'esite pas

TFlorian.
0
Rejoignez-nous