VB.NET - จะย้ายไปยังรายการถัดไป a สำหรับแต่ละลูปได้อย่างไร?

Question 1

มีสเตตัสExit Forไหมยกเว้นแทนที่จะออกจากลูปมันก็ย้ายไปรายการถัดไป

ตัวอย่างเช่น:

For Each I As Item In Items

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

    ' Do something

Next

ฉันรู้ว่าสามารถเพิ่มElseคำสั่ง If ได้ดังนั้นมันจะอ่านดังนี้:

For Each I As Item In Items

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

Next

แค่สงสัยว่ามีวิธีข้ามไปยังรายการถัดไปในItemsรายการ ฉันแน่ใจว่าส่วนใหญ่จะถามอย่างถูกต้องว่าทำไมไม่ใช้แค่Elseคำสั่ง แต่สำหรับฉันแล้วการตัดโค้ด "Do Something" ดูเหมือนจะอ่านได้น้อยลง โดยเฉพาะอย่างยิ่งเมื่อมีรหัสมากขึ้น

Question 2

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

    ' Do something
Next

Question 3

ฉันจะใช้Continueคำสั่งแทน:

For Each I As Item In Items

    If I = x Then
        Continue For
    End If

    ' Do something

Next

โปรดทราบว่าสิ่งนี้จะแตกต่างกันเล็กน้อยกับการย้ายตัววนซ้ำเอง - ทุกอย่างก่อนที่Ifจะดำเนินการอีกครั้ง โดยปกตินี่คือสิ่งที่คุณต้องการ แต่ถ้าไม่ใช่คุณจะต้องใช้GetEnumerator()แล้วMoveNext()/ Currentอย่างชัดเจนแทนที่จะใช้For Eachลูป

Question 4

สิ่งที่เกี่ยวกับ:

If Not I = x Then

  ' Do something '

End If

' Move to next item '

Question 5

ฉันต้องการให้ชัดเจนว่ารหัสต่อไปนี้ไม่ใช่แนวปฏิบัติที่ดี คุณสามารถใช้ 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

Question 6

เมื่อฉันพยายามContinue Forล้มเหลวฉันได้รับข้อผิดพลาดของคอมไพเลอร์ ในขณะที่ทำสิ่งนี้ฉันได้ค้นพบ 'Resume':

For Each I As Item In Items

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

    'Do something

Next

หมายเหตุ: ฉันใช้ VBA ที่นี่

Question 7

เฉพาะ "ดำเนินการต่อสำหรับ" เท่านั้นที่เป็นมาตรฐานที่ยอมรับได้ (ส่วนที่เหลือนำไปสู่ "รหัสสปาเก็ตตี้")

อย่างน้อยด้วย "ดำเนินการต่อสำหรับ" โปรแกรมเมอร์ที่รู้ว่ารหัสจะไปที่ด้านบนสุดของลูปโดยตรง

สำหรับคนเจ้าระเบียบสิ่งนี้ดีที่สุดเนื่องจากเป็นรหัส "ไม่ใช่สปาเก็ตตี้" ล้วนๆ

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

เพื่อความสะดวกในการเข้ารหัส "ดำเนินการต่อสำหรับ" ก็ใช้ได้ (เป็นความคิดที่ดีที่จะแสดงความคิดเห็น)

การใช้ "ดำเนินการต่อสำหรับ"

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