visual basic - algorithmes

Bonjour tout le monde,

Je vous appelle à l'aide puisque je suis bloqué sur visual basic.

Je m'explique,

j'ai un tableau qui en contient un autre qui lui aussi en contient un autre et ainsi de suite ....

Maintenant je souhaite extraire l'un d'eux en fonction d'une valeur i :

si le programme retourne i = 0, extraire tableau.soustableau
si le programme retourne i = 1, extraire tableau.soustableau.soustableau
si le programme retourne i = 2, extraire tableau.soustableau.soustableau.soustableau ....
si le programme retourne i = n, extraire tableau.sous [..... n+1 fois] tableau

J'ai donc utilisé ce code qui marche parfaitement

Code:

---

1 2 3 4 5

For i = 0 To n If tableau.soustableau IsNot Nothing Then tableau = tableau.soustableau(0) End If next

---

maintenant j'ai envie de l'injecter dans un autre tableau du même type dans la position :

tableau.soustableau, si i=0
tableau.soustableau.soustableau, si i = 1 ....
tableau.sous[... n+1 fois...], si i= n

comment pourrais je faire ?

Merci d'avance :)

en fait pour être plus précis, ce que je cherche à faire, c'est d'avoir autant de ".soustableau" que le i qui se trouve dans la boucle :

Par exemple :

Code:

---

1 2 3 4 5

for i = 0 to n p= "" p= p+".soustableau" tableau.p = [...] next

---

Je sais que ce code est faux, mais si j'arrivais a convertir p en langage vb.net, ca serait a peu près ça !

Merci encore de votre intêret

il faut utiliser la récursivité:

Code:

---

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

Public Structure struct_test Public p As String Public soustab() As struct_test End Structure   Public Sub recursiveTab(ByRef i As Integer, ByRef myTab() As struct_test, index As Integer, value As String) If i = 0 Then myTab(index).p = value Else i -= 1 recursiveTab(i, myTab(index).soustab, index, value) End If End Sub

---