ContinueCase and RestartCase?

[Leo1906]

Hello there, I got a quick question ..

i know that there is something like ContinueCase, which jumps to the next case and executes it.

But is there also something like RestartCase?
Let me explain you why I need something like this. My script hase a Select-Case structure as main part and in one of those cases I am catching an @error. When this happens I want the script to start the Case aggain. I can't use a while structure ore similar, because this would trap the script in it and the other cases can't be executed in time ..

So.. simple question: is there something like this, or is there a workaround for this? Other structures got this feature. For example: ContinueLoop (which starts the loop at the beginning)

Thanks for your help

[AutoBert]

1 minute ago, Leo1906 said:

i know that there is something like ContinueCase, which jumps to the next case and executes it.

But is there also something like RestartCase?

I can't find a func named RestartCase in helpfile. Please make a runable reproducer script showing the issue.

[Leo1906]

Hehe yeah I can't find it either, but I need someting like this. I made the name up.
I just want to know if there's a command that restarts a Case at the beginning of the case ..

I don't have a running script right know to demonstrate the need of it .. :/

 

Edit: or can I just abort the case somehow? So that it switches directly to the Select back aggain and checks for the cases to be valid? Like the Break command in other languages

Edited October 7, 2016 by Leo1906

[JLogan3o13]

@Leo1906 it would help greatly if you actually posted the script, rather than having us guess at your structure

[Somerset]

20 minutes ago, JLogan3o13 said:

@Leo1906 it would help greatly if you actually posted the script, rather than having us guess at your structure

Why does that sound like a drinking game? You guess wrong, you have to take a swig.

[dmob]

Nvm

Edited October 7, 2016 by dmob
Too hasty reply

[pluto41]

HotKeySet ( "a", Quit )

Local $iValue
While TRUE
    $iValue = Random (0, 9, 1)
    RestartCase ()
    Sleep ( 100 )
WEnd

Func RestartCase ()
    Select
        Case $iValue = 1
            ConsoleWrite ( "Value : " & $iValue & @CRLF )
        Case $iValue = 7
            ConsoleWrite ( "Value : " & $iValue & @CRLF )
    EndSelect
EndFunc   ;==>RestartCase

Func Quit ()
    Exit 0
EndFunc   ;==>Quit

You could put the Select statement it in a While Loop or Do Until.  Something like this.

[Leo1906]

Well .. I can't explain the problem better than I did and I can't post any sample, because I have no working code right now .. 

Select
    Case $test = 1
        do blabla ..
            If @error then
                RestartCase
            Else
                Exit
            EndIf
EndSelect

ok, so this is no woking code, but should make it easier to understand.
When the Case is true something is happening. If there is an error it should start from the beginning. I don't get what's so hard to understand?

All I wanted to know is, if there is something like RestartCase (which I made up right now) which starts the case from the beginning ...? I coouldn't find anything in the helpfile or google.

[pluto41]

While True
    Select
        Case $test = 1
            do blabla ..
                If @error then
                    ContinueLoop
                Else
                    Exit 0
                EndIf
    EndSelect
WEnd

as Far as i know there isn't something like RestartCase. But like i said you could wrap the Select statement into a Loop. See ContinueLoop ()

[Leo1906]

Yeah .. it is already in a while loop and I don't think that this would help me :/
i think I just dublicate the case and use a statement that could never be true and than use ContinueCase.

So I can be sure that the case would never be executed itself, but if I use ContinueCase the statement won't be checked ..

Very strange feature .. I don't know when there's an actual use for it ..
Instead of ContinueCase they should have implemented a RestartCase  

Thank you all for your help. I think that there is no other solution than what I just wrote .. :/

[czardas]

You could put your Select statement inside a Do... Until loop: similar to some of the suggestions already.

Local $bError = False

Do
    Select
        Case Mod(@SEC, 2) ; blah blah blah
            ConsoleWrite('blah ')
            Sleep(20)
        Case Else
            $bError = True
    EndSelect
Until $bError

ConsoleWrite(@LF)

This writes blah (approx every 20 ms) while the current second is odd.

Edited October 8, 2016 by czardas

[Gianni]

a similar "tecnique" already used here (again from the good @czardas )

[czardas]

@Chimp Bringing back fond memories: that was a fun example for me at the time.   It would be better with something like an array of commands rather than a Switch Statement (more modular).

Edited October 8, 2016 by czardas

[Gianni]

Agree. As you said, it was just a funny mental puzle...

[Leo1906]

17 hours ago, Chimp said:

a similar "tecnique" already used here (again from the good @czardas )

Thank you! That is a really good idea how to solve this problem

[jchd]

This is the general structure of a state machine. Rewriting @czardas's code without the ugly _GoTo() is exactly that, a state machine:

expandcollapse popup

Local $iPosition = 1, $sOutput, $again3

While 1
    Select
        Case $iPosition = 1
            $sOutput &= "H"
        Case $iPosition = 2
            $sOutput &= "e"
        Case $iPosition = 3
            $sOutput &= "l"
            Switch StringLen($sOutput)
                Case 3
                    $again3 = True
                Case 10
                    $iPosition = 7
            EndSwitch
        Case $again3
            $again3 = False
            $iPosition -= 1
            $sOutput &= "l"
        Case $iPosition = 4
            $sOutput &= "o"
            If StringLen($sOutput) <> 5 Then $iPosition = 6
        Case $iPosition = 5
            $sOutput &= " "
        Case $iPosition = 6
            $sOutput &= "w"
            $iPosition = 3
        Case $iPosition = 7
            $sOutput &= "r"
            $iPosition = 2
        Case $iPosition = 8
            $sOutput &= "d"
            ExitLoop ; finished
    EndSelect
    $iPosition += 1
WEnd

MsgBox(0, "", $sOutput)

 

[czardas]

Just like my 1970's programmable Casio calculator.

[jchd]

Yup, but look Ma', no Goto !!!

[rcmaehl]

1 hour ago, jchd said:

Yup, but look Ma', no Goto !!!

Honestly there's basically no use of GOTO that can't be solved with the existing other programming keywords... but the same could be said for

Select/Switch/Case - as If can be used
While - as Do followed by If can be used
Do -  as While followed by if at the end of the code loop can be used
For - as Do / While can be used

And a bunch of other stuff!

Edited October 10, 2016 by rcmaehl

[czardas]

If a real world system involves a goto process, then there's a good argument for simulating the same process in code, if for no other reason than to associate the real world with the virtual representation. On the other hand; if using another approach is better, for a different reason, then the above does not necessarily apply.

Edited October 10, 2016 by czardas