Get key associated with max value in a Dictionnary using vb - LINQ "not allowed"?

[JBlack68]

To all,

Started learning Dictionary to deal with data from an engineering software. So far so good…
I am looking for a way of getting the max value in the dictionary and then get the key related to that max value. Dictionary (Of Integer, Double) representing (Node ID,value). According to online doc is should be easy but it’s not working as I am getting an error message when trying to run the test code.

Ultimately I’d like to return the top Nth Node ID corresponding to the top Nth value. It seems that this can be done easily with LINQ but as this cannot without an author license I am a bit stuck.

So my (simple) thinking is:
1. Find max value in dictionary, returns its key (i.e the Node ID).
2. Add nodeID to list ListNodeIDFinal
3. Remove pair (NodeID,value) from step #1
Loop through step 1-3 N times

Any suggestions?

Thanks
Regards


Dim mydictionary As New Dictionary(Of Integer, Double)
mydictionary.Add(5001, 10.1)
mydictionary.Add(5002, 20.2)
mydictionary.Add(9999, 99.9)
mydictionary.Add(6001, 30.3)
mydictionary.Add(6002, 40.4)

'BEFORE
For Each pair In mydictionary
theLW.WriteLine(String.Format("{0}, {1}", pair.Key, pair.Value))
Next

Dim maxvalue As Integer = mydictionary.Max(Function(Value) mydictionary.Value)
theLW.WriteLine("" & maxvalue.ToString )

'The Remove method accepts only keys as arguments. To remove the “nth” item from a Dictionary object, use a workaround that uses the Remove and Keys methods:
myDictionary.Remove myDictionary.Keys()(maxvalue)

'AFTER
For Each pair In mydictionary
theLW.WriteLine(String.Format("{0}, {1}", pair.Key, pair.Value))
Next
JXB

 

[MacGyverS2000]

Try tec-tips, our sister site...

Dan - Owner

http://www.Hi-TecDesigns.com