Discussion :

[swizerman]

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 :

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

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 :

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

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 & ".")

[franticfranz]

Bonsoir,

Code :

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

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.

[DonQuiche]

Bonjour.

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.

[swizerman]

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