[2.0][VB.NET] Comment recupérer une valeur d'un hashtable

Bonjour,

Comment recupérer une valeur d'un hashtable ?
Code:

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...

Code:

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

La question est résolue, merci FRED.G

Cependant, pouvez vous m'expliquer

Code:

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 ?

Bonjour,

Citation:

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.

Citation:

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

Bonjour Pilloutou,

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

Citation:

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:

val(LesChiffres) ?

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

Je pense avoir un bout de réponse:
Code:

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:

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:

Citation:

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 ?

Bonjour,

String.Substring, méthode

Voilà comment je ferais selon ce que j'ai compris:
Code:

1 2 3 4 5 6 7 8 9 10 Dim value as integer = 0 Dim total as integer = 0 With TextBox.text for i as integer = 0 To .Length - 1 if (Integer.TryParse(tab.Item(.Substring(i, 1)).ToString, out value) total = total + value end if next end with
Voilà ça doit être quelque chose comme ça, je connais moins le vb.
Par contre avec cette solution, là, si une valeur ne peut-être convertie en Integer, elle ne sera pas prise en compte dans le total.
Tu peux rajouter un break pour sortir de la boucle, et un message pour préciser que le calcul n'est pas correct.

Bye