vb.net：“foreach”中的索引号

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 方法。

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

Answer 2

我相信您使用计数器变量的原始方法是最有效的方法。使用 Linq 或 IndexOf 会降低性能。

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

Answer 3

如果您需要索引，那么 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 4

如果您需要索引，请更改迭代集合的方式：

您已经想出了最简单的答案：

For i = 0 To Collection.Count() - 1
   DoStuffWith(Collection(i))
Next