Коллекции

[_igor_]

Добрый день!
Возник такой вопрос.
Есть к примеру коллекция с именем C. Добавляем к примеру один айтем, в качестве ключа будет строка, а в качестве значения еще одна коллекция. Так вот заранее неизвестно сколько надо будет добавить айтемов. А коллекция как известно содержит только ссылку на обьект, т.е. мне нужно заранее обьявлять "вложенные коллекции", а сколько их надо будет неизвестно. Буду рад советам. Спасибо

[alibek]

Вопрос отсутствует.

[_igor_]

Вопрос - как это реализовать? Или подход в корне неверный?

[alibek]

Реализовать обыкновенно, добавлять в коллекции вложенные коллекции.
В чем вопрос?

[_igor_]

Вот к примеру обьявляю я

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

Dim colMain as new Collection
Dim colNested as new Collection

добавляю что-то в colNested

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

colNested.Add "some string1"
colNested.Add "some string2"

etc.
Потом

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

colMain.Add colNested

Затем допустим очищаю colNested и по новой

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

colNested.Add "some string3"
colNested.Add "some string4"

и еше раз

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

colMain.Add colNested

Что будет тогда в colMain.Item(1)?
Данные ведь не в самой коллекции храняться, а только ссылка на colNested, а ее содержимое уже изменилось.
А обьявить dim colNested1, colNested2 и т.д. не получится я же не знаю сколько их надо будет

[Денис]

Буду рад советам. Спасибо

Зачем объявлять заранее? Это ж бейсик! Объявляй по мере необходимости на месте.

[_igor_]

Буду рад советам. Спасибо

Зачем объявлять заранее? Это ж бейсик! Объявляй по мере необходимости на месте.

А это как?

[Niko]

Что будет тогда в colMain.Item(1)?

там будет измененная коллекция colNested, как и в colMain.Item(2)

[_igor_]

Что будет тогда в colMain.Item(1)?

там будет измененная коллекция colNested, как и в colMain.Item(2)

Да. А надо чтоб была не измененная. Значит надо добавлять каждый раз новую коллекцию с новым содержимым в colMain. А где их взять?) Если не известно сколько их понадобиться.

[Хакер]

Автор, ты понимаешь, что Dim x As New yyy, это совсем не то же самое, что:

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

Dim x as yyy
set x = New yyy

Автор, ты знаешь, что ты можешь делать так: colParent.Add "child1", New Collection?

[_igor_]

Автор, ты понимаешь, что Dim x As New yyy, это совсем не то же самое, что:

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

Dim x as yyy
set x = New yyy

Автор, ты знаешь, что ты можешь делать так: colParent.Add "child1", New Collection?

В книге написано это то же самое.
Спасибо Хакер! Только местами надо поменять colParent.Add New Collection, "child1"
Все работает спасибо еще раз!

[Хакер]

Такую книгу в печку без раздумий.