Discussion :

[Kiboumz]

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+

[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
Bon courage

[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+

[belocom]

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

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
 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