Как создавать переменные динамически, по имени.

[Avtopic]

Здравствуйте!
Нашел в поиске чем-то похожую тему. Там автора сравняли с землей, все же рискну поднять похожий вопрос.

Имею свою функцию. Туда передаются пять аргументов. Один из них GoodsID.
Функция используется в запросе.
В самой функции для каждой GoodsID мне надо определить отдельные Static переменные, чтобы в них накоплялись результаты по группам для запроса. Т.е. мне нужно определять Static переменные динамически. Но как?

Сейчас я делаю так: (пожалуйста, не поленитесь разобраться в следующем маленьком коде)

Код: Выделить всё

Public Function sum_res3(..,,,,., GoodsID As Long) As Double
Static OLD_RES() As Double
Static FIRST_OBROSHCHENIE As Boolean

If FIRST_OBROSHCHENIE = False Then ReDim OLD_RES(2, 0): FIRST_OBROSHCHENIE = True
If GoodsID > UBound(OLD_RES(), 2) Then ReDim Preserve OLD_RES(2, GoodsID)

GoodsID увеличивает размер Static массива OLD_RES до GoodsID.
Но GoodsID это Long, и может быть произвольным. Т.е. несмотря на не надобность массив может получиться огромным.

Кто не будь, может посоветовать решенные?

2-й путь, вместо OLD_RES(2, 0) использовать OLD_RES(3, 0) и в 3-ем хранить GoodsID, не подходит. Перебор в цикле тормозит запрос до бесконечности.

3-й путь, вместо OLD_RES использовать Collection тоже не подходит, тормозит запрос примерно в четыре раза.

[tyomitch]

2-й путь, вместо OLD_RES(2, 0) использовать OLD_RES(3, 0) и в 3-ем хранить GoodsID, не подходит. Перебор в цикле тормозит запрос до бесконечности.

3-й путь, вместо OLD_RES использовать Collection тоже не подходит, тормозит запрос примерно в четыре раза.

Могу предложить использовать хеш-таблицу: вместо OLD_RES(2, 0) использовать OLD_RES(3, 0), и в 3-ем хранить GoodsID, а в качестве индекса использовать остаток от деления GoodsID на что-нибудь большое и простое. Тогда перебор будет минимальным.

[Avtopic]

в качестве индекса использовать остаток от деления GoodsID на что-нибудь большое и простое

tyomitch убейте, но не понял.
остаток деления двух разных чисел на одно и тоже большое и простое, не может бить одинаковым?

[tyomitch]

в качестве индекса использовать остаток от деления GoodsID на что-нибудь большое и простое

tyomitch убейте, но не понял.
остаток деления двух разных чисел на одно и тоже большое и простое, не может бить одинаковым?

Может, но редко.
Поэтому и будет: перебор, но маленький.

[Avtopic]

уже читаю на эту тему

[Nicky]

[OFFTOP]
Нравятся мне такие названия

FIRST_OBROSHCHENIE

[Avtopic]

ТЗ:
имеется GoodsID, Long > 0, может быть произвольным.
должен сделать массив OLD_RES(2, GoodsID)

tyomitch поставил на правильный путь.

Прочитал, в основном понял, но... и все, застрял.

Кто не будь, может поделиться, какой принцип хеширования применил бы сам, в этом случае.

А если кто примерчик еще предложит, Вообще, буду благодарен.

Спасибо заранее!

[Avtopic]

Да, еще одно примечание
происходит только увеличение массива, т.е. элементы не удаляются.

[tyomitch]

Какие конкретно сложности?
Делить с остатком не удаётся?

[Avtopic]

tyomitch
делить то канешно удается, но:
неужели эффективность не завысит от значения “что-нибудь большое и простое”,
Под эффективность подразумеваю, частоту коллизии, и при коллизии количество таких же “заколлизированных ” которые нужно перебирать.
Если честно, ведь вы сами же не использовали бы этот простой вариант хеширования .

[tyomitch]

Использовал.

[Avtopic]

Ладно. Пойду по этому путы до конца, хотя
сомневаюсь, что результат будет лучше, чем при Collection.

[Avtopic]

Блеск!
Первая же статья которая попалась мне по этому поводу, пустил по ложному путы (бинарных деревьев, АВЛ- деревьев, хотя тоже было полезно).
И потерял идею, которую вы предложили.
Построив маленький эксперимент, сразу понял свою ошибку.

Код: Выделить всё

Const Hash_Dim = 12
Dim arre(Hash_Dim)

Sub hashing()
Dim i As Long, St As String

For i = 17 To 105
    hash i
Next

Debug.Print Join(arre, ";;")
End Sub

Function hash(Vr As Long) As Long
hash = Vr Mod Hash_Dim
arre(hash) = arre(hash) + 1    'каким же стал размер этой ветки
End Function

7;;7;;7;;7;;7;;8;;8;;8;;8;;8;;7;;7

tyomitch Вы гений, спасибо большое!