Remplir combobox depuis fichier txt.

Question

Bonjour à toutes et à tous.

Je recherche une source me permettant de récupérer les informations d'un fichier txt (bloc-notes) vers mon combobox.

Merci

PCPT · Answer

salut,

http://www.codyx.org/snippet_charger-combobox-ou-listbox-partir-fichier-vice-versa_294.aspx#956

[hr]

jpeg93 · Answer

Merci pour ta réponse mais ça ne fonctionne pas... de plus son appel ne coïncide pas avec le module.

PCPT · Answer

ça ne fonctionne pas...
une erreur??

son appel ne coïncide pas avec le module
quel module??

jpeg93 · Answer

le public sub, ce n'est pas à inserer dans un module ?

jpeg93 · Answer

C'est bon, j'ai trouvé un code simple qui fonctionne :


Private Sub form1_Load()
Open "test.txt" For Input As #1 
Do While Not EOF(1)     
Line Input #1, InputData 
Combo1.AddItem (InputData) 
Loop 
Close #1

Par contre, je rencontre encore un pépin qui est le suivant :
Quand je mets ce code dans ma form2 (pour essai), cela fonctionne à merveille... mais quand je l'intègre à ma form principale (form), il me met erreur variable et me selectionne la ligne :
=> Combo1.AddItem (InputData) et surligne "inputdata"

En gros, l'angoisse, lol

jmf0 · Answer

Bonjour,

Je partage d'autant ton "angoisse" que le code dont tu dis :
j'ai trouvé un code simple qui fonctionne
est rigoureusement le même que celui du snippet qui t'a été proposé !

Il semble donc que tes difficultés principales ont leur fondement sur des carences à combler dès que possible (qu'est une subroutine (sub) ? qu'est une routine évènementielle ?  Comment passe-t-on des paramètres à une subroutine ? comment se réfère-t-on à un objet présent sur une form autre que la form en cours ?, etc  etc...) Tenter de brûloer ces étapes essentielles serait la meilleure manière d'aller tout droit au mur !

jpeg93 · Answer

cool

jpeg93 · Answer

C'est bon, mon problème est résolu et merci pour votre aide. Effectivement il fallait commencer par la racine.

J'ai donc ajouté Dim imputdata.

Dim InputData
Open "test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
Combo3.AddItem (InputData)
Loop
Close #1

Tout fonctionne comme sur des roulettes ;)

Tyrell2 · Answer

bonjour,

il existe une methode en .NET qui me semble beaucoup plus simple que ton code :

Me.ComboBox1.Items.AddRange((System.IO.File.ReadAllLines("\chemin
om fichier texte.txt", System.Text.Encoding.Default)))



_____________
 (débutant inside)

jpeg93 · Answer

slt tyrell, pour ma part j'utilise VB6 et c'est vrai que je ferai mieux d'utiliser .net car plusieurs fonctions sont directement intégrer comme autotext etc...

Avec VB6, je galère lol.

jmf0 · Answer

slt tyrell, pour ma part j'utilise VB6 et c'est vrai que je ferai mieux d'utiliser .net car plusieurs fonctions sont directement intégrer comme autotext etc...

Avec VB6, je galère lol.

Ca commence à m'amuser vraiment, ce théâtre à quatre sous espagnols moins 10 sous boliviens 


1) Si tu "utilises VB6 et ferais mieux d'utiliser VB.Net" : que vient donc faire cette discussion ouverte ici (sous VB.Net) 
2) je ne vois vraiment pas, sous VB6, quelle pourrait être la difficulté à résoudre ton problème !!!

Excuse-moi, mais il me faut maintenant dire ici une chose haut et clair : tout cela est on ne peut plus à lamenter.
Bonne chance dans tes exercices que tu parais bien plus enclin à transformer en je ne sais quoi de réthorique, de philosophique, d'expression d'état d'âme, etc... sans jamais commencer à t'intéresser réellement au fondement !
Bon !
Parlons peu et parlons bien :
Tu as ouvert ta discussion sous VB.Net ? Parfait ! attends donc une "soluce" VB.Net toute chaude et toute cuite mais que tu ne pourras appliquer sous VB6  ...
A bon entendeur ...

jpeg93 · Answer

lol c'est vrai je me suis un peu emporté.

donc je le dit :

Pardon je me suis trompé de rubrique, je le ferai plus, je ferai gaffe la prochaine fois ;)

Mais j'étais trop déçu de passer pour un boulet et j'ai agit sur la colère.

jmf0 · Answer

Bonjour et bon dimanche à tous ...
Ma petite fille vient d'inventer un nouveau proverbe :
"Le lion qui craint de passer pour en éléphant se garde alors de barir"
Sa sagesse ne cessera jamais de m'étonner

jpeg93 · Answer

fout toi de moi, je dirais rien...

Remplir combobox depuis fichier txt.

14 réponses

Votre réponse

Discussions similaires