Tableau avec string comme index

Version imprimable

08/03/2007, 21h10
Kiboumz

Tableau avec string comme index

Bonjour,

Je recherche une façon d'avoir un tableau indexé avec des valeurs de types string. Un peu comme un hashtable, sauf que je voudrais plus d'un index.

Ex : mavariable.add("Element1")("Element2")("Valeur")
dim s as string = mavariable("Element1")("Element2")

Malheureusement le hashtable ne permet que de le faire à un seul niveau ...

Merci
a+
09/03/2007, 15h39
Abdelkabir

Si tu veux des index autres que des integer (nombres) vous avez 2 choix
HashTable (key,value)
SortedList(key, value) ==>une combinaison de ArrayList et HashTable

mais aucun de ces 2 collections n'admettent 2 keys à la fois, Bien quil permettent des keys
de n'importe quel type (Objet) , Mais tu peux essayer une solution:
créer une structure et faire d'elle comme index.
exemple:

Structure Index
Dim Index1 As Integer
Dim Index2 As Integer
End Structure

initialiser la structure:
Dim P As New Personne
P.Index1 = 1000
P.Index2 = 5200

Créer la collection:
Dim s As New SortedList

Ajouter:
s.Add(P,"premier élément")

en fait, je te donne un principe, je saias pas si ca va marcher ou pas:P
Bon courage
09/03/2007, 16h47
Kiboumz

Salut,

L'idée était bonne, mais ne fonctionne malheureusement pas. J'obtiens cette erreur : "Failed to compare two elements in the array."

Donc, si vous avez d'autres idées, n'hésitez pas!

Merci
a+

Jamais trop tard ???

Bonjour,
Avec une ArrayList dans laquelle on ajoute des structures de string, j'obtiens un bon résultat :

Code:

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
 Public Structure wKey
        Dim k1 As String
        Dim k2 As String
    End Structure
 
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim key1 As wKey
        Dim key2 As wKey
        Dim L As New ArrayList
        L.Clear()
        key1.k1 = "Paul"
        key1.k2 = "Newman"
        key2.k1 = "Robert"
        key2.k2 = "Mitchum"
        L.Add(key1)
        L.Add(key2)
        If L.Contains(key1) Then   'yatil Paul Newman ?
            MsgBox("true")         ' Oui bien sur 
        Else
            MsgBox("false")
        End If
        key1.k1 = "John"
        If L.Contains(key1) Then   'yatil John Newman ?
            MsgBox("true")
        Else
            MsgBox("false")         'non bien sur
        End If
    End Sub
End Class

Bien cordialement