chaine de caractère ds une combobox ... :(

Question

koukou tlm,
alors je vous explike,

Je load des lignes de texte ds une combo box a partir d'un fichier texte.

Open "C:	est	est.txt" For Input As #1 'ouvre test.txt
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

juske la pas de probleme, maintenant je voudrais couper les lignes que j'ai dans ma combobox.
mes séparateur sont des "/"

exemple : a/b/c

Dim MyTab() As String
MyTab() = Split(Combo1.Text, "/")

voila et après je suis bloquer :(

donc je voudrais afficher "a" ds une textbox1 ; "b" ds une textbox2 et enfin "c" dans une textbox3.

voila, merci de m'aider.

cs_neodante · Answer

8-) Neodante 8-) 

Dim MyTab() As String
MyTab() = Split(Combo1.Text, "/")

voila et après je suis bloquer :(

donc je voudrais afficher "a" ds une textbox1 ; "b" ds une textbox2 et enfin "c" dans une textbox3.

>>> Donc en fait déclare plutôt une variable de type Variant puis Split et la textbox1 = ...

Dim MyTab as Variant
MyTab = Split(Combo1.Text, "/")
textbox1 = MyTab(0)
textbox2 = MyTab(1)
textbox3 = MyTab(3)

voilà c'est cela devrait marcher !!!
@+

cs_neodante · Answer

8-) Neodante 8-) 

oups à la fin textbox3 = MyTab(2) !!!!
@+

Calimoino · Answer

Erf ça me fait un " subscript out of range "
snif   :sad)

Calimoino · Answer

Raaa saloperie g Rien dit , ca marche ;)
Merci bocou neodante :p

cs_neodante · Answer

8-) Neodante 8-) 

Je vois pas où ça merde car :

Dim toto As Variant
toto = "bonjour/je/suis/programmeur/!"
toto = Split(toto, "/", , vbTextCompare)
Debug.Print toto(0)
Debug.Print toto(1)
Debug.Print toto(2)
Debug.Print toto(3)
Debug.Print toto(4)

fonctionne parfaitement. peut-être appels-tu MyTab(2) alors qu'il n'y a pas d'élément n°2. tu peux vérifier la taille d'un tableau avec UBound(MyTab) qui devrait te renvoyer 2 normalement (borne supérieur du tableau)
Voilà j'espère avoir été clair sinon redemande le forum est fait exprès !!!
 :approve) @+ :approve)

cs_neodante · Answer

8-) Neodante 8-) 

Si ça marche alors c'est le principal, bonne continuation !!!
@+

crenaud76 · Answer

Je peux savoir pourquoi tu nous ponds une Variant dans l'affaire !!!
Dim MyTab() as string était nickel chrome !!!
Pourquoi utiliser un tableau dynamique de string qd une Variant super lourde en mémoire et super lente à traiter peut faire le taff tu va me dire !!!!

Christophe R.

Chaine de caractère ds une combobox ... :(

7 réponses

Discussions similaires