Tableaux associatifs ?

**lyxthe** · 05/09/2006, 09h27

voila, je suis nouveau ici, et j'ai essayé de trouver par mes propres moyens la réponse à ma question, mais sans résultat. Je ne suis pas féru de recherche aussi peut-être ai-je mal fouillé, toujours est-il que ma question reste sans réponses. Je débute dans la programmation en VB, code que j'emploi à l'heure actuel au cours d'un stage dans lequel je dois débuger un outil codé en vb sous Access 97 (je connais pas la version de vb utilisée). Je voulais savoir si, comme dans d'autres langages, il existe en VB le system de tableau associatif. Je sais pas si ce sont nos profs qui ont inventés ce mot ou si les tableaux associatifs sont connus de tous, néanmoins j'explique ce que j'entend par tableau associatif. J'aurais besoin d'un tableau T qui prend en valeur des entiers par rapport à des clefs. Genre

Code :

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

1
2
T["babar"] = 4
T["chien"] = 7

et ensuite une méthode genre

Code :

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

1
2
3
for each entier in T
      msgbox "la clef est : " & T.key & ", contenant : " & entier
next entier

ce qui donnerait une msgbox avec
"la clef est babar, contenant 4"
et une autre
"la clef est chien, contenant 7"

je sais pertinament que la syntaxe que je présente n'existe surement pas en VB mais j'immagine qu'il doit y avoir possibilité d'avoir des équivalence vu qu'elle existe en d'autres langages.

Voila merci encore si quelqu'un peut me répondre.

Lyxthe

**Arkham46** · 05/09/2006, 09h28

salut,

c'est l'objet Collection

**lyxthe** · 05/09/2006, 09h32

collection c'est recordset? parce que c'est bien ce que j'ai pensé au début mais je ne parviens pas à l'utiliser de la façon dont je l'entend

**Tofalu** · 05/09/2006, 09h38

Non que collection et pas recordset

Code :

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

1
2
3
4
Dim oC As New Collection
oC.Add "bonjour", "mot1"
oC.Add "Au revoir", "mot2"
MsgBox oC("mot1")

**lyxthe** · 05/09/2006, 09h40

ok je v me lancer la dedans. Merci pour tout

**lyxthe** · 05/09/2006, 10h09

encore navré de demander cela ici, je ne sais même pas si c'est toléré, mais bon, qui ne tente rien n'a rien. Après une petite heure à rechercher de l'aide sur l'utilisation des collections, je rentre bredouille. Donc quelqu'un connait-il l'emplacement d'un tuto ou d'une aide ou d'une source sur l'utilisation des collections ? encore désolé et merci aux éventuels réponses

**Tofalu** · 05/09/2006, 10h22

Il n'y a pourtant rien de compliquer.

oC.Add element,clé

Ajoute un élément à la collection. La clé correspond à ce qu'il y a dans les crochets d'un tableau associatif.

oC.remove clé

Supprime l'élement dont la clé est passée en paramètre

oC(clé)

retourne l'élément dont la clé est passée en paramètre

**Tofalu** · 05/09/2006, 10h27

Pour reprendre ton exemple :

Code :

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

1
2
3
4
5
6
7
Dim oC As New Collection
Dim element As Variant
oC.Add 4, "babar"
oC.Add 7, "chien"
For Each element In oC
    MsgBox element
Next

À me relire, je me rends compte que ça ne correspond pas entièrement. On ne parvient pas à retrouver la clé de l'élément. Pour avoir quelque chose de plus proche, il faudrait l'utiliser avec un classe d'objet élément

**lyxthe** · 05/09/2006, 10h30

pour l'instant ça va, mon problème est que je n'arrive pas à tester si une clef est déjà présente dans le tableau

Code :

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

If IsNull(lo_test(ls_str)) Then

avec lo_test la collection et ls_str la clef, je voudrais tester si lo_test contient déjà une case avec la clef ls_str, mais isnull n'est pas une méthode applicable sur la collection visiblement

.
Je vois bien la solution de parcourir entierement tout le tableau à la recherche de la clef en passant un test à 1 si elle est présente, mais c'est plutot laborieux. donc j'immagine qu'il y a une méthoe search ou find qui renvoit 1 si elle trouve la clef ou 0 sinon mais impossible de connaitre la syntaxe exacte. J'ai pas trop de soucis quant à l'algoritmie nécessaire, si je demande s'il existe un tuto ce sont plutot pour connaitre les méthodes associées et la syntaxe pour les écrire. parce que je sais pertinemment que des questions à la....... comme ça j'en aurais d'autres :p

**Tofalu** · 05/09/2006, 10h31

Les dictionnary de la référence Microsoft Scripting runtime sont mieux

Ils offrents les deux collections clés et valeurs

Dim oD As New Dictionary
Dim element
oD.Add "babar", 4
oD.Add "Chien", 7
For Each element In oD
MsgBox element & ":" & oD(element)
Next

Ils permettent en plus de trier

**lyxthe** · 05/09/2006, 10h35

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim lo_test as collection
dim lo_test3 as variant
dim li_h2 as integer
dim ls_str as string
 
 If IsNull(lo_test(ls_str)) Then
      lo_test.Add Item:=li_h2, Key:=ls_str
 Else
      lo_test(ls_str) = CInt(lo_test(ls_str)) + li_h2
 End If
 
For Each lo_test3 In lo_test
        msgbox "la clef est : " & lo_test3.key & ", et la valeur est :  "  & lo_test3
Next lo_test3

en gros je voudrais avoir un truc un peu comme ça.

**lyxthe** · 05/09/2006, 10h41

dictionary ça a l'air interessant, mais mon vb d'access 97 l'a pas l'air de connaitre :'(

**Tofalu** · 05/09/2006, 10h44

Dictionnary fait partie de la référence Microsoft Scripting runtime.

Pour les test de clés, ça n'existe pas dans les collection, il te faut gérer les erreurs en cas de doublons.

Par contre, les dictionnary propose une fonction Exists

**lyxthe** · 05/09/2006, 10h49

donc visiblement dictionary a l'air vraiment interessant merci je continue sur cette voix alors....peut etre à dans peu de temps pour d'autres questions