vb.net: индекс в «для каждого»

Question

Когда-нибудь в VB.NET у меня есть что-то вроде:

For Each El in Collection 
    Write(El) 
Next 

Но если мне нужно индексный номер, я должен изменить его

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

Или даже (хуже)

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

есть еще один способ получения индекса?

Answer 1

Если вы используете общую коллекцию (Collection (of T)), вы можете использовать IndexOf method.

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

Answer 2

Если вам нужен индекс, то цикл for является наиболее простым вариантом и имеет отличную производительность. Помимо упомянутых вами альтернатив, вы можете использовать перегруженный метод Select для отслеживания индексов и продолжения использования цикла 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 

Однако я бы придерживался цикла for, если единственная причина - перебрать его и узнать индекс. Вышеописанное не дает понять, почему вы решили пропустить цикл for.

Answer 3

Я считаю, что ваш оригинальный способ сделать это с помощью счетной переменной - это самый эффективный способ сделать это. Использование Linq или IndexOf убьет производительность.

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