Empty an array 1

[cainemart]

I have an array

Dim EPArray(1 To 9, 1 To 3, 2000 To 2003, 1 To 12, 1996 To 2003, 1 To 12, 1 To 5, 1 To 4) As Single

that loops through a file and collects the info. Well the array gets to large and give me a memory error. So I thought it would be best to use a counter and when it got to a certain number go into another process that dumps the arrays contents into another table. My problem is that I can't figure out how to start fresh with an empty array again. I have used Redim but it gave me an error about the array is already dimensioned. Then I tried Erase EPArray but there was info still in the array. I am using Win 00.

Does anyone have any suggestions?

Thanks

 

[petersdaniel]

Cainemart...

Try

......
EPArray = Nothing
.....

This kills the array object from memory. You'll have to reintialize it, but it will free the resources if memory is the issue

 

[smgeorge99]

The above does not work. You cannot assign "nothing" to an array. Does anyone else know how to reset an array (clear out all values and make length 0)?

 

[Phantazmo]

Hmmm,

Try

Erase EPArray

 

[LambertH]

you could make it a dinamic array which will allow you do do this...

Dim EPArray() As Single
...
ReDim EPArray(1 To 9, 1 To 3, 2000 To 2003, 1 To 12, 1996 To 2003, 1 To 12, 1 To 5, 1 To 4) As Single
...
' your code does it's thing and then needs to empty the array
' so...
ReDim EPArray(1 To 9, 1 To 3, 2000 To 2003, 1 To 12, 1996 To 2003, 1 To 12, 1 To 5, 1 To 4) As Single

 

[smgeorge99]

Erase worked perfectly! You get a star, Phantazmo.