Lire un txt dans une listbox

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

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

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...
-------------------------------
Réponse au message :
-------------------------------

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

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.