Redim Multidimensional arrays

[mcoonrod]

OK this just won't work.

Public Function Find_Frac(attArr() As Variant, c As Integer)
  Dim slashpos
  Dim temphouse
  Dim slashExist As Boolean
  Dim ai
  Dim shouse
  Dim addFrac
  ReDim Preserve attArr(1, UBound(attArr(), 2) + 1)
  temphouse = attArr(1, c)
  If InStr(temphouse, "/") Then
    slashpos = InStr(temphouse, "/")
    shouse = Left(temphouse, slashpos - 3)
    attArr(1, c) = shouse
    addFrac = Mid(temphouse, slashpos - 1)
    attArr(0, ai) = "FRAC"
    attArr(1, ai) = addFrac
  End If
End Function

When I try to redim attArr() is says it is out of range.
Is this because the array was passed to it?







Edit: Added [vbcode][/vbcode] tags for clarity. - Hack

[Dnereb]

Did you step through the code
and added a watch for attArr()?

do you really need a variant array or will a varaint containing an array do to?

[mcoonrod]

When I step through the code ReDim Preserve attArr(1, UBound(attArr(), 2) + 1) gets the value of <subscript out of range>.
The array gets used for many different data types of multiple lengths thats the reason for the redim. By all rights this should work. I am just thinking it is because I am passing the array. I have searched and can't find anything where the array wa passed to a function before trying to change the dimension.

[Static]

why pass it to the function?
if you need to redim the actual array thats being passed in..
just make the Array global... dont pass it in...

or maybe try rediming before you pass it in?

[Comintern]

Try this:

ReDim Preserve attArr(1, UBound(attArr, 2) + 1)

I think when you try to UBound attArr(), it is expecting an index for the array.

[mcoonrod]

Try this:

ReDim Preserve attArr(1, UBound(attArr, 2) + 1)

I think when you try to UBound attArr(), it is expecting an index for the array.

Nope, still get the same error. Thanks though.

[Dnereb]

The problem is in your passing attempt. not in the manipulating of it....I suspect
retry to add a watch and be sure your cursor is in the recieving function
the error you posted can be an out of scope error for the watch

[mcoonrod]

Ok, I went back a little further to a function that fills the array to begin with.

Public Function Get_Attributes(objBlock As AcadBlockReference, arrAttribute() As Variant)
  Dim i As Integer
  Dim c As Integer
  c = UBound(objBlock.GetAttributes)
  ReDim arrAttribute(2, c)
 'At this point ubound(arrAttibute) = 14
  ReDim Preserve arrAttribute(2, c + 1)
 ' ubound(arrAttibute) = 15
  For Each Attrib In objBlock.GetAttributes
    arrAttribute(0, i) = Attrib.TagString
    arrAttribute(1, i) = Attrib.TextString
    i = i + 1
  Next
ReDim Preserve arrAttribute(2, c + 1)
'Redim failed ubound(arrAttibute) = 15
End Function

Once the array is populated the redim fails with or without Preserve

[Comintern]

Redim of multidimensional arrays can only change the highest dimension. The latest code you posted has the first dimension as 2, the earlier code tries to redim it to 1.

[penagate]

Indeed and in case you are wondering why it is because array data is stored sequentially. If you did change the lower dimension it would affect how the data was read into the 2D indices. To do it correctly you would need to move the data row by row to a new array and handle any loss of data.