Как правильно работать с большими массивами?

Здоровый у меня массив. 30000 строк. И постоянно обновляется.
Я его постоянно очищаю
и перенаполняю.
и после выполнения нескольких десятков операций возникает ошибка нехватки памяти.
Может я что-то забыл сделать?

0

если n изменяется то ReDim Preserve не прокатит

0

нет. n в данном случае константна. определяется при загрузке формы и дальше не меняется. мало того вся систем работает 100-500 раз а потом умирает. Типа out of memory случается...

0

В принципе-то я не в курсе, но, на примере темы SkyKing, предлагаю сбрасывать вот так:

Сообщение от Sasha_Smirnov Visual Basic 1 2 Set krupa = Nothing ' стёрли использованный словарь… Set randel = Nothing ' …и массив коэффициентов

1

Возможно, такое происходит из-за фрагментации памяти (ОЗУ, а не дисковая подсистема). Обычно это решается (на С) изначальным резервированием достаточного размера пула памяти и затем его управлением. На VB инструменты для непосредственного манипулирования памятью отсутствуют, хотя, может быть, возможно это реализовать с помощью системных функций, но в любом случае, писать модуль управления распределением памяти штука не из самых простых. Вероятно есть другие пути решения этой проблемы или вообще, проблема заключается в другом, здесь лучше всего внимательно протестировать Вашу программу, проанализировать и подумать.

Добавлено через 5 минут
Проверьте также программу на утечки памяти.

Добавлено через 10 минут
Если размеры массива не меняются, то можно поэкспериментировать со статическим массивом.

1

Sasha_Smirnov, a чем Nothing отличается от Erase?

Добавлено через 47 секунд

Сообщение от Homarty Проверьте также программу на утечки памяти.

А вот это уже очень интересно. Как это делается?

Добавлено через 2 минуты

Сообщение от Homarty Если размеры массива не меняются

К сожалению, меняются.
Этот массив вообще резиновый. Он является источником данных. но если массив, обрабатываемый по источнику данных, вдруг содержит новую, неизвестную источнику инфу, то эта инфа добавляется в массив-источник. Такая ботва: два массива друг друга учат и копят информацию.

0

Покажите пример в файле. А то так и останетесь со своими "протечками".

0

kalbasiatka, я не могу показать пример в файле. Попытка выделить проблему в отдельный файл - не удалась:проблема оказалась решенной
Случайно залез в стек и узрел ..
Но утечка памяти - на самом деле серьезная проблема, для которой, как я понял стандартных решений в VBA - кот наплакал.

0

Сообщение от AndreA SN и после выполнения нескольких десятков операций возникает ошибка нехватки памяти.

Erase, как и Redim или redim preserve (в сторону уменьшения индекса) корректно очищают элементы массива, освобождают память, занимаемую им, а также уменьшают кол-во ссылок на объект, если одному из элементов массива была присвоена таковая, в результате чего вызывается деструктор класса. Здесь не будет проблем.
В коде выше у вас присваиваются просто значения, даже не объект.

Сообщение от AndreA SN Попытка выделить проблему в отдельный файл - не удалась:проблема оказалась решенной

Очевидно, что проблема не в массивах, а в объектах где-то ещё в коде, которые не освобождаются должным образом.

Сообщение от Homarty Возможно, такое происходит из-за фрагментации памяти (ОЗУ, а не дисковая подсистема).

Redim preserve не приводит к фрагментации памяти. Рантайм выделяет новый блок памяти*. Копирует в него старый массив, после чего он уничтожается. В частности именно это приводит с сильному замедлению, когда кто-то, например, делает в цикле redim preserve +1 с огромными массивами вместо одноразового выделения достаточно большого объема, чтобы поместить туда все данные.

*В некоторых случаях менеджер памяти не выделяет новый участок для копирования туда массива целиком. Это происходит, когда в конце массива есть достаточно non-committed страниц памяти, чтобы выделить там место для операции 'redim preserve' таким образом, чтобы данные массива располагались последовательно (не были разорваны).
Вот здесь вообщем-то проводили тесты.

Сообщение от AndreA SN Visual Basic 1 MaxMas2 = Range(Cells(n, 22), Cells(1, 1)).Value

Здесь тоже можно "оптимизировать" массив.
Например, задать явный тип данных вместо Variant и заполнять массив на основе событийной схемы, чтобы данные параллельно записывались и в ячейки, и в массив.
Все будет сильно зависеть от реализации программы. Это может снизить занимаемый объем, но замедлить работу.

0

При выполнении erase для динамического массива происходит декремент ссылок членов массива, но это не гарантирует вызов деструктора для всех них, если учитывать, что ссылки на объекты были откуда-нибудь скопированы, например , с листа Ексель. И надо принимать во внимание, что программа интенсивно работает со строковыми данными, т.е. постоянно удаляет/добавляет их. Хотя, волне возможно (даже вероятнее всего), что в Екселе есть свой менеджер памяти и волноваться по этому поводу его пользователям нет необходимости.
Тесты для динамических массивов видел, интересно, косвенное подтверждение работы менеджера памяти.

0

Спасибо за поправку, да, разумеется, деструктор будет вызван только когда кол-во ссылок на объект достигнет 0.

0