Switch Case with And/Or operator

[jdelaney]

I suppose something like this can only be done with an if-then statement within the case.

Local $s = "a", $b = True
ConsoleWrite("Switches Return 2?  " & Switches($s,$b) & @CRLF)
Local $s = "a", $b = False
ConsoleWrite("Switches Return 1?  " & Switches($s,$b) & @CRLF)

Local $s = "a", $b = True
ConsoleWrite("Selects Return 2?  " & Selects($s,$b) & @CRLF)
Local $s = "a", $b = False
ConsoleWrite("Selects Return 1?  " & Selects($s,$b) & @CRLF)

Func Selects($string, $bool)
 Select
  Case $string = "a" Or $bool
   Return 1
  Case $string = "a" And $bool
   Return 2
  Case $string = "a"
   Return 3
  Case Else
   Return 4
 EndSelect
EndFunc
Func Switches($string, $bool)
 Switch $string
  Case "a" Or $bool
   Return 1
  Case "a" And $bool
   Return 2
  Case "a"
   Return 3
  Case Else
   Return 4
 EndSwitch
EndFunc

output

Switches Return 2?  1
Switches Return 1?  1
Selects Return 2?  1
Selects Return 1?  1

Maybe these should cause syntax errors?

Edited May 13, 2013 by jdelaney

[jchd]

A little modification can help there. First notice that you must test for AND before OR, else the OR condition will predate the AND.

Also you will never return 3 since the preceeding test will trigger a return in all cases ($bool is free here).

Then you have several choices, among them:

Local $s = "a", $b = True
ConsoleWrite("Switches Return 2?  " & Switches($s,$b) & @CRLF)
Local $s = "a", $b = False
ConsoleWrite("Switches Return 1?  " & Switches($s,$b) & @CRLF)

Local $s = "a", $b = True
ConsoleWrite("Selects Return 2?  " & Selects($s,$b) & @CRLF)
Local $s = "a", $b = False
ConsoleWrite("Selects Return 1?  " & Selects($s,$b) & @CRLF)

Func Selects($string, $bool)
 Select
  Case ($string = "a") And $bool
   Return 2
  Case ($string = "a") Or $bool
   Return 1
  Case $string = "a"
   Return 3     ; can never occur!
  Case Else
   Return 4
 EndSelect
EndFunc

Func Switches($string, $bool)
 Switch (($string = "a") + 0) & ($bool + 0)
  Case "11"
   Return 2
  Case "01", "10"
   Return 1
  Case "a"
   Return 3     ; can never occur!
  Case Else
   Return 4
 EndSwitch
EndFunc

Edited May 13, 2013 by jchd