reDim VBScript Array

[alexkeel79]

I'm having some trouble with a redefining the size of a 2 dimensional array. I keep getting the following error:

Microsoft VBScript runtime error '800a0009'

Here is an example of my code:

dim contArr() 'dynamic array
reDim PRESERVE contArr(0,1) 'set initial size of the array
contArr(0,0) = "default_val"
contArr(0,1) = "default_val"

for a=1 to 10

arrLng = ubound(contArr,1) + 1 'upper bound of the first dimension + 1
reDim PRESERVE contArr(arrLng,1) 'THIS IS WHERE THE ERROR IS POINTING
contArr(arrLng,0) = "some_val"
contArr(arrLng,1) = "some_val"

next

 

[DotNetGnat]

thats because the subscript will be out of range...i dont know what you are trying to do here...but just do this and see...what happens...

dim contArr() 'dynamic array
reDim PRESERVE contArr(0,1) 'set initial size of the array
contArr(0,0) = "default_val"
contArr(0,1) = "default_val"

for a=1 to 10

  arrLng = ubound(contArr,1) 
  reDim PRESERVE contArr(arrLng,1) 
  contArr(arrLng,0) = "some_val"
  contArr(arrLng,1) = "some_val"
response.write contArr(arrLng,0) & "<br>"
next

-DNG

 

[ChrisHirst]

You can only redim the last element in a multidimensional array once it's created.



Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[DotNetGnat]

Yes. Chris is correct.

It is important to keep in mind that Redim Preserve
only supports redimensioning the "right" most element
of any multi-dimensional array.

-DNG

 

[DotNetGnat]

here is a nice link that make the things easier...

http://www.eggheadcafe.com/PrintSearchContent.asp?LINKID=148

-DNG

 

[alexkeel79]

Hey Guys,

Thanks for your help. I was able to resolve this problem by creating a temp array 1 position bigger than the initial array and then used reDim (without preserve) to make the original array bigger. Finally I copied the data from the temp array to the originally array again.