[vb6] Imbriquer plusieurs tableaux

**Asdorve** · 22/06/2006, 14h16

Bonjour,

Est-il possible d'imbriquer plusieurs tableaux les un dans les autres en utilisant quelque chose comme:

Code :

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

1
2
3
4
5
 
TableauGénéral = Array(France, Espagne)
 
France = Array("Fra", "france", "toulouse", "paris")
Espagne = Array("Esp", "airbus Espagne", "madrid", "Barcelone")

si oui comment faire?

Merci d'avance

**Asdorve** · 22/06/2006, 17h25

Bon, j'ai écris un petit bout de code sans prétention mais qui permet d'imbriquer des tableaux et de faire des recherches dans ces tableaux.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Option Compare Text
 
Private Sub Form_Load()
Dim TableauGénéral As Variant
Dim France, Espagne, Allemagne, Angleterre, EADS, Chine, AmeriqueNord As Variant
Dim TabGen As Variant
 
 
MonMot = InputBox("Saisi d'un mot")
 
'Je défini pour chaque pays les mots clefs qui correspondent
France = Array("Fra", "france", "fr", "toulouse", "paris")
Espagne = Array("spain", "espana", "españa", "madrid", "seville")
Allemagne = Array("Allemagne", "germany", "deutschland", "ger", "hambourg", "hamburg")
Angleterre = Array("angleterre", "u.k.", "uk")
EADS = Array("eads")
Chine = Array("chine", "china", "pekin", "beijing", "asia")
AmeriqueNord = Array("amerique du nord", "washington", "washington D.C.", "washington dc", "New York")
 
'Je définis un tableau général avec la liste des tableaux ci-dessus
TableauGénéral = Array(France, Espagne, Allemagne, Angleterre, EADS, Chine, AmeriqueNord)
 
'Pour chaque éléments du tableau général
For Index = 0 To UBound(TableauGénéral)
    'Je récupère la valeur de l'index
    TabGen = TableauGénéral(Index)
        'Boucle imbriquée ou je lis tous les mots clefs du sous-tableau
        For Index2 = 0 To UBound(TabGen)
            'Je récupère le mot clef en cours
            MotClef = TabGen(Index2)
 
            'Si ce mot clef correspond à MonMot
            If MotClef = MonMot Then
                'Je récupère le nom du pays concerné
                Select Case Index
                    Case "0": NomPays = "France"
                    Case 1: NomPays = "Espagne"
                    Case "2": NomPays = "Allemagne"
                    Case "3": NomPays = "Angleterre"
                    Case "4": NomPays = "EADS"
                    Case "5": NomPays = "Chine"
                    Case "6": NomPays = "Amérique du Nord"
                End Select
 
                MsgBox "Nom du pays: " & NomPays
                Exit Sub
            End If
 
        Next
 
Next
 
End Sub