Fonction recursive, Help

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fonction recursive, Help

Z_cool

HFR profile rating:⭐⭐⭐⭐

Salut,

encore moi. je dois modifier une fonction recursive, mais la je galeres (j ai jamais aimé la recursivité)

en gros, voila la fonction :

Code :

Private Function GetSubMembers(GroupObject, CurrentISAPath)
Dim TmpMember ' as IADs
For Each TmpMember In GroupObject.Members
If LCase(TmpMember.Class) = "group" Then
'Status
If DebugMode = TRUE Then Call Message ("Found group: '" & TmpMember.ADsPath & "'" & chr(10) & chr(13) & " in group: '" & GroupObject.ADsPath & "'. Analysing..." )
Call GetSubMembers(TmpMember, CurrentISAPath)
Else
AddEntry CurrentISAPath, TmpMember.ADsPath, GroupObject.ADsPath
End If
Next
End Function 'GetSubMembers(GroupObject, CurrentISAPath)

elle marche bien

Mon probleme c est que des fois, j ai GroupeObject qui pointe vers le group (appelons le "Toto"

Le groupe "Toto" contient le group "Tata"
Le groupe "Tata" contient le group "Toto"

Et la c est le drame, ca sort jamais.
J'ai essayé de mettre le nom du groupe dans un Dictionnary et tester avant le "Call GetSubMembers" de savoir si ce groupe avaitr deja été testé,.. mais ca marche pas, je dois mal m'y prendre...

si quelqu un a une idee ?

Merci d'avance

Publicité

jpcheck

Pioupiou

si toto contient tata et vice versa, tu dois pas faire du récursive c'est tout

Message cité 1 fois

Paul Hood

Ou alors tu testes que chaque groupe n'a pa déjà été traité avant d'appeler en récursif.

Message cité 1 fois

Z_cool

HFR profile rating:⭐⭐⭐⭐

jpcheck a écrit :

si toto contient tata et vice versa, tu dois pas faire du récursive c'est tout

Que Toto contient Tata, c est normal, le probleme c est quand Tata contient Toto, et ca, je vois pas comment le savoir quand je suis dans cette fonction.

Z_cool

HFR profile rating:⭐⭐⭐⭐

Paul Hood a écrit :

Ou alors tu testes que chaque groupe n'a pa déjà été traité avant d'appeler en récursif.

Oui, c est ce que je voulais faire,, un truc du genre :

Code :

Dim Catalogue
set Catalogue =CreateObject (scripting.Dictionary)
Private Function GetSubMembers(GroupObject, CurrentISAPath)
Dim TmpMember ' as IADs
Dim groupe_Name
For Each TmpMember In GroupObject.Members
If LCase(TmpMember.Class) = "group" Then
groupe_Name = 'Le nom NetBios du groupe que je detaille pas ici
if NOT Catalogue.exist(groupe_Name) then
'Status
If DebugMode = TRUE Then Call Message ("Found group: '" & TmpMember.ADsPath & "'" & chr(10) & chr(13) & " in group: '" & GroupObject.ADsPath & "'. Analysing..." )
Call GetSubMembers(TmpMember, CurrentISAPath)
Catalogue.add groupe_Name, 1
end if
Else
AddEntry CurrentISAPath, TmpMember.ADsPath, GroupObject.ADsPath
End If
Next
End Function 'GetSubMembers(GroupObject, CurrentISAPath)

mais je comprend pas pourquoi, ca marche pas ...

jpcheck

Pioupiou

il faut mettre ton flag "deja traité" avantr de lancer de nouveau la fonction, sinon tu reste bloqué dans la boucle...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Fonction recursive, Help

Sujets relatifs
Help problème debogage avec mon jeu vba	MAJ les valeurs retournées par une fonction
quel est la fonction fopen en C# ?	Probleme de message d'erreur sur une fonction SNMP
(EXCEL) Somme en fonction du format ou de la police	Comment sortir d'une fonction en renvoyant un message d'erreur
fonction qui retourne plusieurs variables	Help Programmation division binaire C
[C] Programmation fonction recup Bits port Série	Fonction absente d'une dll après compilation réussie
Plus de sujets relatifs à : Fonction recursive, Help

Page générée en 0.048 secondes