VB.NET - Làm thế nào để chuyển đến mục tiếp theo a Cho Mỗi vòng lặp?

Có một trạng thái như thế nào không Exit For, ngoại trừ thay vì thoát khỏi vòng lặp, nó chỉ chuyển sang mục tiếp theo.

Ví dụ:

For Each I As Item In Items

    If I = x Then 
        ' Move to next item
    End If

    ' Do something

Next

Tôi biết có thể chỉ cần thêm một Elsevào câu lệnh If để nó sẽ đọc như sau:

For Each I As Item In Items

    If I = x Then 
        ' Move to next item
    Else
        ' Do something
    End If

Next

Chỉ cần tự hỏi nếu có cách nào để chuyển đến mục tiếp theo trong Itemsdanh sách. Tôi chắc rằng hầu hết sẽ hỏi tại sao không chỉ sử dụng Elsecâu lệnh, nhưng đối với tôi, đoạn mã "Do Something" dường như khó đọc hơn. Đặc biệt là khi có rất nhiều mã.

For Each I As Item In Items
    If I = x Then Continue For

    ' Do something
Next

ContinueThay vào đó tôi sẽ sử dụng câu lệnh:

For Each I As Item In Items

    If I = x Then
        Continue For
    End If

    ' Do something

Next

Lưu ý rằng điều này hơi khác so với việc di chuyển chính trình lặp - bất kỳ thứ gì trước khi hành động Ifsẽ được thực thi lại. Thông thường đây là những gì bạn muốn, nhưng nếu không, bạn sẽ phải sử dụng GetEnumerator()và sau đó MoveNext()/ Currentrõ ràng thay vì sử dụng For Eachvòng lặp.

Thế còn:

If Not I = x Then

  ' Do something '

End If

' Move to next item '

Tôi muốn nói rõ rằng đoạn mã sau không phải là cách thực hành tốt. Bạn có thể sử dụng GOTO Label:

For Each I As Item In Items

    If I = x Then
       'Move to next item
        GOTO Label1
    End If

    ' Do something
    Label1:
Next

Khi tôi thử Continue Forkhông thành công, tôi gặp lỗi trình biên dịch. Trong khi làm điều này, tôi đã phát hiện ra 'Tiếp tục':

For Each I As Item In Items

    If I = x Then
       'Move to next item
       Resume Next
    End If

    'Do something

Next

Lưu ý: Tôi đang sử dụng VBA ở đây.

Chỉ có "Continue For" là tiêu chuẩn được chấp nhận (phần còn lại dẫn đến "mã spaghetti").

Ít nhất với "tiếp tục cho" lập trình viên biết mã đi thẳng đến đầu vòng lặp.

Tuy nhiên, đối với những người theo chủ nghĩa thuần túy, một cái gì đó như thế này là tốt nhất vì nó là mã "không phải mì chính" thuần túy.

Dim bKeepGoing as Boolean 
For Each I As Item In Items
  bKeepGoing = True
  If I = x Then
    bKeepGoing = False
  End If
  if bKeepGoing then
    ' Do something
  endif
Next

Tuy nhiên, để dễ viết mã, "Tiếp tục Cho" là OK. (Ý kiến ​​hay để nhận xét nó mặc dù).

Sử dụng "Tiếp tục cho"

For Each I As Item In Items
  If I = x Then
    Continue For   'skip back directly to top of loop
  End If
  ' Do something
Next