[VBS]Bug sur les boucles for.

Version imprimable

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:

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:

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

Si vous avez une idée...

Merci :wink:

23/03/2006, 17h48
ouskel'n'or

Salut satan,

Je comprends pas

Citation:

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+
23/03/2006, 17h52
ouskel'n'or
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:

1 2 3 For i = 0 To UBound(numero) 'tcétéra... Next
Tu dis, mais pas à moi, je m'en vais :wink:

A+

edit
Bonsoir jemefe
23/03/2006, 17h52
jmfmarques

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 !
23/03/2006, 17h58
méphistopheles

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 :wink:
23/03/2006, 18h08
méphistopheles

:oops: :oops: :oops: :oops: :oops: :oops: :oops:

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
24/03/2006, 08h08
pc75

Bonjour,

Citation:

Envoyé par méphistopheles

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

il y as un moyen de remplacer?

merci

Tu as les fonctions cInt(), cDbl(), cLng() ...
24/03/2006, 22h17
méphistopheles

Merci, je ne les conaissais pas

sujet :resolu: :wink: