Forum Clubic

[VB] Comment faire évoluer une chaine de caractère

Bonjour,

Je cherche à faire toutes les combinaisons d’une chaine de caractère composée de 2 caractères : de 00 à ZZ en VBS.

Quelqu’un a une idée ??

merci de mettre le langage dans le titre :jap:

Pour t’aider pour 1 caractère

Dim str_debut As String
Dim int_char As Integer
Dim str_fin As String
Dim resultat As String

str_debut = “0”
str_fin = “R”

Do While str_debut <> str_fin

int_char = Asc(str_debut)

Select Case int_char
  Case Asc("0") To Asc("9")
    resultat = resultat &amp; str_debut &amp; " "
  Case Asc("A") To Asc("Z")
    resultat = resultat &amp; str_debut &amp; " "
  Case Asc("a") To Asc("z")
    resultat = resultat &amp; str_debut &amp; " "
  Case 255
    Exit Do
  Case Else
End Select

str_debut = Chr(int_char + 1)

Loop

resultat = resultat & str_debut

Debug.Print resultat