Incremental variables help

[exodius]

I have a number of variables that are all named by the same naming scheme ($Hours1, Hours2, etc. ) and what I want to do is be able to do a loop statement that will sequentially go through them, something like:

$Hours1 = 1
$Hours2 = 2

$x = 1
Do
MsgBox ( 0, "", $Hours & $x )
$x = $x + 1
Until $x = 3

But it doesn't work because $Hours is a new variable. Is there a way to get this to work?

[cdkid]

try declaring hours?

[billmez]

I have a number of variables that are all named by the same naming scheme ($Hours1, Hours2, etc. ) and what I want to do is be able to do a loop statement that will sequentially go through them, something like:

$Hours1 = 1
$Hours2 = 2

$x = 1
Do
MsgBox ( 0, "", $Hours & $x )
$x = $x + 1
Until $x = 3

But it doesn't work because $Hours is a new variable. Is there a way to get this to work?

The best way I've found to do this is to make the Hours variable an Array rather than Scalar values, then loop the array. I've tried dynamic variable assignments using numeric assignments as you are looking for and could necer get it to work. Try this instead:

Dim $hour
; create an Array $Hours with 3 elements, and assign a value to the elements
; note - there are also other ways to create the array here. see split in the help.
Dim $Hours[3] = [1, 2, 3]

; etc...

; either solution depending on what you want to do


; method 1 if you intend to call all items from a loop
For $hour IN $Hours
    MsgBox ( 0, "", $hour)
Next

; method 2 if you intend to call items directly or from a limited loop
For $i = 0 To UBound($Hours)-1
    MsgBox ( 0, "", $Hours[$i])
    Next

HTH

billmez

[exodius]

The best way I've found to do this is to make the Hours variable an Array rather than Scalar values, then loop the array. I've tried dynamic variable assignments using numeric assignments as you are looking for and could necer get it to work. Try this instead:

Dim $hour
; create an Array $Hours with 3 elements, and assign a value to the elements
; note - there are also other ways to create the array here. see split in the help.
Dim $Hours[3] = [1, 2, 3]

; etc...

; either solution depending on what you want to do
; method 1 if you intend to call all items from a loop
For $hour IN $Hours
    MsgBox ( 0, "", $hour)
Next

; method 2 if you intend to call items directly or from a limited loop
For $i = 0 To UBound($Hours)-1
    MsgBox ( 0, "", $Hours[$i])
    Next

HTH

billmez

thnx