RIXAIN
Messages postés7Date d'inscriptionmercredi 7 février 2007StatutMembreDernière intervention13 octobre 2008
-
10 sept. 2007 à 06:59
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
10 sept. 2007 à 10:15
Bonjour à tous
Pouvez-vous me donner une instruction code simple
pour que je puisse afficher un fichier texte dans une listbox avec le dernier élément
de mon texte en bas d'affichage et non le premier élément en haut
J'utilise:
NO=1
Open NomFichier For Input As #1
While Not EOF(1)
Input #1, LIBEL
List1.AddItem NO & " " & LIBEL
NO=NO+1
Wend
fin:
Close #1
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 10 sept. 2007 à 08:18
Re,
Essaye ce code issu de Codyx.Org (Willy)
Dim ff As Integer
ff = FreeFile
Dim sLigne As String
'Lecture du fichier, envois chaque ligne dans la collection
Open "C:\votrefichier.txt" For Input As #ff
While Not EOF(ff)
Line Input #ff, sLigne
List1.AddItem sLigne
Wend
Close #ff
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 10 sept. 2007 à 08:09
Salut,
Ben, faut lire ton fichier texte ligne par ligne...Qaund tu lis la première tu insères dans ta listbox et ainsi dessuite jusqu'à la fin...Ainsi ta dernière ligne de ton fichier texte sera à la fin de ta listbox et laisser sa propriété Sorted sur False.