![]() |
Deleting Specific Dimensions of a 3D Array
Is it possible to erase specific dimensions of an array while a routine is
running to increase the performance of the routine? Lets say I have a 3D Array: Redim 3DArray (0 to 10000, 0 to 300, 0 to 50) Let say I populate with three For Next Loops: For X = 1 to 50 For Y = 1 to 300 For Z = 1 to 10000 3DArray(Z,T,X) = Rnd() Next Next 'Lets say I want to delete the all the data associated with X = 1 when 'the loop progresses to X = 2, and continue to do this Next |
Deleting Specific Dimensions of a 3D Array
For X = 1 to 50
For Y = 1 to 300 For Z = 1 to 10000 3DArray(Z,T,X) = Rnd() if X 1 then _ 3DArray(Z,T,X-1) = empty ' or 0 Next Next Next -- Regards, Tom Ogilvy "ExcelMonkey" wrote in message ... Is it possible to erase specific dimensions of an array while a routine is running to increase the performance of the routine? Lets say I have a 3D Array: Redim 3DArray (0 to 10000, 0 to 300, 0 to 50) Let say I populate with three For Next Loops: For X = 1 to 50 For Y = 1 to 300 For Z = 1 to 10000 3DArray(Z,T,X) = Rnd() Next Next 'Lets say I want to delete the all the data associated with X = 1 when 'the loop progresses to X = 2, and continue to do this Next |
Deleting Specific Dimensions of a 3D Array
Does deleting data from the 3rd dimension free up memory to speed up the
routine? Or would I have to redimension the array to see the affects on performance? "Tom Ogilvy" wrote: For X = 1 to 50 For Y = 1 to 300 For Z = 1 to 10000 3DArray(Z,T,X) = Rnd() if X 1 then _ 3DArray(Z,T,X-1) = empty ' or 0 Next Next Next -- Regards, Tom Ogilvy "ExcelMonkey" wrote in message ... Is it possible to erase specific dimensions of an array while a routine is running to increase the performance of the routine? Lets say I have a 3D Array: Redim 3DArray (0 to 10000, 0 to 300, 0 to 50) Let say I populate with three For Next Loops: For X = 1 to 50 For Y = 1 to 300 For Z = 1 to 10000 3DArray(Z,T,X) = Rnd() Next Next 'Lets say I want to delete the all the data associated with X = 1 when 'the loop progresses to X = 2, and continue to do this Next |
All times are GMT +1. The time now is 05:31 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com