Incrementing a variable name

[Elementary]

I have a number of variables, e.g. X1, X2, X3, X4, X5.

I want to select only the ones that are non zero(there will only be 2 or 3 at any time), and record them as Y1, Y2 and Y3

I want to know the best way of incrementing the name of the variable, e.g. the variable in a loop is X + (num)

I was trying

Num1=1
Num2=1

Do until num1 =5
If X(num1)<>0 then Y(num2) = X(num1) else goto J1
num2 = num2 +1
J1:
num1 = num1 +1
loop

Is this the best way? and if so how do I define X(num1), I am currently getting the error "sub of function not defined"

[kadghar]

I have a number of variables, e.g. X1, X2, X3, X4, X5.

I want to select only the ones that are non zero(there will only be 2 or 3 at any time), and record them as Y1, Y2 and Y3

I want to know the best way of incrementing the name of the variable, e.g. the variable in a loop is X + (num)

I was trying

Num1=1
Num2=1

Do until num1 =5
If X(num1)<>0 then Y(num2) = X(num1) else goto J1
num2 = num2 +1
J1:
num1 = num1 +1
loop

Is this the best way? and if so how do I define X(num1), I am currently getting the error "sub of function not defined"

yeap, try with an array, you can dim it of any size and redim its size.

for example you can do:

Dim myArray(1 to 5) as integer
Sub Numbers()
Dim NoZero()
dim i as integer
dim j as integer
 
myArray(1)=0
myArray(2)=4
myArray(3)=5
myArray(4)=8
myArray(5)=0
j=0
for i = 1 to 5
    if myArray(i) <> 0 then
       j= j+1
    end if
next
' j will be the number of no zeros in you array
 
if j <> 0 then 
    redim NoZero(1 to j )  'here you redim the second array
else
    msgbox("all numbers are zero")  ' or send an error message
end if
 
j=1
 
for i = 1 to 5
    if myArray(i) <> 0 then
       NoZero(j) = myArray(i)
       j=j+1
    end if
next
'here you put the nozero values to the second array
End Sub

It's not a great code, but it'll give you an idea of how arrays, dim and redim works out.

Hope that helps

[Elementary]

Thanks will give it a go.

yeap, try with an array, you can dim it of any size and redim its size.

for example you can do:

Dim myArray(1 to 5) as integer
Sub Numbers()
Dim NoZero()
dim i as integer
dim j as integer
 
myArray(1)=0
myArray(2)=4
myArray(3)=5
myArray(4)=8
myArray(5)=0
j=0
for i = 1 to 5
    if myArray(i) <> 0 then
       j= j+1
    end if
next
' j will be the number of no zeros in you array
 
if j <> 0 then 
    redim NoZero(1 to j )  'here you redim the second array
else
    msgbox("all numbers are zero")  ' or send an error message
end if
 
j=1
 
for i = 1 to 5
    if myArray(i) <> 0 then
       NoZero(j) = myArray(i)
       j=j+1
    end if
next
'here you put the nozero values to the second array
End Sub

It's not a great code, but it'll give you an idea of how arrays, dim and redim works out.

Hope that helps

[Killer42]

It is actually possible to reference individual variables in more or less the way you suggested, using a function which accepts the variable name as a string. But it's a lot of work, for no benefit as far as I know. Much better to handle it with an array, as kadghar suggested.