For Each Record in SortedList

[HDSoftware]

Heisan

Har problemer med å få til For Each på en SortedList. Ser jo at en SortedList krever to komponenter og en For Each derfor vil ha problemer med dette. Finnes det derimot en variant jeg kan bruke?

 

Ole

[GeirGrusom]

For Each funker i SortedList den...

Husk at alle klasser som implementerer IEnumerable kan du bruke For Each på, enkleste måten er å se om klassen har en GetEnumerator funksjon, dette har SortedList.

[aadnk]

Heisan

Ser jo at en SortedList krever to komponenter og en For Each derfor vil ha problemer med dette.  Finnes det derimot en variant jeg kan bruke?

8008031[/snapback]

Du kan bruke Values- eller Keys-kolleksjonen innunder SortedList for å søke gjennom henholdsvis verdier og nøkler, men det er strengt tatt ikke nødvendig. En kan søke gjennom elementene i SortedList direkte ved å bruke DictonaryEntry som datatype når den ikke er generic, og KeyValuePair når den er generic:

Dim oGenericList As New SortedList(Of String, Integer), oList As New SortedList

 

' * Initialisering *

oGenericList.Add("B", 1)

oGenericList.Add("A", 2)

oList.Add("D", 1)

oList.Add("C", 2)

 

' Søker gjennom alle elementer

For Each oItem As KeyValuePair(Of String, Integer) In oGenericList

    MessageBox.Show (oItem.ToString)

Next

 

' Søker gjennom alle ikke-generiske elementer

For Each oItem As DictionaryEntry In oList

    MessageBox.Show ("[" & oItem.Key & ", " & oItem.Value & "]")

Next

 

' Søker gjennom alle nøkler (metodikken er lik for begge)

For Each oItem As String In oGenericList.Keys

    MessageBox.Show (oItem.ToString)

Next

 

' Søker gjennom alle verdier

For Each oItem As Integer In oGenericList.Values

    MessageBox.Show (oItem.ToString)

Next