Discussion :

[Kreepz]

Bonjour,

Voilà j'aimerais pouvoir supprimer une ligne de mon Hashtable quand la date est celle qui correspond à la plus ancienne.
Mais j'ai un message d'erreur dès le second passage, car il n'apprécie pas la modification.

Mon code:

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
Dim laDate As String = Nothing
 
                            For Each soins As DictionaryEntry In dateHashtable
 
                                laDate = dateDeSoin
 
                                If Not dateMajoration = elemt.Key Then
 
                                    For Each dates As DictionaryEntry In dateHashtable
 
                                        If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then
 
                                            laDate = dates.Key
                                            dateMajoration = laDate
 
                                            dateHashtable.Remove(dates.Key)
 
                                        End If
 
                                    Next
 
                                End If
 
                            Next

EDIT:

Le message d'erreur:

La collection a été modifiée; l'opération d’énumération peut ne pas s'exécuter!

Merci!

[Uranne-jimmy]

Bonjour

Tout est dit dans l'erreur ^^ Tu modifies la liste que tu parcours, ça lui plait pas.
J'ai déjà eu besoin de travailler sur des listes, supprimer des éléments dans une liste en la parcourant.
La solution facile c'est un for i = dataHashtable.count-1 to 0 step -1.
Mais je sais qu'il existe des méthodes pour supprimer directement des éléments à partir de leur index ou de leurs valeurs, mais je ne les ai pas en tête.

[Kreepz]

Bonjour

Tout est dit dans l'erreur ^^ Tu modifies la liste que tu parcours, ça lui plait pas.
J'ai déjà eu besoin de travailler sur des listes, supprimer des éléments dans une liste en la parcourant.
La solution facile c'est un for i = dataHashtable.length-1 to 0 step -1.
Mais je sais qu'il existe des méthodes pour supprimer directement des éléments à partir de leur index ou de leurs valeurs, mais je ne les ai pas en tête.

J'avais compris qu'il n'aimait pas la modification lors du parcours

Code :

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

for i = dataHashtable.length-1 to 0 step -1

Length n'est pas un membre du Hashtable donc sa ne peut pas fonctionner.

[Uranne-jimmy]

J'ai édité trop tard ^^
Un passage sur le msdn m'a permis de corriger : datahashtable.count-1.

[Kreepz]

J'ai édité trop tard ^^
Un passage sur le msdn m'a permis de corriger : datahashtable.count-1.

Mais cela ne me permet pas de supprimer un élément du HashTable?

[Uranne-jimmy]

Je n'utilise pas cette collection en particulier, excuse moi ^^
Il n'y a pas d'index donc on ne peux pas faire comme ça, on doit faire autrement, mais dans tout les cas, un for each n'est pas la solution.

Code :

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

1
2
3
4
5
6
7
8
If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then
 
                                            laDate = dates.Key
                                            dateMajoration = laDate
 
                                            dateHashtable.Remove(dates.Key)
 
                                        End If

... J'ai beau chercher, dans ce cas la solution serait d'enregistrer les dates.key dans une liste, et une fois le for each terminé, de supprimer toutes les clés de la liste :

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
 
dim cle_A_Suppr as new list(of date)
                                    For Each dates As DictionaryEntry In dateHashtable
 
                                        If (CType(dates.Key, Date)) < (CType(laDate, Date)) Then
 
                                            laDate = dates.Key
                                            dateMajoration = laDate
 
                                            cle_A_Suppr.add(dates.key)
                                        End If
 
                                    Next
for each cle in cle_A_Suppr
dateHashtable.Remove(cle)
next

Je n'ai pas testé, et je n'ai pas fait le code en option strict on, mais j'espère que ça marche ^^'