有没有办法在vb.net的每个循环中遍历多个变量？

Question

我想循环两个字符串数组，但不起作用。 可能看起来像以下：

For Each (s1, s2) As (String, String) In (stringArray1, stringArray2) 

是否有类似我可以使用Python的元组的东西吗？

Answer 1

我认为vb.net不支持这种方式。

如果你有两个IEnumerables，你可以做这样的事情

Using lst1 As IEnumerator(Of X) = List1.GetEnumerator(), 
     lst2 As IEnumerator(Of Y) = List2.GetEnumerator() 

    While lst1 .MoveNext() AndAlso lst2 .MoveNext() 
     If lst1 .Current.Equals(lst2 .Current) Then 
      ''Put here your code. 
     End If 
    End While 
End Using 

为了更好地解释，检查此相关链接：Is it possible to iterate over two IEnumerable objects at the same time?

Answer 2

如果他们是你可以做类似的长度相同。 ..

dim i as integer = 0 
do until i = s1.length 
dim s1Value as string = s1(i) 
dim s2Value as string = s2(i) 
i += 1 
loop 

Answer 3

在.NET 4中，你可以使用Zip和tuples。

Sub Main() 
    Dim arr1() As String = {"a", "b", "c"} 
    Dim arr2() As String = {"1", "2", "3"} 
    For Each t In TupleSequence(arr1, arr2) 
     Console.WriteLine(t.Item1 & "," & t.Item2) 
    Next 
    Console.ReadLine() 
End Sub 
Function TupleSequence(Of T1, T2)(
    ByVal seq1 As IEnumerable(Of T1), 
    ByVal seq2 As IEnumerable(Of T2) 
    ) As IEnumerable(Of Tuple(Of T1, T2)) 
    Return Enumerable.Zip(seq1, seq2, 
     Function(s1, s2) Tuple.Create(s1, s2) 
    ) 
End Function 

虽然不如Python好。

Answer 4

我已经研究过相同的问题，但在VB.Net中找不到美丽的编码方式。但是我认为没有必要像Python，Tcl等一样做。所以我只是使用For-Loop，类似于Jack的答案。这也适用于List。

'List1.Count = List2.Count 
For i as Integer = 0 To List1.Count - 1 
     'Work on List1.Item(i) and List2.Item(i) 
Next