Perte de valeurs d'une function à une autre

Bonjour,

J'ai un petit problème avec VBS que j'ai bien de la peine à comprendre.

Voilà le code :

Dans la fonction getDate() :

Code:

---

1 2 3 4

If serveur(5).AtEndOfStream Then openNextFile(serveur) WScript.echo(serveur(6)) End If

---

Dans la procédure openNextFile(serveur) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub openNextFile(ByRef serveur) If serveur(3) = UBound(serveur(4)) Then serveur(6) = 1 Else serveur(3) = serveur(3) + 1 Set serveur(5) = fso.OpenTextFile(serveur(4)(serveur(3)), ForReading, true) End If   WScript.echo (serveur(6)) End Sub

---

Quand je fais ça, le premier echo (dans openNextFile), me donne bien 1, mais ensuite, une fois revenu dans getDate, ca me donne 0 :?

Je pense que ça doit être une histoire de passage par valeur/référence, mais je passe bien par référence dans ma procédure openNextFile...

Quelqu'un aurait une idée de pourquoi est-ce que je perds ma modification ?

Merci

Bonjour Baptiste...

des parenthèses en trop ... non ..?

Code:

---

1 2 3 4

... openNextFile serveur ...

---

;)

C'était juste ça 8O

Ca marche tout de suite mieux en effet...

Ca change quoi de mettre les parenthèses ou pas ? Si je mets pas les parenthèses, j'arrive pourtant bien à récupérer les valeurs contenues dans le tableau serveur...

Merci

Citation:

---

Envoyé par Baptiste Wicht

...
Ca change quoi de mettre les parenthèses ou pas ? Si je mets pas les parenthèses, j'arrive pourtant bien à récupérer les valeurs contenues dans le tableau serveur...

---

tiens ... c'est du VBA .. mais bon c'est avant tout du VB et c'est le même principe : II-A-3-a. Le passage par Valeur

Merci bien bbil, j'ai bien compris le concept, cette fois, mais c'est quand même lourd d'avoir 2 possibilités pour faire la même chose qui marchent des fois et des fois pas :roll:

Mais bon...

Merci bien

Citation:

---

Envoyé par Baptiste Wicht

Merci bien bbil, j'ai bien compris le concept, cette fois, mais c'est quand même lourd d'avoir 2 possibilités pour faire la même chose qui marchent des fois et des fois pas :roll:

Mais bon...

Merci bien

---

oui peu être que VB est trop souple ... la règle c'est si ma fonction/procédure doit renvoyer un résultat je met des parenthèse :

Code:

---

1 2	monresultat = mafonction(sesparamétres)

---

si elle ne doit pas renvoyer de résultat je ne met pas de parenthèse ...

Code:

---

1 2	mafonction sesparamétres

---

comme cela ça marche à tous les coups ;)