"Продолжить" (на следующую итерацию) на VBScript

мы с коллегой пытались найти способ сделать эквивалент оператора " continue "в цикле VBScript" For/Next".

везде, где мы искали, мы обнаружили, что у людей не было возможности сделать это в VBScript без неприятных вложений, что для нас не вариант, так как это довольно большой цикл.

мы пришли с этой идеей. Будет ли это работать так же, как"продолжить(на следующую итерацию)"? У кого-нибудь есть лучший обходной путь или улучшение предложение?

For i=1 to N
  For workaroundloop = 1 to 1
    [Code]
    If Condition1 Then
      Exit For
    End If

    [MoreCode]
    If Condition2 Then
      Exit For
    End If

    [MoreCode]
    If Condition2 Then
      Exit For
    End If

    [...]

  Next
Next

Спасибо за ваши комментарии

40
continue iteration next vbscript

7 ответов

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

это на самом деле идиома в C - вместо использования goto, вы можете иметь цикл do { } while (0) с оператором break, если вы хотите выйти из конструкции раньше.

Dim i

For i = 0 To 10
    Do
        If i = 4 Then Exit Do
        WScript.Echo i
    Loop While False
Next

как предполагает crush, это выглядит немного лучше, если вы удалите дополнительный уровень отступа.

Dim i

For i = 0 To 10: Do
    If i = 4 Then Exit Do
    WScript.Echo i
Loop While False: Next
40

одним из вариантов было бы поместить весь код в цикле внутри Sub а затем просто вернуться из этого Sub когда вы хотите "продолжить".

не идеально, но я думаю, что было бы менее запутанным, что дополнительный цикл.

Edit: или я полагаю, если вы достаточно храбры, вы можете использовать Goto чтобы каким-то образом перейти к началу цикла (убедившись, что счетчик обновляется правильно), я думаю, что VBScript поддерживает это, но ваша репутация может пострадать, если кто-то обнаруживает, что вы используете Goto в коде :)

6

решение, которое я решил, включало использование булевой переменной для отслеживания, если for цикл должен обработать свои инструкции или перейти к следующей итерации:

Dim continue

For Each item In collection
    continue = True

    If condition1 Then continue = False End If

    If continue Then
        'Do work
    End If
Next

я обнаружил, что вложенные решения цикла несколько запутывают читаемость. Этот метод также имеет свои подводные камни, так как цикл не сразу переходит к следующей итерации после встречи continue. Было бы возможно для более позднего условия обратить состояние continue. Она также имеет вторичная конструкция внутри начального цикла и требует объявления дополнительного var.

О, VBScript...вздох.

кроме того, если вы хотите использовать принятый ответ, который не слишком плох для чтения, вы можете связать это с использованием : объединить две петли в то, что кажется один:

Dim i

For i = 0 To 10 : Do
    If i = 4 Then Exit Do
    WScript.Echo i
Loop While False : Next

Я счел полезным исключить дополнительный уровень отступа.

6

Я использую Do, Loop много, но я начал использовать Sub или функцию, из которой я мог бы выйти вместо этого. Просто мне показалось, что так чище. Если какие-либо переменные, которые вам нужны, не являются глобальными, вам также нужно будет передать их суб.

For i=1 to N
 DoWork i
Next

Sub DoWork(i)
    [Code]
    If Condition1 Then
      Exit Sub
    End If

    [MoreCode]
    If Condition2 Then
      Exit Sub
    End If

    [MoreCode]
    If Condition2 Then
      Exit Sub
    End If

    [...]
End Sub
4

выполнить итерации как рекурсивную функцию. 

Function Iterate( i , N )
  If i == N Then
      Exit Function
  End If
  [Code]
  If Condition1 Then
     Call Iterate( i+1, N );
     Exit Function
  End If

  [Code]
  If Condition2 Then
     Call Iterate( i+1, N );
     Exit Function
  End If
  Call Iterate( i+1, N );
End Function

начните с вызова итерации (1, N )

0

мы можем использовать отдельную функцию для выполнения оператора continue работа. предположим, у вас есть следующая проблема:

for i=1 to 10

if(condition) then   'for loop body'
contionue
End If

Next

здесь мы будем использовать вызов функции для тела цикла:

for i=1 to 10
Call loopbody()
next

function loopbody()

if(condition) then   'for loop body'
Exit Function
End If

End Function

цикл будет продолжаться для оператора выхода функции....

0

попробуйте использовать операторы While/Wend и Do While / Loop...

i = 1
While i < N + 1
Do While true
    [Code]
    If Condition1 Then
       Exit Do
    End If

    [MoreCode]
    If Condition2 Then
       Exit Do
    End If

    [...]

    Exit Do
Loop
Wend
0