Discussion :

[Baptiste Wicht]

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 :

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

1
2
3
4
If serveur(5).AtEndOfStream Then
     openNextFile(serveur)
     WScript.echo(serveur(6))
End If

Dans la procédure openNextFile(serveur) :

Code :

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

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

[SfJ5Rpw8]

Bonjour Baptiste...

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

Code :

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

1
2
3
4
 
...
openNextFile serveur
...

[Baptiste Wicht]

C'était juste ça

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

[SfJ5Rpw8]

...
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

[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

Mais bon...

Merci bien

[SfJ5Rpw8]

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

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 :

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

1
2
 
monresultat = mafonction(sesparamétres)

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

Code :

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

1
2
 
mafonction sesparamétres

comme cela ça marche à tous les coups