Discussion :

[CodeBar]

Bonjour,

Comment recupérer une valeur d'un hashtable ?

Code vb.net :

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

1
2
3
4
5
Dim tab As New Hashtable()
        tab.Add("a", "1")
        tab.Add("b", "2")
        tab.Add("c", "3")
        tab.Add("d", "4")

Il me faut recuperer la valeur de chaques lettres saisie dans un textbox et les afficher dans l'ordre via un label:

"abcd" est saisi, donc "1234" est retourné.

Là, je sêche...

[FRED.G]

Code vb.Net :

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

1
2
3
4
5
6
            With TextBox.Text
                For i As Integer = 0 To .Length - 1
                    value = value & tab.Item(.Substring(i, 1)).ToString
                Next
            End With
            Label.Text = value

[CodeBar]

La question est résolue, merci FRED.G

Cependant, pouvez vous m'expliquer

Code :

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

tab.Item(.Substring(i, 1)).ToString

Je crois savoir que .Substring "retourne une portion de chaîne prise dans une autre chaîne", mais c'est (i, 1) qui m'échappe.

Question subsidaire: Comment additionner les "carracteres" , si "1234", pour que cela retourne le résultat de 1 + 2 + 3 + 4 , donc 10 ?

[Pilloutou]

Bonjour,

Je crois savoir que .Substring "retourne une portion de chaîne prise dans une autre chaîne", mais c'est (i, 1) qui m'échappe.

SubString(int position, int length) permet de récupérer une sous-chaîne de longueur length et à partir de la position fixé dans le premier argument

Le code FRED.G:
Il parcourt la chaîne présente dans la textbox et récupère chaque caractère.

Comment additionner les "carracteres" , si "1234", pour que cela retourne le résultat de 1 + 2 + 3 + 4 , donc 10 ?

Il faut que tu parcours la chaine de caractère, et que tu convertis chaque caractère lu en entier. Ensuite tu additionnes chaque nouvel entier récupéré au total.

Bye

[CodeBar]

Bonjour Pilloutou,

Alors, curieusement, je ne vois pas d'explication de Substring dans l'aide de MS VBS 2005 express.. Merci pour ton explication.

Il faut que tu parcours la chaine de caractère, et que tu convertis chaque caractère lu en entier. Ensuite tu additionnes chaque nouvel entier récupéré au total.

Je me suis fais la même reflexion face a l'objectif mais je ne vois pas comment le mettre en pratique.
Pourrais tu me donner un exemple ?

Il me faut une nouvelle boucle for pour parcourir la chaine, j'immagine.

Pour la conversion :

Code :

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

val(LesChiffres)  ?

et pour l'addition, et bien je sêche la encore.

[CodeBar]

Je pense avoir un bout de réponse:

Code :

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

1
2
3
4
5
6
7
 
Dim value As String = 0
        For i = 0 To value.Length - 1
            value += System.Convert.ToInt32(value(i).ToString())
        Next
 
        TextBox3.Text = value.ToString()

Boucle que je "répete" 4 fois pour arriver a un résultat compris entre 1 et 9.

Et pour :

Code :

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

1
2
3
4
5
6
7
 
With TextBox.Text
                For i As Integer = 0 To .Length - 1
                    value = value & tab.Item(.Substring(i, 1)).ToString
                Next
            End With
            Label.Text = value

Si la chaine fait plus de 9 caracteres:

L'opération arithmétique a provoqué un dépassement de capacité.
Assurez vous que vous ne divisez pas par zéro.

Voilà, avez vous une solution ?