如何一次在字符串中循环两行（每次迭代返回两次回车）？

Question

我想一次在字符串中循环两行。我知道我可以通过在回车符上分割以下内容来遍历字符串中的每一行：

For Each line As String In Split(myString, vbCrLf)
 //do something with line
 Continue For
End If

如何一次在字符串中迭代两行？我必须使用两个循环吗？

Answer 1

您无法使用For..Each循环来进行后续循环，因为该循环的定义是循环遍历每个元素。

您需要使用带有计数器和For指令的老式Step循环。

Dim stringArray As String() = Split(myString, vbCrLf)

For loopCounter As Integer = 0 To stringArray.Length - 2 Step 2
    If (loopCounter + 2 >= stringArray.Length) Then
        ' Need to handle the scenario for an Odd number of items in the array
        Debug.WriteLine($"{stringArray(loopCounter)}")
    Else
        Debug.WriteLine($"{stringArray(loopCounter)}:{stringArray(loopCounter + 1)}")
    End If
Next