Lire un fichier text ds une list

cs_Cortex Messages postés 33 Date d'inscription samedi 13 avril 2002 Statut Membre Dernière intervention 17 novembre 2003 - 26 janv. 2003 à 18:26
agnescol Messages postés 32 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 13 septembre 2005 - 3 août 2005 à 17:27
bonjour,

je souhaite en tan que noob

lire ces informations :
"00000111"
"15605200"
"1354357"
dans une listbox chacune a la ligne sachan que je je veu pa voir les guillemets et qu'il y aura pa forcement troi info (mais plus ou moin) ....
ves informations etant comprisent dans un fichier appeler cle.dat

3 réponses

cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 2
26 janv. 2003 à 20:21
Dim MonFichier as String
Dim numFichier as Integer
Dim s as String

MonFichier = adresse du fichier

numFichier = FreeFile

Open MonFichier For Input As #numFichier

While Not EOF(numFichier)
Input #numFichier, s
MaListeBox.AddItem s
Wend

Close #numFichier

'====
Si les guillemets apparaissent, tu pourrais faire ceci
Input #numFichier, s
s = Replace(s,Chr(34), " ")
s = Trim(s)
MaListeBox.AddItem s

En espérant que cela réponde à tes besoins, bonne programmation...
0
agnescol Messages postés 32 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 13 septembre 2005
3 août 2005 à 17:24
bonjour,



je fais la même chose mais dans mon fichier texte il y a des virgules et cela me fait sauter une ligne



ex :

fichier texte :

bonjour, je suis

une fille



listbox :

bonjour

je suis

une fille



comment faire?

Merci d'avance !!
0
agnescol Messages postés 32 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 13 septembre 2005
3 août 2005 à 17:27
je viens de trouver il faut mettre Line devant Input #numFichier, s



voilà
0
Rejoignez-nous