vb.net: número de índice en "para cada"

Question

En algún momento de VB.net que tengo algo así como:

For Each El in Collection 
    Write(El) 
Next 

Pero si necesito el número de índice, que tengo que cambiarlo a

For I = 0 To Collection.Count() - 1 
    Write(I & " = " & Collection(I)) 
Next 

O incluso (peor)

I = 0 
For Each El In Collection 
    Write(I & " = " & El) 
    I += 1 
Next 

¿hay otra manera de conseguir el índice?

Answer 1

Si está utilizando una colección genérica (Colección (de T)) entonces puede usar el IndexOf method.

For Each El in Collection 
    Write(Collection.IndexOf(El) & " = " & El) 
Next 

Answer 2

Si necesita el índice, un bucle for es la opción más sencilla y tiene un gran rendimiento Además de las alternativas que mencionó, puede usar el método Select sobrecargado para realizar un seguimiento de los índices y continuar utilizando el ciclo foreach.

Dim list = Enumerable.Range(1, 10).Reverse() ''# sample list 
Dim query = list.Select(Function(item, index) _ 
          New With { .Index = index, .Item = item }) 
For Each obj In query 
    Console.WriteLine("Index: {0} -- Item: {1}", obj.Index, obj.Item) 
Next 

Sin embargo, me quedaría con el bucle for si el único motivo es iterar sobre él y conocer el índice. Lo anterior no aclara por qué eligió omitir el ciclo for.

Answer 3

Creo que su forma original de hacerlo con una variable de contador es la forma más eficiente de hacerlo. Usar Linq o IndexOf mataría el rendimiento.

Dim i as Integer = 0 
For Each obj In myList 
    'Do stuff 
    i+=1 
Next