Manipulation de chaine de caractere

Bonjour,

je dois faire un exercisse qui demande l instruction suivante :

l usager rentre dans 1 textbox son nom suivie de son prenom.
En clickquant sur le bouton un messagebox apparait et fait afficher les initial de la personne.

EX: luc canard ---> messagebox affichant L.C.

Mon probleme ? Je n arrive pas a faire afficher la 2eme lettre....

voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim stPlettre, stDlettre, stNom, tbTableau(2), b As String   Dim espace As Char = (" ")   stNom = txtbox.Text   For i = 1 To stNom.Length   tbTableau(2) = txtbox.Text   stPlettre = GetChar(stNom.ToUpper, 1)   Next

---

J avais ecris ca comme code pour afficher la 2eme lettre mais bref ca ne fonctionne vrm pas

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To stNom.Length   If tbTableau(i) = espace Then stDlettre = GetChar(stNom.ToUpper, 2) End If   Next     MessageBox.Show(stPlettre & "." & stDlettre & ".")

---

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8

Dim stPlettre, stDlettre, stNom As String   Dim espace As Char = (" ")   stNom = txtbox.Text   stPlettre = GetChar(stNom.ToUpper, 1) stDlettre = GetChar(stNom.ToUpper, stNom.IndexOf(espace) + 2)

---

Il y aura probablement juste à rajouter une vérification de sécurité, car si l'utilisateur saisit "Pierre " (sans nom après l'espace), une exception sera générée.

Bonjour.

Citation:

---

For i = 1 To stNom.Length

If tbTableau(i) = espace Then
stDlettre = GetChar(stNom.ToUpper, 2)
End If

Next

---

Ta dernière boucle te permet de déterminer qu'à l'index "i" se trouve un espace. Et ta réaction à ça est de renvoyer le caractère se trouvant à l'index 2. L'index à spécifier doit bien entendu dépendre de i.

ah j etais pas trop loin avec mon index je voue remercie les deux.