Discussion :

[nerok]

Bonjour,
j'ai une chaîne de 16 caractères et je voudrais lister toutes les possibilités de casse de cette chaîne (majuscule ou minuscule pour chaque lettre)
par ex : MaCHaineDeCARaCtEres, maChAINEdEcaRActeReS, etc...

j'ai réussi avec des for...next mais avec 16 lettres c'est assez laborieux donc je me dit qu'il y a sûrement plus simple (désolé je suis débutant...)

Sur 16 caractères ça fait 2^16 = 65536 possibilités. J'ai essayé en m'aidant d'un tableau de bits (je me suis dit que ça se rapprochait plus ou moins de ça) mais je n'ai pas réussi à faire fonctionner l'exemple de la faq (ici)

Merci

[nerok]

up!

[hellspawn_ludo]

Bonjour,

Moi non plus je n'ai pas réussi avec l'exemple.

Cependant vu que tu y arrives avec For..Next, pourquoi veux-tu utilisé un tableau de bits ?

C'est plus rapide ou cherches-tu quelques chose de plus simple que le For..Next qui lui est déjà facile à utiliser ?

[Gdal]

Bonjour,

Quel est ton but final?
Tu vais comparer deux chaînes? Dans ce cas, utilises Upper

Gwendal

[nerok]

En fait, je pensais trouver une fonction plus courte qu'un emboitement de 16 for... next.
C'est pas grave merci pour vos réponses en tout cas

[nerok]

Après moultes heures de recherche, j'ai réussi à résoudre mon problème.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System.IO
Sub CaseLister()
        Dim InputString As String = "machaine"
        Dim Possibilite, Position As Integer
        Dim OutputString, PossBinaire As String
        Dim Caractere As Char()
        Dim MyWriter As New StreamWriter("CaseList.txt")
 
        InputString = InputString.ToLower() 'Convertit la chaîne en minuscules
        InputString = InputString.Trim(" ") 'Enlève les espaces de chaque côté
 
        Caractere = InputString.ToCharArray 'Place la chaîne dans un tableau de caractères
 
        For Possibilite = 0 To 2 ^ InputString.Length - 1 'Nombre de possibilités de casse différentes
 
            'Transforme le numéro de possibilité en binaire puis en string en complétant avec des 0
            PossBinaire = Convert.ToString(Convert.ToByte(Possibilite), 2).PadLeft(InputString.Length, "0")
 
            OutputString = ""
 
            'Vérifie si chaque lettre de la chaîne Possibilite est un 0 ou un 1 
            'et met la lettre correspondante de la chaîne Inputstring en majuscule
            For Position = 0 To InputString.Length - 1
                If PossBinaire.Chars(Position) = "1" Then
                    OutputString += Caractere(Position).ToString.ToUpper()
                Else
                    OutputString += Caractere(Position).ToString.ToLower()
                End If
            Next Position
 
            MyWriter.WriteLine(OutputString) 'Ecrit le résultat dans le fichier txt
 
        Next Possibilite
 
        MyWriter.Close()
        Process.Start("Notepad.exe", "CaseList.txt") 'Ouvre le fichier txt
End Sub

J'imagine que ce n'est pas encore optimal mais ça marche et c'est bien plus court que ce que j'avais fait au départ.
Dites-moi ce que vous en pensez