Case Statement or Equivalent?

fightcancer · Post by **fightcancer** » Sun Feb 18, 2007 4:50 am

Does MS have a Case function similar to the one in VB? If not, I guess I can use nested IFs. Thanks!

JRL · Post by **JRL** » Sun Feb 18, 2007 6:50 am

Macro Scheduler has only the If> function. However, Macro Scheduler can run Visual Basic Script, perhaps there is a way to do this in VBS. This Microsoft web page seems to be describing a VBS "Case" statement. I don't know Visual Basic so I'm not going to be much help, but if you can make this work and post your results, I'm sure others will be appreciative.

I used to be good with AutoLisp in AutoCad. They had the Cond (condition) function in AutoLisp. If I'm understanding you correctly it worked similarly. Basically a list of conditions and when one turns out to be true its associated function is performed. Something like:

(Cond
(A = 1 (Do this))
(B = 1 (Do something else))
(C = 14 (Do another process))
(etc A(etc process))
)

A function like this would be handy.

fightcancer · Post by **fightcancer** » Mon Feb 19, 2007 2:59 pm

Thanks for the info! I figured out a shortcut which avoids both the CASE statement and the nested IFs. It saves me several dozen lines of code for now. So I'll tackle this issue when I have more time.

Thanks again.

Me_again · Post by **Me_again** » Mon Feb 19, 2007 3:57 pm

A true case function would be nice, but since If> just drops to the next line if the condition isn't met it's not a lot of extra code to do the equivalent:

If>a=1,dothis
If>a=2,dothat
If>a=3,dotheother

Post by **Marcus Tettmar** » Mon Feb 19, 2007 4:04 pm

Or make subroutines for each "case" and simply jump to the subroutine based on the selector value:

Code: Select all

Let>Number=10
GoSub>Case_%Number%

SRT>Case_5
  MessageModal>5
End>Case_5

SRT>Case_10
  MessageModal>10
End>Case_10

SRT>Case_15
  MessageModal>15
End>Case_15

SRT>Case_20
  MessageModal>20
End>Case_20