Fonction récursive de collections

Rebonjour,

Après avoir découvert l'avantage des collections sur les tableaux, je suis face à un nouveau problème sur une fonction récursive.

En effet, j'ai ça:

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

Function f_recursive(treeElement as Elements) as Collection Dim dataCollection as New Collection For each element in treeElement 'treeElement et elements sont dans une structure arborescente 'd'un autre programme Dim newData as New element dataCollection.add newData newData = element If element.a_des_sous_elements = True Then f_recursive(element.treeElement) End If f_recursive = dataCollection end function

---

La fonction marche mais le résultat obtenu n'est pas bon: la fonction répète le dernier élément de chaque groupe de sous-éléments.
En gros, il semble que ça ne crée pas de sous éléments et qu'il n'y ait pas de réinitialisation dans le For.

Merci d'avance pour votre aide,

Nicolas

Hello, j'ai deux idées sur ton problème :

1e supposition

Citation:

---

Envoyé par Nico820

Function f_recursive(treeElement as Elements) as Collection
[...]
newData = element
[...]
f_recursive(element.treeElement)

---

à mon humble avis, tu passes la valeur de la collection et pas l'objet lui même.
Est-ce que ce ne serait pas possible de rajouter un byRef ?

Code:

---

Function f_recursive(byRef treeElement as Elements) as Collection

---

2eme supposition

Citation:

---

Dim newData as New element
dataCollection.add newData
newData = element

---

- essaie d'inverser les deux lignes, comme ca tu assignes un NOUVEL élément et pas le dernier en date :

Code:

---

1 2 3 4

Dim newData as New element newData = element dataCollection.add newData

---

Ce que je marque ici est purement "du feeling", je ne peux pas tester et donc vérifier... c'est juste pour faire avancer le schmiilblick...


Nico

Bonjour (Re),

Je suis de l'avis de la proposition 2 sans pouvoir la tester non plus mais je ferais plus cela:

Code:

---

1 2 3 4 5 6 7 8 9

For each element in treeElement 'treeElement et elements sont dans une structure arborescente 'd'un autre programme   Dim newData as New element   dataCollection.add newData   newData = element

---

Pour moi, on ne peux pas redéfinir un élément ajouter dans la collection donc il faut le faire avant

Code:

---

1 2 3 4 5 6 7 8

For each element in treeElement 'treeElement et elements sont dans une structure arborescente 'd'un autre programme   Dim newData as New element   newData = element dataCollection.add newData

---

Exemple a tester pour vérifier

Code:

---

1 2 3 4 5 6 7 8 9 10

dim collec as New Collection dim i as integer   i=2   collec.add i   i=3   msgbox collec(1) 'à 99% sur de moi sa renvoi "2" et non 3

---

tiens moi au courant

Bastien

Merci beaucoup Bastien et Nicopilami :ccool:

J'ai testé la seconde option, qui est celle qui pose problème:
toujours le même résultat. VB6 ne semble pas utiliser le "New" lors de la déclaration de la classe element et utilise le même objet dans la collection.
Par contre, il prends en compte le "New" quand il fait appel à la fonction récursive :(
Peut-on faire du "ByRef" dans la déclaration de la classe element??
Comment s'assurer si l'element nouveau est différent de l'antérieur?

Merci d'avance pour vos réponses,

Nicolas

J'ai trouvé le bug!

C'était au niveau de la déclatation de la classe:

Code:

---

1 2 3

Dim currentElement As Element Set currentElement = New Element

---

Pour les futurs galèriens de l'informatique, la fonction parfaite qui groupe les idées de Nico et Bastien:

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

Function f_recursive(ByRef treeElement as Elements) as Collection Dim dataCollection as New Collection For each element in treeElement 'treeElement et elements sont dans une structure arborescente 'd'un autre programme Dim newData as element Set newData = New element newData = element dataCollection.add newData If element.a_des_sous_elements = True Then f_recursive(element.treeElement) End If f_recursive = dataCollection end function

---

:yaisse1: