combobox et fichier text

Question

bonjours
je debute et je voudrais afficher dans un combo une liste de noms contenue dans un fichier txt , pour permettre a l'utilisateur de selectionner ensuite.
merci de m'aider
ps : qqun aurait il un exemple de fichier txt  qui pourrait servir d'exemple

cs_DARKSIDIOUS · Answer

L'idéal, ce serait de créer le fichier texte par VB lui même avec :

Open "nomdufichier" for output as #1

Print #1, "Chloé", "Taiana", "Nicolas"

Close #1

Ensuite, tu n'as plus qu'à récupérer chaque nom et les incorporer dans ton combo :

Open "nomdufichier" for input as #1

Input #1, STR_Temp1, STR_temp2, STR_Temp3

Close #1

Combo1.additem STR_Temp1
Combo1.additem STR_Temp2
Combo1.Additem STR_Temp3

DARK SIDIOUS

titi57000 · Answer

je te remercie pour ta reponse,
mais je prefere un txt externe.
mon souhait etant de charger se fichier au demarrage de l'application pour le charger dans ma combobox.je mettrais plus tard un option pour ajouter des noms sous vb dans ce txt
si tu as un solution repond moi 
merci

cs_DARKSIDIOUS · Answer

A ce moment là, il faut que tu connaisse soit la longueur de chaque nom, soit leur position dans le fichier texte, soit les caractères séparant deux noms !

DARK SIDIOUS

cs_Clic · Answer

si tes mots sont chacun sur une ligne tu peu utiliser :

Open fichier For Input As #1  'Remplace Fichier par l'emplacement de ton fichier
Do While Not EOF(1)         ' Vérifie si la fin du fichier est atteinte
    Line Input #1, ligne    ' Lit les données ligne par ligne
Combo1.AddItem ligne         ' Rentre la ligne dans le combobox
Loop
Close #1

bonne prog

titi57000 · Answer

merci pour votre aide les gars
encore une petite question
j'ai reussi en trouvant la formule suivante : 

Private Sub Form_Load() 'Lis les informations contenus dans fichier.txt dans la liste déroulante au chargement
Open App.Path & "\personnel.txt" For Input As #1
While Not EOF(1)
Input #1, temp
If temp <> "" Then
combo 1.AddItem temp
End If
Wend
End Sub

le prob c'est qu'elle ouvre dans un seul combo.
comment je peux faire pour afficher une sul liste dans plusieurs combo qui portent un nom different??

merci

cs_Clic · Answer

si tu veux mettre plusieur fois le meme text ds tes combos tu mais 
combo1.additem temp
combo2.additem temp
combo3.additem temp

sinon reformule ta question en precisant

titi57000 · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> si tu veux mettre plusieur fois le meme text ds tes combos tu mais 
> combo1.additem temp
> combo2.additem temp
> combo3.additem temp
> 
> sinon reformule ta question en precisant 
> 
> -------------------------------
>  Réponse au message :		  
> -------------------------------
> 
> > 
> > merci pour votre aide les gars
> > encore une petite question
> > j'ai reussi en trouvant la formule suivante : 
> > 
> > Private Sub Form_Load() 'Lis les informations contenus dans fichier.txt dans la liste déroulante au chargement
> > Open App.Path & "\personnel.txt" For Input As #1
> > While Not EOF(1)
> > Input #1, temp
> > If temp <> "" Then
> > combo 1.AddItem temp
> > End If
> > Wend
> > End Sub
> > 
> > le prob c'est qu'elle ouvre dans un seul combo.
> > comment je peux faire pour afficher une sul liste dans plusieurs combo qui portent un nom different??
> > 
> > merci
> > 
> > 
>

titi57000 · Answer

merci c'est ce que je pensais au depart.
sauf qu'a l'execution,il me dit qu'un objet est requis,et le debogage se place sur combo2.additme temp
d'ou mon problem......
sinon tu as compris mon but
merci de ton aide

cs_Clic · Answer

ta bien mis le combo2
si tu T pa trompé avex combo2.additem

titi57000 · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> ta bien mis le combo2
> si tu T pa trompé avex combo2.additem
> 
> 
> -------------------------------
>  Réponse au message :		  
> -------------------------------
> 
> > 
> > merci c'est ce que je pensais au depart.
> > sauf qu'a l'execution,il me dit qu'un objet est requis,et le debogage se place sur combo2.additme temp
> > d'ou mon problem......
> > sinon tu as compris mon but
> > merci de ton aide
> > 
> > 
> > 
>

titi57000 · Answer

autant pour moi,c'est une erreur de ma part,un caractere c'est glisser en douce dans le nom.cela donnait en gros:commbos2
merci a tous et longue vie a ce forum

Combobox et fichier text

11 réponses

Discussions similaires