Discussion :

[Nico820]

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 :

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

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

[Nicopilami]

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

1e supposition

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 :

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

Function f_recursive(byRef treeElement as Elements) as Collection

2eme supposition

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 :

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

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

[bastou93]

Bonjour (Re),

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

Code :

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

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 :

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

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 :

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

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

[Nico820]

Merci beaucoup Bastien et Nicopilami

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

[Nico820]

J'ai trouvé le bug!

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

Code :

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

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 :

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

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