Discussion :

[leratx]

Salut à tous

Je voudrais mettre le caractère du milieu en majuscule comme par exemple si j'entre le mot: faq le resultat sera fAq. Comment faire ?
Voila 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
14
15
16
17
 Dim nom As String
        Console.Out.WriteLine("entrez un nom")
        Do
            nom = Console.In.ReadLine
            If Len(nom) Mod 2 <> 0 Then
 
                UCase(Mid(nom, Len(((((nom))) + 1) / 2), 1))
 
                Console.Out.WriteLine("le nom est: " & UCase(Mid(nom, Len(((((nom))) + 1) / 2), 1)))
            Else
                Console.Out.WriteLine("le nom est paire")
 
 
            End If
 
        Loop Until nom = "n"
        Console.In.ReadLine()

Merci.

[cougarg]

Bonjour,

Tu avais fait le plus dur. Récupérer le caractère du milieu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim nom As String
        Console.Out.WriteLine("entrez un nom")
        Do
            nom = Console.In.ReadLine
            If Len(nom) Mod 2 <> 0 Then
                Dim indexMilieu As Integer = (nom.Lenght +1) / 2
                Dim resultat = nom.subString(0, indexMilieu) & _
                            Char.ToUpper(nom.Chars(indexmilieu)).ToString & _
                            nom.subString(indexMilieu +1, nom.Lenght - indexMilieu)
 
                Console.Out.WriteLine("le nom est: " & resultat 
            Else
                Console.Out.WriteLine("le nom est paire")
 
            End If
 
        Loop Until nom = "n"
        Console.In.ReadLine()

[leratx]

salut merci pour votre réponse ; le code ,n'a pas marché

[Sehnsucht]

Code VB.Net :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Main()
    Dim nom As String
 
    Do
        Console.Clear()
        Console.WriteLine("Entrez un nom:")
        nom = Console.ReadLine()
 
        Console.WriteLine()
        Console.WriteLine(Tranformer(nom))
 
        Console.Write("Voulez-vous (Q)uitter ?")
    Loop Until Console.ReadKey().Key.Equals(ConsoleKey.Q)
End Sub
 
Private Function Tranformer(ByVal chaine As String) As String
    Dim indexMilieu As Integer
    If chaine.Length Mod 2 = 0 Then
        Return "La longueur de la chaîne doit être impaire."
    Else
        indexMilieu = chaine.Length \ 2
        Return String.Concat(chaine.Substring(0, indexMilieu), Char.ToUpperInvariant(chaine(indexMilieu)), chaine.Substring(indexMilieu + 1))
    End If
End Function