Mettre à jour une collection (sorteddictionary)

Version imprimable

Bonjour,

Voici mon problème :

Je dois mettre à jour chaque élément d'une collection (en fait un sorteddictionary) en fonction d'un savant calcul.

L'élément value de mon sorted dictionary est formé de la structure suivante :
Code:

1 2 3 4 5 6 7 8 9 10 Friend Structure Donnees dim YearWeek as string 'Clé dim StkIni as long dim QteDispo as long dim BesoinBrut as long dim StkMin as long dim StkMax as long dim BesoinNet as long End Structure
Cette collection représente les données d'un article pour une plage de semaines (d'ou la clé YearWeek) allant de S1 à SZ

La formule de calcul de BesoinNet est la suivante (pour la semaine SN courante)

Citation:

Calculer volume = StkMin(SN) - (StkIni (S1) + SOMME(QteDispo(de S1 à SZ))) + SOMME(BesoinBrut (de S1 à SN))

Si volume > 0
BesoinNet = volume - SOMME(BesoinNet(de S1 à SN-1))
Sinon
BesoinNet = 0
Fsi

Dans un premier temps, j'alimente mon sorteddictionary en créant les enregistrements dedans pour la plage de semaine.

Après avoir inseré la dernière semaine, j'appelle la sub calcul suivante :

Citation:

Initialiser les variables locale

Parcourir la collection pour calculer SOMME(QteDispo)

Mémoriser les informations concernant S1

Pour tout les enregistrements de la collection
Calculer SommeBesoinBrut = SommeBesoinBrut + BesoinBrut(SN)

Calculer Volume = StkMin(SN) - (StkIni(S1) + SOMME(QteDispo)) + SommeBesoinBrut

Si Volume > 0
BesoinNet(SN) = Volume - TotBesNet
Sinon
BesoinNet(SN) = 0
Fsi

TotBesNet = TotBesNet + BesoinNet(SN)

FPour

Ce que j'ai traduit par le code suivant :
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 31 32 33 34 35 Public Sub calcul() Dim Volume As Long Dim Sem1 As Boolean = True Dim RecSem1 As RecordDonnesCalcul Dim TotQteDispo As Long = 0 Dim TotBesBrut As Long = 0 Dim TotBesNet As Long = 0 For Each RecSem As RecordDonnesCalcul In Values TotQteDispo += RecSem.QteDispo Next For Each RecSem As RecordDonnesCalcul In Values If (Sem1) Then RecSem1 = RecSem Sem1 = False End If TotBesBrut += RecSem.BesoinBrut Volume = RecSem.Stockmin - (RecSem1.StockInitial + TotQteDispo) + TotBesBrut If (Volume > 0) Then RecSem.BesoinNet = Volume - TotBesNet Else RecSem.BesoinNet = 0 End If TotBesNet += RecSem.BesoinNet Next End Sub
Les calculs se font bien (j'ai vérifié sous débug) par contre, la collection n'est pas mise à jour (lorsque je veux récupérer les information d'une semaine, BesoinNet est toujours à zéro).

Je soupçonne que "RecSem" n'est pas un pointeur sur la "Value" courante mais une copie de celle-ci.

Ma question est la suivante :
Comment parcourir une collection en récupérant un pointeur vers l'élément "Value" courant.

Merci de votre aide.

Joël

17/08/2009, 14h34
Lapinpanda

Code:

maCollection.ContainsValue(of int32, maValue)

peux être?
17/08/2009, 15h12
joel88
Merci LapinPanda,

2 problèmes dans ta solution :
1. C'est une collection particulière puisque SortedDictionary
2. L'élément Valeur n'est pas de type entier, mais est une structure (ça je devrais être capable de translater)
Mais ta réponse m'a ouvert une solution possible. Si elle fonctionne, je l'ajoute en fermant le topic.

Joël
17/08/2009, 15h23
Lapinpanda

j'ai mis "of int32" pour l'exemple, on peut très bien choisir un autre type, bonne chance ;)
17/08/2009, 16h07
Redouane
Bonjour,
Tu peux travailler avec la méthode GetEnumerateur() pusique SortedDictionnary implemente de l'interface IEnumerator :
Code:

1 2 3 4 Dim enumerator As IEnumerator = TonDictionnaire.Values.GetEnumerator() While (enumerator.MoveNext()) Response.Write("<br>" + enumerator.Current.ToString()) End While
l'interface IEnumerator fournit la propriété Current qui renvoie la valeur courante de l'itération, et les méthodes MoveNext, qui permet d’avancer de un dans l’itération et qui retourne false si l’on a atteint la fin de la collection, et Reset, qui permet de recommencer l’itération du début.

NB : Tu peux récupérer avec, les clés aussi "TonDictionnaire.Values.GetEnumerator()"
et même récupérer les deux "TonDictionnaire.GetEnumerator()"
17/08/2009, 16h16
Redouane

En fait : IEnumerable est une interface permettant de déployer un énumérateur sur une collection.
Cet énumérateur est un tableau qui ne peut être parcouru que dans un seul sens.
Sa seule méthode GetEnumerator retourne un énumérateur de type IEnumerator que nous pourrons utiliser avec une boucle while comme dans le précédant exemple

Toutefois, toute collection implémentant IEnumerable pourra être parcourue de manière plus aisée et plus optimisée grâce à une boucle foreach.
Son avantage par rapport aux autres boucles traditionnelles est qu’il va nous permettre de définir le type des objets que nous voulons sortir de la collection.
Si nous maitrisons le contenu de notre collection, nous pourrons ainsi éviter un cast inutile quand nous extrayons les valeurs.
17/08/2009, 18h41
StormimOn

Donnees est une structure (type valeur), tu récupères donc une copie comme tu l'as compris. Si à la place tu déclares une classe (type référence) ça devrait aller beaucoup mieux. Attention avec les types valeur et les types référence ;)

Bonjour,

Comme je le précisais hier, j'ai trouvé une autre solution qui fonctionne et que je vous soumet ici.

Citation:

Je pars du postulat que je connais la liste des semaines donc des clés, stockée, elle aussi, dans un SortedDictionary.

Je vais utiliser la propriété Item(clé) pour mettre à jour les données

Ci-dessous, la modification de la dernière boucle "FOR EACH"

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
 
        For Each Semaine As String In pSemaines.Values
 
            If (TryGetValue(Semaine, RecSem)) Then
 
                If (Sem1) Then
                    RecSem1 = RecSem
                End If
 
                TotBesBrut += RecSem.BesoinBrut
 
                Volume = RecSem.Stockmin - (RecSem1.StockInitial + TotDispoLot) + TotBesBrut
 
                If (Volume > 0) Then
                    RecSem.BesoinNet = Volume - TotBesNet
                Else
                    RecSem.BesoinNet = 0
                End If
 
                Me.Item(RecSem.YearWeek) = RecSem
 
                If (Sem1) Then
                    RecSem1.BesoinNet = RecSem.BesoinNet
                    Sem1 = False
                End If
 
                TotBesNet += RecSem.BesoinNet
            End If
        Next

Un grand merci à tous pour vos précisions, bout de code, etc... que je note précieusement pour un usage futur.

Cordialement,
Joël