Need to continue a for loop

[WorkerBeeJ]

I'm new to VBScript so it's probably just a simple statement, but I need a way to skip to the next iteration of a for loop from the middle of the loop and can't find how to do it. Is this possible without having to put the rest of the code of the loop in an if or some similar statement? The code's pretty messy the way it is and I'd rather not have to nest it one more time.

Thanks in advance!
Jen

 

[FengShui1998]

Jen,

If you code it correctly, you should have to jump from the middle of the FOR loop. Anyways, you can't have a NEXT in the middle of a FOR loop.

Can you show your code?

fengshui_1998

 

[WorkerBeeJ]

There are actually many occasions where one would want to jump to the next iteration of a loop. That's why in Java, there's a "continue" statement.

What I'm doing is processing a very lengthy list of addresses (200,000+). Several of these addresses don't have house numbers and some (but not all, or I'd just put it right in the SQL query) of those without house numbers can be skipped. All the rest need to be processed. Here is the pseudocode for what I need to do:

FOR curAddress = 1 TO rs.PageCount
bNum = rs.Fields("BuildingNum&quot

IF IsNull(buildingNum) AND other stuff is true THEN
' Here's where it would be simpler
' to just say continue rather than
' put the rest in an else block
END IF

'process the rest of the addresses
NEXT

Any suggestions?

Thanks.

 

[FengShui1998]

WorkerBeej,

Actually, I would do the reverse of what is TRUE.

FOR curAddress = 1 TO rs.PageCount
bNum = rs.Fields("BuildingNum&quot

IF NOT IsNull(buildingNum) AND other stuff is FALSE THEN
'process the rest of the addresses
' Code here
' Code here
END IF

' This is what should be ignored
' Here's where it would be simpler
' to just say continue rather than
' put the rest in an else block
NEXT

fengshui_1998

 

[WorkerBeeJ]

Yes, that would work, but what I'm looking for is the equivalent to the java "continue". If I reverse the if statement, the address processing still needs to be in an if block, which is exactly what I'm trying to avoid.

Thanks.

 

[JohnYingling]

Use a Do/Loop as a code container.

For I = 0 to J
Do
.......
if not IsObject(ary(I)) then exit do ' continue
.......
Exit Loop ' continue
Loop
Next

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

Correction. Exit Do instead of Exit loop.
If you want "extra" protection in case you forget the Exit Do before the Loop then use
Loop While(0 = 1)

For I = 0 to J
Do
.......
if not IsObject(ary(I)) then exit do ' continue
.......
Exit Do ' continue
Loop While(0 = 1)
Next

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript