Visual Basic/VB, Exiting from a loop with a keystroke

1. Exiting nested For loops - VB.Net

2. Exiting a nested loop

Hi all,

It may be that I am getting this wrong or doing it the wrong way but 
this has been stuck.

I have a loop inside a loop, based on a certain condition i want to 
cause the primary loop "to loop".  If that makes sense!  see the pseudo 
code below:


For Each MyFile in Files

	For Each FileExtension In ArrayList
		If Path.GetExtension(FileExtension)="doc" Then
		Exit This For Eacg
		Move To Next MyFile
	Next

Next


So, basically, if the file extension is equal to one of the values in my 
list then I just want to ignore and grab the next file to process.

-- 

Daniel
MCSE, MCP+I, MCP in Windows 2000/NT

--------------------------------------
remove the 2nd madrid from my mail address to contact me.

3. exiting a for loop. - VB.Net

4. Sub Main and how not to exit, need to loop or else

"NNM.RU" < XXXX@XXXXX.COM > wrote in
news:7BLNa.494$ XXXX@XXXXX.COM : 

> I got something:
> ------------------------------------
> Sub Main
>      Add event
>      Add event
>      ??? - no idea what to put here so it would not reach End Sub.
> end sub
> 
> Event subs go here
> -----------------------------------------
> 
> 

At the end of your sub main put Application.Run().  Somewhere else you will 
have to do Application.Exit to terminate the program.

Chris

-- 
If you don't like lunchmeat, please remove it from my e-mail address to 
send me an e-mail

5. VBScript Exit Loops

6. exit loop after timeout (5 min)

hi,

I use the execnotificationquery to check the state of a service.  what my 
code does is stop a service and then I use the check notification query to 
see if the service is actually stopped by examining state attribute.  Once it 
is changed to "stopped" I simply start the service and continue with code.  
In essence it is doing a restart.  The code works perfectly.

.
.
.
set colServices = objWMIService.ExecNotificationQuery("Select * from 
__instancemodificationevent within 5 where TargetInstance isa 
'Win32_Service'")

returncode = objService.StopService()
so until servicestate = "Stopped"
    set objService = colServices.NextEvent
    if objservice.targetinstance.state = "Stopped" then servicestate = 
"Stopped"
loop
.
.
.


what I want to do is if after 5 minutes the state of service hasn't changed 
to "stopped" (for instance it is hung on stopping) I want to terminate my 
loop and produce an error to log file.  Unfortunately,  the way 
ExecNotificationQuery works it only reports events that have changed and if 
service state doesn't change I am stuck in an infinite loop because it simply 
sits at the nextevent method.  Loop never continues.

Any help on exiting loop after 5 minute timeout would be greatly appreciated.

thanks.

7. Need to exit loop early

8. Exiting from a Do Loop

I have the following code snippet of a Gosub routine which has several
individual loops but I am only showing 2 of them for the example.:

TEST:

Do
.....
.....
.....
if answer=true then
    return
endif
......
......
Loop until count=5


Do
.....
.....
.....
if answer=true then
    return
endif
......
......
Loop until count=5

Return

My question is can I leave the loop using the return command without
worrying about any problems since I have not exited the loop using the EXIT
DO command.  Somewhere in the past I thought I remebered that leaving a loop
like this can casue a buffer problem since I have not told it to exit the
loop.  Using the return command will that exit the loop properly and act as
if I did exit the do loop?

Thanks,

Les