Perte de valeur d'une variable

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function GetReqItemByName (tdc, ParentID, ChildName) set Reqfactory = tdc.reqfactory Dim Item Item = -1 set List = Reqfactory.GetChildrenList(ParentID) If List.count <> 0 Then For Each item in List If trim(item.Name) = trim(ChildName) Then Item = item.ID End If Next End If GetReqItemByName = Item End Function

---

Voilà une fonction somme fois toute simple. Lorsque j'arrive à Item = item.ID, je remarque que Item prend la bonne valeur (msgbox par exemple).
Mais lorsque j'arrive à GetReqItemByName = Item, si juste avant
la ligne j'affiche la valeur de Item, il n'en a plus !!!! 8O
A noter que j'ai aussi déterminer ne passer qu'une fois dans la condition ci-dessous pour tout le parcours de la boucle :

Code:

---

1 2 3

If trim(item.Name) = trim(ChildName) Then Item = item.ID End If

---

Je suis perdu, quelqu'un voit quelque chose que je ne vois pas ?

salut,
ta variable item change de type en cours de route ce qui n'est pas très logique
au départ, item est défini comme un simple variant numérique puis la ligne:

Code:

---

For Each item in List

---

provoque un cast vers ce qui est vraisemblablement un variant objet de la collection List

la ligne:

Code:

---

Item = item.ID

---

signifie qu'on affecte à la propriété par défaut de l'objet item sa propriété ID (j'espère que c'est pas la même :mouarf:)
ensuite il manque un exit for pour sortir de la boucle si le test est positif
enfin, le test:

Code:

---

If List.count <> 0 Then

---

est à mon sens inutile, car si la collection est vide la boucle for each n'est pas exécutée :aie:

Merci de ta réponse.

Citation:

---

Code :
If List.count <> 0 Thenest à mon sens inutile, car si la collection est vide la boucle for each n'est pas exécutée

---

Fort probable je l'avais mis par sécurité.

Autrement VBS n'est il pas censé être case sensitif ?
Certe c'est mal choisis Item et item, mais je pensais que c'était pour lui deux variables différentes !!!! (peut être une grosse erreur)

Enfin je vais suivre la piste et cahnger le nom.

Citation:

---

Autrement VBS n'est il pas censé être case sensitif ?

---

hé non, en revanche c'est le cas de javascript/jscript... :mrgreen:

Oui c'est vrai j'ai marqué une connerie.
Maintenant que j'y pense, il n'est pas case sensitive, et pas mal de mois je me suis amusé à déclarer une variable avec une majuscule et ensuite l'utiliser sans :aie: (par fénéantise)
Quel con !!!!
Une demie journée pour ne pas voir cela !!!

Bon j'ai encore une autre problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim toto toto = GetReqItemByName (tdc, ParentID, ChildName) Function GetReqItemByName (tdc, ParentID, ChildName) set Reqfactory = tdc.reqfactory Dim Items Items = -1 set List = Reqfactory.GetChildrenList(ParentID) If List.count <> 0 Then For Each item in List If trim(item.Name) = trim(ChildName) Then set Items = item ' attention modification j'affecte item et non son ID End If Next End If GetReqItemByName = Items End Function

---

Au niveau de l'appel cela merde. En effet, j'ai décidé de renvoyé item carrement. item represente un objet.
Je vais bien jusque GetReqItemByName = Items, mais ensuite mon script ne dépasse pas toto = GetReqItemByName (tdc, ParentID, ChildName)

J'ai bien essayé avec un set toto, mais cela ne passe pas.

Est ce qu'une fonction peut renvoyer un objet en VBS ?

Citation:

---

Est ce qu'une fonction peut renvoyer un objet en VBS ?

---

extrait de la doc vbs (instruction function): :aie:

Citation:

---

Une fonction qui renvoie une référence d'objet renvoie la valeur Nothing si aucune référence d'objet n'est affectée à name (en utilisant Set) dans la Function.

---

un petit exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Dim og,ro   Class test Public go End Class   Function getgo(ByRef X) X.go="salut" Set getgo=X End Function   Set og = New test og.go="hello" Set ro=getgo(og) MsgBox ro.go

---

et maintenant au boulot :P

lol J'y ai pensé, et j'ai tout préparé pour mon test. Je l'ai lancé, et j'ai oublié de regarder le résultat avant que tu ne postes ton message et de mettre à jour ma demande. :(

Je viens juste de regarder et cela marche :D

Hé oui le set pour signaler que la variable est une référence à l'objet est indispensable.

Bien que la syntaxe pour le renvois d'une valeur pour une fonction est particulière (par rapport à du C/C++/C#), c'est bien une affection. Et il ne faut considérer cela comme un return.
On affecte une valeur à la fonction. La fonction elle même sert de référence sur cette valeur.
Donc le set est à appliqué si l'on renvois un objet !!!

Moi j'utilisais la syntaxe comme un simple return :aie:

Merci de ton aide. (La relecture du code par des pères -> très efficace :) )