Access array variable from VBA

[mvj]

Hi

Is it not possible to access an array variable at top level from VBA and use SubItem?

I have a variable testarray with Array Dim 1: 4

In VBA:

Dim var As Variable
Set var = ThisProject.Variables.Item("testarray")

var is Nothing

When I change to:

Dim var As Variable
Set var = ThisProject.Variables.Item("testarray[0]")

var is not Nothing

6.22 SP1 Build 8

Regards

[tulon]

Try this:

Dim var As Variable
Set var = ThisProject.Variables.Item("testarray[0].Name_of_the_SubItem")

[mvj]

That was not what I ment.. I would like to have the array variable and index in the VBA code. Something like this:

Dim var As Variable
Dim val As Double
Dim index As Integer
Set var = ThisProject.Variables.Item("testarray")

val = var.SubItem(index).Value

' Instead of:
Set var = ThisProject.Variables.Item("testarray[" & index & "]")

val = var.Value

By using the SubItem way it seems to be easier to loop through an array with unknown size. ArraySize can then be used to limit the loop.

[herberto]

This issue have been discussed in following thread: http://www.copadata.com/forums/showthread.php?t=973

Short translation:
Arrays itself are complex variables, which do have information like ArraySize, StartOffset aso. for the editor.

In the Runtime only the single elements of the arrays are available not the array structure (as you maybe know it with VBA -> like Ubound(myArray))

With the help of a function the array size of the instance can be found out....
-> /snip VBA code....

Regards,
Herbert

[mvj]

Ah okay. I skipped that thread because it wasn't in English

I have used a different workaround:

Public Sub loopArray()
    Dim var As Variable
    Dim count As Integer ' loop counter
    Dim done As Boolean ' done flag

    done = False
    count = 0

    While done = False
        count = count + 1 ' arrays starts at 1        
        Set var = ThisProject.Variables.Item("arrayVar[" & count & "]")
        
        If (var Is Nothing) Then ' All have been looped through
            done = True
        Else
            If var.IsOnline Then
                ' insert code here 
            End If
        End If
    Wend
End Sub

This will off course not work if there are deactivated elements somewhere in the array structure but it does not need to loop up to a defined maximum even if the array is much smaller.