Discussion :

[ricoune13]

Bonsoir,

ma difficulté et d'extraire à la volée des valeurs numériques ou alphanumériques apres un espace pour les enregistrer dans un label
exemple je saisie à la volée " ma voiture est jaune"
avec la fonction split(textbox1," "), je n'arrive pas à mettre en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 label1="ma"
label2 ="voiture"
label3="est"
label4="jaune"

pour les utiliser indépendamment

j'ai toujours un message d'erreur " L'exception IndexOutOfRangeException n'a pas été géré"
L'index se trouve en dehors des limites du tableau

Merci pour votre aide

[clementmarcotte]

Bonjour,

C'est parce split retourne un tableau de valeurs; que tu dois ensuite itérer.

Cela devrait ressembler à cela. (De mémoire et non testé)
Tu vas devoir adapter pour avoir quelque chose de plus universel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Sépare()
    dim séparé() as string = split(textbox1.text)
    label1.text = sépare(0)
    label2.text = sépare(1)
    label3.text =sépare(2)
    label4.text = sépare(3)
end sub

ou en plus zélé (même si c'est une méthode dans le genre stupide pour ce cas-là. Encore que cela puisse être une petite base pour "universaliser" le principe)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Sépare2()
    dim séparé() as string = split(textbox1.text)
    for i as integer = 0 to séparé.length -1
        select case i
             case 0
                 Label1.text = sépare(0)
             case 1
                 label2.text = sépare(1)
             case 2
                 label3.text = sépare(2)
             case 3
                 label4.text = sépare(3)
end sub

Là, je n'ai malheureusement pas le temps de vérifier. Mais, je pense qu'il y a une collection labels ou controls que tu pourrais itérer dans une seconde boucle.

[ricoune13]

Bonjour,

C'est parce split retourne un tableau de valeurs; que tu dois ensuite itérer.

Cela devrait ressembler à cela. (De mémoire et non testé)
Tu vas devoir adapter pour avoir quelque chose de plus universel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Sépare()
    dim séparé() as string = split(textbox1.text)
    label1.text = sépare(0)
    label2.text = sépare(1)
    label3.text =sépare(2)
    label4.text = sépare(3)
end sub

ou en plus zélé (même si c'est une méthode dans le genre stupide pour ce cas-là. Encore que cela puisse être une petite base pour "universaliser" le principe)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Sépare2()
    dim séparé() as string = split(textbox1.text)
    for i as integer = 0 to séparé.length -1
        select case i
             case 0
                 Label1.text = sépare(0)
             case 1
                 label2.text = sépare(1)
             case 2
                 label3.text = sépare(2)
             case 3
                 label4.text = sépare(3)
end sub

Là, je n'ai malheureusement pas le temps de vérifier. Mais, je pense qu'il y a une collection labels ou controls que tu pourrais itérer dans une seconde boucle.

http://www.developpez.net/forums/ima...s/icon_lol.gif. La 1ère réponse me faisait le même type d'erreur. La seconde au top. Merci encorehttp://www.developpez.net/forums/images/smilies/toine.gif

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Dim xt As String = "toto;titi"
        Dim séparé() As String = xt.Split(";")

split(textbox1.text) c'est du VBA!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim xt AsString = "toto titi"
Dim séparé()AsString = xt.Split()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 dim séparé() as string = textbox1.text.split()

[clementmarcotte]

Bonjour,

D'autant plus que j'ai oublié d'ajouter le caractère de séparation.

Ceci, dit la vieille fonction split de VB-VBA est toujours "supportée" en VB.net, encore que plus le Framework se développe, plus j'ai l'impression que le code sous-jacent, c'est le même que pour String.Split. Mais comme, tu le montres si bien, Utiliser directement la classe String, donne le même résultat, et c'est transposable directement ou presque dans d'autres langages .net.

[Invité]

Vue que je décoche la librairie vb6 j'ai un erreur!

Pour les vieux routard de vb6 comme moi c'est plus facile mais on dérive vite vers ses villes habitudes!

C'est pour éviter ça que j'avais opté pour le C# mais mes performances professionnel avaient chuté en flèche! Donc j'essai d'être puriste en Vb.net!