Télécharger le zip
Bonsoir, Voici également une autre méthode par l'utilisation de Linqelle renvoi sensiblement la meme chose a partir de la propriétée .Text d'un TextBoxdans la variable requete puis sur la console Dim LettersGroup() As Char LettersGroup = TextBox1.Text.ToUpper.ToCharArray Dim requete = From Lettre In LettersGroup Group By Lettre Into Som = Group Select Lettre, Som.Count For Each Elt In requete Console.WriteLine(Elt.Lettre & " " & Elt.Count) NextCordialement CGSI3
Et j'ajoute ceci pour convertir les accents (pas de moi)Public Function StrWithoutAccent(ByRef chaine As String) As String Dim objBytes() As Byte = System.Text.Encoding.GetEncoding(1251).GetBytes(chaine) Return System.Text.Encoding.ASCII.GetString(objBytes)End Function
bonsoir CGSI3 Merci de ton aide
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 979 701 membres 7 nouveaux aujourd'hui 16 321 membres club