Continuer la boucle For

Question

J'ai le code suivant

 For x = LBound(arr) To UBound(arr)

    sname = arr(x)  
    If instr(sname, "Configuration item") Then  
        '**(here i want to go to next x in loop and not complete the code below)**  

    '// other code to copy past and do various stuff

Next x  

J'ai donc pensé que je pouvais simplement avoir l'instruction Then Next x , mais cela donne une erreur "non pour la déclaration déclarée".

Alors, que puis-je mettre après le If instr(sname, "Configuration item") Then pour passer à la valeur suivante pour x ?

Answer 1

Vous pouvez utiliser un GoTo :

 Do

    '... do stuff your loop will be doing

    ' skip to the end of the loop if necessary:
    If <condition-to-go-to-next-iteration> Then GoTo ContinueLoop 

    '... do other stuff if the condition is not met

ContinueLoop:
Loop

Answer 2

For i=1 To 10
    Do 
        'Do everything in here and

        If I_Dont_Want_Finish_This_Loop Then
            Exit Do
        End If 

        'Of course, if I do want to finish it,
        'I put more stuff here, and then...

    Loop While False 'quit after one loop
Next i

Answer 3

Beaucoup d'années après... J'aime celui-ci :

 For x = LBound(arr) To UBound(arr): Do

    sname = arr(x)  
    If instr(sname, "Configuration item") Then Exit Do 

    '// other code to copy past and do various stuff

Loop While False: Next x

Answer 4

Quelques années de retard, mais voici une autre alternative.

 For x = LBound(arr) To UBound(arr)
    sname = arr(x)  
    If InStr(sname, "Configuration item") Then  
        'Do nothing here, which automatically go to the next iteration
    Else
        'Code to perform the required action
    End If
Next x