Comportement de variable

Version imprimable

Bonjour à tous,

Je veux, à partir des chiffres 1,2,3,4, obtenir toutes les combinaisons possibles de nombre.

J'ai donc le programme suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 dim liste_de_base,resultat ' Initialisation liste_de_base = "1234" Sub traitement(chaine,liste) Dim nouvelle_chaine,nouvelle_liste If liste="" Then resultat = resultat & chaine & chr(13) Else For i=1 to Len(liste) nouvelle_chaine = chaine & Mid(liste,i,1) nouvelle_liste = Replace(liste,Mid(liste,i,1),"") traitement nouvelle_chaine,nouvelle_liste nouvelle_chaine = "" nouvelle_liste = "" Next End If End Sub traitement "1",Replace(liste_de_base,"1","") Wscript.Echo resultat
qui marche très bien et me renvoie tout ceux qui commencent par 1, c'est-à-dire:
Code:

1 2 3 4 5 6 1234 1243 1324 1342 1423 1432
Or si je remplace dans la phase d'initialisation :
Code:

1 2 ' Initialisation liste_de_base = "1234"
par
Code:

1 2 3 4 5 6 ' Initialisation liste_de_base = "" taille = 4 For i=1 to taille liste_de_base = liste_de_base & i Next
la variable liste_de_base prend toujours la valeur 1234 mais le programme me renvoie juste :

Code:

1234

Et je ne comprends pas pourquoi.

Bonjour,

Peut-être :

Code:

1
2
3
4
5
6
7
 
' Initialisation
liste_de_base = ""
taille = 4
For i=1 to taille
	liste_de_base = liste_de_base & cStr(i)
Next

26/09/2013, 18h57
ramkin

Non, toujours la même chose.

Bonjour,

A priori, je penche pour un conflit de variables incrémentielles.
Tu utilises 2 fois i pour tes boucles ... essaye avec j ! ;)

Code:

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
dim liste_de_base, resultat
 
' Initialisation
liste_de_base = ""
taille = 4
For i=1 to taille
	liste_de_base = liste_de_base & i
Next
 
Sub traitement(chaine,liste)
	Dim nouvelle_chaine,nouvelle_liste
	If liste="" Then
		resultat = resultat & chaine & chr(13)
	Else
 
		For j=1 to Len(liste)
			nouvelle_chaine = chaine &  Mid(liste,j,1)
			nouvelle_liste = Replace(liste,Mid(liste,j,1),"")
			traitement nouvelle_chaine,nouvelle_liste
			nouvelle_chaine = ""
			nouvelle_liste = ""
		Next
	End If	
End Sub
 
traitement "1",Replace(liste_de_base,"1","")
Wscript.Echo resultat

27/09/2013, 18h37
ramkin

Ah oui exact, ça marche!!! 8O

Bizarre quand même....

Merci à tous les deux pour vos réponses!

:salut:
Vous pouvez aussi tester ce script complet avec un LogFile :king:

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
Dim MyStr,Titre,fso,ws,LogFile,resultat
Titre = "Combinaison de chaînes de caractères"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("Wscript.Shell")
'Nom du fichier qui va stocker le résultat
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if fso.FileExists(LogFile) Then 'Si le fichier LogFile existe 
	fso.DeleteFile LogFile 'alors on le supprime
end If
'La boîte de saisie de la chaîne de caractères
MyStr = inputbox("Entrez la chaîne de caractères :",Titre,"abc")
MyStr = Trim(MyStr) 'Pour enlever les espaces de gauche et à droite
If MyStr = "" Then WScript.Quit
MsgBox Traitement("",MyStr),64,Titre
WriteLog String(70,"*"),LogFile
WriteLog Space(10) & Titre & " de type " & DblQuote(MyStr),LogFile
WriteLog String(70,"*"),LogFile
WriteLog Traitement("",MyStr),LogFile
ws.Run LogFile,1,False
 
Function Traitement(chaine,liste)
	Dim nouvelle_chaine,nouvelle_liste,j
	If liste = "" Then
		resultat = resultat & chaine & VbcrLF
	Else
		For j=1 to Len(liste)
			nouvelle_chaine = chaine & Mid(liste,j,1)
			nouvelle_liste = Replace(liste,Mid(liste,j,1),"")
			Traitement nouvelle_chaine,nouvelle_liste
			nouvelle_chaine = ""
			nouvelle_liste = ""
		Next
	End If	
	Traitement = resultat
End Function
'*****************************************************************
'Fonction pour écrire le résultat dans un fichier texte
Sub WriteLog(strText,LogFile)
	Dim fs,ts 
	Const ForAppending = 8
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(LogFile,ForAppending,True)
	ts.WriteLine strText
	ts.Close
End Sub
'*****************************************************************
'Fonction pour ajouter des guillemets dans une variable
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'*****************************************************************