Combinaison de Caractéres

Question

Salut,

Comment avoir toutes les combinaisons sur 3 caractéres ( par Ex) de Chr(32) à Chr(126)

Merci d'avance

It@li@

cs_rene38 · Answer

Triple boucle imbriquée :
For i = 32 To 126
   For j = 32 To 126
       For k = 32 To 126
          Debug.Print Chr$(i) & Chr$(j) & Chr$(k)
       Next k
    Next j
Next i

cs_rene38 · Answer

ça en fait quand même
(126 - 31) ^ 3 = 857 375 ; on frôle le million !
Debug.Print sera un peu cour : il faut les mettre dans un tableau.

TheEwook · Answer

Salut, 

Il faut que tu fasses 3 For imbriqués :


Dim x As integer
Dim y As Integer

Dim i a As Integer
Dim J a As Integer
Dim K a As Integer

x = 32
y = 126

For i = x To y
   For j = x To y
      For k = x To y

          Text1.Text = Text1.Text & Chr(i) & Chr(j) & Chr(k) & & vbNewLine

      Next
   Next
Next


Voilà

@++

________________
TheEwook

cs_ITALIA · Answer

Merci et pour que ca me donne les combinaisons en 1,2 et 3 caractéres toujours de Chr(32) à Chr(126)

It@li@

TheEwook · Answer

Salut, 

Là le plus dur est fait :

Pour  2 caractéres :

x = 32
y = 126

For i = x To y
For j = x To y

Text1.Text = Text1.Text & Chr(i) & Chr(j) & vbNewLine

Next j
Next i

==============================

Pour  1 caractére

x = 32
y = 126

For i = x To y

Text1.Text = Text1.Text & Chr(i) & vbNewLine

Next i


voilà 

@++

________________
TheEwook

cs_ITALIA · Answer

POur theEwwok

Dim i a As Integer    --> Dim i  As Integer  
Dim J a As Integer    --> Dim J  As Integer   
Dim K a As Integer   --> Dim K  As Integer 
Text1.Text = Text1.Text & Chr(i) & Chr(j) & Chr(k) & & vbNewLine
-->Text1.Text = Text1.Text & Chr(i) & Chr(j) & Chr(k) & vbNewLine

MAis Merci

It@li@

TheEwook · Answer

Salut, 

Il suffit de mettre les 3 codes ci-dessus les uns à la suite des autres, pour avoir toutes les combinaisons sur 1, 2 et caractéres de Chr(32) à Chr(126)

@++

________________
TheEwook

TheEwook · Answer

Salut, 

Oui, simple erreur de syntaxe, désolé

@++

________________
TheEwook

econs · Answer

J'ai uniquement testé la double boucle de TheEwook

Quelques remarques sur son code :

La ligne Text1.text = Text1.text & ...

sera beaucoup trop longue à l'exécution. 
A la limite, tu fais plutôt un truc du style

List1.additem chr(i) & chr(j)

Le gain est de l'ordre de 500 % (tu vas 5 fois plus vite)

Ensuite, l'utilisation des types Integer n'est pas très appropriée
Dans une boucle For, il vaut mieux mettre des Long quand les boucles sont ... longues  :) .
Le gain est encore de 10% avec des Long plutôt que des Integer.

Dans tous les cas, la triple boucle est super super longue ...
mais la double boucle passe sous la barre de 1 seconde.

Manu

Zigarn · Answer

On peut aussi tout combiner plutôt que de faire pour 1 puis 2 puis trois si ca te gène pas qu'ils soient pas cet ordre, et du coup gagner du temps.
Dim i As Integer
Dim J As Integer
Dim K As Integer

For i = 32 To 126
  List1.AddItem Chr(i)
  For j = 32 To 126
    List1.AddItem Chr(i) & Chr(j)
    For k = 32 To 126
      List1.AddItem Chr(i) & Chr(j) & Chr(k)
    Next k
  Next j
Next i

Pourquoi des Long, chaque boucle en elle-même n'est pas longue ...

-------------------------------------------------
Débutant ... mais pas pour longtemps !

econs · Answer

Pourquoi des Long ?

Et bien Visual Basic utilise par défaut des Long dans les boucles.
Si ta variable de boucle n'est pas un long, elle est convertie en Long. La convertion prend du temps.

Dans la boucle de ton exemple, on boucle (126-32+1)*(126-32+1)*(126-32+1) soit 857375 fois.

Le temps gagné en ne faisant pas la transformation des nombres en Long est multiplié 857375. A la fin de l'algorythme, la différence se sent.
Tu fais souvent autant d'itérations ?

Manu

Combinaison de Caractéres

11 réponses

Discussions similaires