liste box et fichier txt

liste box et fichier txt - VB/VBA/VBS - Programmation

Marsh Posté le 18-01-2005 à 10:22:30    

bonjour !
je voudrais pouvoir charger le contenu d'un fichier .txt (liste de nom) dans une liste box de façon a pouvoir changer cette liste de nom en modifiant le fichier .txt  
 
je sais que c'est possible mais je ne sais plus comment  :??:  :??:  
 
merci pour vos reponse !

Reply

Marsh Posté le 18-01-2005 à 10:22:30   

Reply

Marsh Posté le 18-01-2005 à 10:27:26    

ton fichier est composé genre
 
option1
option2
option3
 
?
 
il faut que tu decoupe le contenu de ton fichier selon le separateur d'option \r\n dans mon exemple :)

Reply

Marsh Posté le 18-01-2005 à 10:39:21    

soit plus clair parce que la je comprend rien du tout
exemple du fichier txt :
 
nicolas
josephine  
myriam
...
 
donc lorsque je clique sur ma liste box je voudrais qu'il me propose les nom de mon fichier txt dans la liste
et si il y a rien dans le fichier txt il me propose rien


Message édité par ngandalf le 18-01-2005 à 10:39:51
Reply

Marsh Posté le 18-01-2005 à 11:20:41    

Qu'est-ce que tu n'arrive pas à faire ? lire le fichier ? ajouter des éléments dans la listbox ?


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 18-01-2005 à 12:05:24    

ajouter les elements dans la listbox

Reply

Marsh Posté le 18-01-2005 à 14:34:19    

ngandalf a écrit :

ajouter les elements dans la listbox


MaListBox.AddItem MaString


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 18-01-2005 à 21:57:23    

mareek a écrit :

MaListBox.AddItem MaString


Mouais. Créé un Filelistbox.
Dans Path, met le répertoire que tu souhaite et dans Pattern '*.txt'.
voila toute la liste des fichiers '*.txt' du répertoire qui arrive. Le code de mareek peut devenir :
 
For i =0 to MonFilelistbox.ListCount-1
MalistBox.AddItem MonFileListBox(i)
next i
(traduction : pour toutes les occurences trouvées dans le filelistbox, copier dans listbox.)
 
Voilà.

Reply

Marsh Posté le 18-01-2005 à 22:06:58    

knakes a écrit :

Mouais. Créé un Filelistbox.
Dans Path, met le répertoire que tu souhaite et dans Pattern '*.txt'.
voila toute la liste des fichiers '*.txt' du répertoire qui arrive. Le code de mareek peut devenir :
 
For i =0 to MonFilelistbox.ListCount-1
MalistBox.AddItem MonFileListBox(i)
next i
(traduction : pour toutes les occurences trouvées dans le filelistbox, copier dans listbox.)
 
Voilà.


Il veut mettre le contenu d'un fichier dans sa liste, pas la liste des fichiers .txt.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 18-01-2005 à 22:08:50    

okok j'avait pas bien saisi. Désolé
 
Bon avec un peu de recul ca pourrait donner un truc du genre :
 
Open cheminetfichier for input as #1 'ouvrir fichier
While not OEF(1) 'Tant qu'on est pas arrivé à la fin du fichier
Line Input#1, MaString / ou / Input#1, MaString 'lire ligne du fichier
MaListBox.AddItem MaString 'Ajouter ligne dans la listBox
Wend ' Fin de la boucle
Voila


Message édité par knakes le 18-01-2005 à 22:13:28
Reply

Marsh Posté le 19-01-2005 à 15:07:05    

knakes a écrit :

okok j'avait pas bien saisi. Désolé
 
Bon avec un peu de recul ca pourrait donner un truc du genre :
 
Open cheminetfichier for input as #1 'ouvrir fichier
While not OEF(1) 'Tant qu'on est pas arrivé à la fin du fichier
Line Input#1, MaString / ou / Input#1, MaString 'lire ligne du fichier
MaListBox.AddItem MaString 'Ajouter ligne dans la listBox
Wend ' Fin de la boucle
Voila


 
merci beaucoup je vais essayer ca demain !!!
 merci à tous !!!
 :)  :)  :)  :)  :)

Reply

Marsh Posté le 19-01-2005 à 15:07:05   

Reply

Marsh Posté le 19-01-2005 à 18:55:49    

knakes a écrit :

okok j'avait pas bien saisi. Désolé
 
Bon avec un peu de recul ca pourrait donner un truc du genre :
 
Open cheminetfichier for input as #1 'ouvrir fichier
While not OEF(1) 'Tant qu'on est pas arrivé à la fin du fichier
Line Input#1, MaString / ou / Input#1, MaString 'lire ligne du fichier
MaListBox.AddItem MaString 'Ajouter ligne dans la listBox
Wend ' Fin de la boucle
Voila


 
 
merci mais ca marche pas sous visual basic .net 2003

Reply

Marsh Posté le 20-01-2005 à 18:43:02    

Effectivement.
 
Apres 1h30 de recherche  :fou: j'ai enfin trouvé le truc. J'ai VisualBasic Express 2005. Je développe en .NET (mais ça fait que 3 jours  :ange:  :pt1cable: ) mais je n avait pas encore ouvert de fichiers. Bref
Voilà le code tel qu'il est en .NET pour moi (il fonctionne nikel)

Code :
  1. Dim a As String = ""
  2.    Dim fnum As Integer
  3.    fnum = FreeFile()
  4.    FileSystem.FileOpen(fnum, "C:\a.txt", OpenMode.Input)
  5.    While Not EOF(fnum)
  6.    Input(fnum, a)
  7.    Me.ListBox1.Items.Add(a)
  8.    End While
  9.    FileSystem.FileClose(fnum)


 
Il peut y avoir quelques problèmes de version de .NET (moi j'ai la version 2)
En espérant que cela puisse t'aider.

Reply

Marsh Posté le 20-01-2005 à 22:45:55    

merci je vais essayer !!!
je suis entrain d'installer cette version justement !

Reply

Marsh Posté le 16-03-2005 à 08:56:33    

salut a vous si vous etes encore la... je viens de lire ce post et je vous avouerai que j'ai besoin de votre aide...
voila je suis sous access et je voudrai extraire les données d'une listbox pour les imprimer... et votre solution me parait forte utile... je crée un formulaire dans lequel je renvoie le resultat de ma requete générée dans une listbox maintenant je voudrais extraire ou imprimer directement le resultat via un bouton... merci de me repondre... ou aller voir j'ai crée un post pour y repondre...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed