"Return" command

[ter-pierre]

Some one have an exemple of use of the "return" function on a While...Wend loop?

I´m trying the code above inside of a UDF but is not running fine...

While 1

$LINE = FileReadLine($tmpfile)

If @Error = -1 Then ExitLoop

If $LINE=@UserName Then Return 1

WEnd

[SlimShady]

That should work. What's the problem exactly?

[ter-pierre]

Here is the complete code...

$FILE = InputBox("Question", "Input file...", "", "", -1, -1, 0, 0)

If INFILE($FILE) Then MsgBox(0,"TEST","username in file")

Else

MsgBox(0,"TEST","username NOT in file")

EndIf

Func INFILE($FILE)

While 1

$LINE = FileReadLine($tmpfile)

If @Error = -1 Then ExitLoop

If $LINE=@UserName Then Return 1

WEnd

EndFunc

[SumTingWong]

Shouldn't it be:

$LINE = FileReadLine($FILE)

:">

[ter-pierre]

Yes. Excuse. the code is

$LINE = FileReadLine($FILE)

still not runnig...

[this-is-me]

Return returns from a function

Exitloop returns from a while or do loop

ContinueLoop allows the loop to skip to the next item

[Matt @ MPCS]

The problem with your code is your IF statement:

$FILE = InputBox("Question", "Input file...", "", "", -1, -1, 0, 0)

If INFILE($FILE) Then 
   MsgBox(0,"TEST","username in file")
Else
   MsgBox(0,"TEST","username NOT in file")
EndIf
Func INFILE($FILE)
   While 1
      $LINE = FileReadLine($tmpfile)
      If @Error = -1 Then ExitLoop
      If $LINE=@UserName Then Return 1
   WEnd 
EndFunc

If statements can only be all on a single line OR completly seperated.

*** Matt @ MPCS

EDIT: Apparently formatting isn't allowed nested within code blocks.

Edited October 19, 2004 by Matt @ MPCS