[VBS]Bug sur les boucles for.

**méphistopheles** · 23/03/2006, 18h38

Bonjours.

je me suis récement mis au VBS (j'ai eu du mal, trop habitué au VB6).

voici un petit code d'entrainement, le but êtant de sortir un mot différent à l'arrivée.

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
38
39
40
41
<HTML>
<HEAD>
<SCRIPT language="VBscript">
<!--
Option explicit
Sub ok_Onclick
dim Entre
dim listN 
dim numero 
dim rep
dim nums(32)
rep=Inputbox("Entrez votre Pseudo")
Entre=""
numero="1,2,8,3,14,7,14,13,3,1,14,22,17,22,17,22,17,22,17,22, 17,22,17,22,17,22,17,22,17,22,17,22"
listN ="1"
if replace(ListN,rep,"")<>listN then
        rep=Inputbox("Entrez le mot de passe")
        rep=replace(rep," ","")
        if len(rep)<32 then
                msgbox mid(rep,len(rep),1) & " ?"
                for i= 1 to len(rep)
                        nums(i-1)=mid(rep,i,1)
                next
                msgbox "ok"
                for i= 0 to 32
                        Entre=Entre & nums(val(split(numero,",")(i)))
                next
        end if
end if
msgbox Entre
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM name="commande">
<INPUT name="ok" type="button"
value="Cliquez ici">
</FORM>
</BODY>
</HTML>

Malheuresement, il bloque sur cette partie(enfin je pense, vu qu'il m'affiche la msgbox de code juste avantetr pas celle après):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i= 1 to len(rep)
        nums(i-1)=mid(rep,i,1)
next

Si vous avez une idée...

Merci

**ouskel'n'or** · 23/03/2006, 18h48

Salut satan,

Je comprends pas

for i= 1 to len(rep)
nums(i-1)=mid(rep,i,1)
next

là, tu prends que des bouts de nombre quand ils ont deux chiffres, c'est ce que tu veux ?

A+

**ouskel'n'or** · 23/03/2006, 18h52

Je reviens.

pour me faciliter la tâche, je travaillerais sur un tableau :

numero = Array(1, 2, 8, 3, 14, 7, 14, 13, 3, 1, 14, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 To UBound(numero)
    'tcétéra...
Next

Tu dis, mais pas à moi, je m'en vais

A+

edit
Bonsoir jemefe

**jmfmarques** · 23/03/2006, 18h52

Moi, je vois que celà passe dans un tableau les caractères, un par un, de la chaîne traitée.
Celà ne devrait pas provoquer d'erreur, sauf si ton tableau est déclaré comme d'un type différent de string, ou que les dimensions de ton tableau sont trop petites pour recevoir tous les caractères !

**méphistopheles** · 23/03/2006, 18h58

on ne déclare pas les types en vbs...

sinon, ouskel'nor, je découpe la deuxième chaine entrée en petits bouts que je stoques dans le tableau nums puis j'associe à chaque nombre de mon string la lettre stoquée dans l'index corespondant.
En effet, ce serait peut-être préfférable de faire un array.

cependant, le problème vient de la boucle: en effet, je n'arrive pas à lancer la boucle même vide...

je pense que c'est un problème spécifiqe au vbs....

salut

**méphistopheles** · 23/03/2006, 19h08

Ce n'étais pas un problême de VBscript: j'avais mis option explicit et j'avais oublié de déclarer les variables.

par contre, on dirais qu'il n'accepte pas la fonction Val.

il y as un moyen de remplacer?

merci