Dim nb_car As Integer ' Le nombre de caractères des combinaisons Dim c As String ' La chaine de nb_car caractères Dim cpt As Long ' Le compteur de combinaisons Dim tableau() As Integer ' Pour les positions des caractères dans la chaîne de départ Dim s As String ' Pour la chaîne à étudier Private Sub Form_Load() Dim i As Integer s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ' La chaîne de caractères à étudier nb_car = 7 ' Nombre de caractères des combinaisons ReDim tableau(nb_car) Open "c:\temp\list.txt" For Output As #1 For i = 1 To Len(s) - nb_car + 1 DoEvents RechercheCombinaison 1, i Next Close #1 MsgBox "Nombre de combinaisons : " & cpt Unload Me End Sub Sub RechercheCombinaison(limite As Integer, valeur As Integer) Dim i As Integer Dim j As Integer tableau(limite - 1) = valeur If limite = nb_car Then c = "" For i 0 To nb_car - 1: c c & Mid$(s, tableau(i), 1): Next cpt = cpt + 1 Print #1, c Else For j = valeur + 1 To Len(s) - nb_car + limite + 1 DoEvents RechercheCombinaison limite + 1, j Next End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question