Discussion :

[hichamguenoun]

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 :

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

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

[hichamguenoun]

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 :

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

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

[ShadowTzu]

il faut utiliser la récursivité:

Code vb :

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

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