Array with no bounds

[k0r54]

Hi,

Is there a way i can create an array with no bound like so (FieldSep being the array) -

    Do
      pnt = InStr(stp, ary, " ") - 1
      FieldSep(cnt) = Array(pnt, fmt)
      stp = pnt + 2
      cnt = cnt + 1
    Loop While InStr(stp, ary, " ") <> 0 Or stp > Len(ary)

The problem i get is i need to declare it i.e

Dim FieldSep(100) as string

which mean if i cnt is less than 100 it puts everything as default and if cnt is more than 100 it fails as script out of range. How can i just let it keep adding to itself so i dont have to declare how bit it is. It just does it itself

Thanks
k0r54

 

[Bodisathva]

use the ReDim statement to change the upper bound and the Preserve keyword to insure that the original data is maintained while being redimensioned...which, by the by, in multi-dimensional arrays can only be the last dimension:

Dim arrayX(25,35,100) as Integer
...
...
...
ReDim Preserve arrayX(25,35,75)

 

[k0r54]

sorry, im a bit confussed?

why is there 25,35,75 ?

Also the number of arrays will vary?

Thanks
k0r54

 

[k0r54]

Ahhh i have done it

I done
ReDim FieldSep(100)

then after the loop done
ReDim preserve FieldSep(cnt - 1)

Thanks
k0r54