Обработка данных определенного вида

[LA_]

Имеется у меня определенный тип данных:

имя1 число11 число12
имя2 число21 число22
имя3 число31 число32
...
имяN числоN1 числоN2

Все числа по умолчанию равны 0.
При работе программы будет необходимо при обращении по имени увеличивать одно из чисел (т.е. например при вызове Sub(имя3, 1) должно увеличиваться число31 на единицу).

Как лучше организовать хранение этих данных и обращение к ним, если результат потом нужно будет вывести в Excel?
Сделать ли лучше массив или сразу данные хранить-обрабатывать в ячейках Excel'a?

Имен будет достаточно много, где-то 500-1000. Операцию увеличение чисел надо будет делать еще большее количество раз - ~100000.

[alibek]

Числа будут целыми или вещественными?
Максимальное значение числа?

[Денис]

Сделать класс. Там и инкремент будет и сохранение.

[LA_]

Числа будут целыми.
Максимальное значение числа - ~100000

Про классы в VBA сейчас посмотрю...
Спасибо!

[LA_]

наверное, я что-то не так делаю -
создал класс Sender:

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

Public Name As String ' имяN
Private To_ As Integer ' числоN1
Private CC As Integer ' числоN2

Public Sub SenderInit(Optional PName As String = "", Optional PTo_ As Integer = 0, Optional PCC As Integer = 0)
    Name = PName
    To_ = PTo_
    CC = PCC
End Sub


и сам код:

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

Dim senders(3) As New Sender
senders(1).SenderInit "ya", 1, 2 ' для пробы

Но дабы найти нужное имя, для изменения числаN1 или числаN2 придется перебирать все элементы массива.


Поясню, что я делаю - в Outlook'е нужно просмотреть все письма и составить список адресатов, от которых они приходили. Причем для каждого адресата (который в списке должен быть только один раз) надо посчитать кол-во писем, где получатель стоит в графе To и где получатель стоит в графе CC (копия).

[RayShade]

Та дамм! А почему бы не сделать так:

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

dim mydata as new collection
mydata.add(new sender(x,y,name),name)


И потом уже просто проверять

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

mydata.item(name).cc


[LA_]

код

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

mydata.add(new sender(x,y,name),name)

не работает

работает код вида

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

mydata.Add New Sender, "name"

но как присвоить значения?

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

mydata.Item("name").Name = "name"

работает,
а вот

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

mydata.Item("name").To_ = 1

почему-то нет

[alibek]

Сделай класс, у которого будут свойства Номер, Имя, Число1, Число2.
Создай класс-коллекцию, в которую будут добавляться инстансы первого класса; ключом коллекции будет являться Имя.
У класса-коллекции добавь специальный метод, который будет искать (обращением по ключу) запись и при ее отсутствии добавлять новый, одновременно увеличивая счетчик.

[LA_]

разобрался... переменные в классе были заданы как Private

[LA_]

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

правильно я понимаю, что у коллекции нет метода для проверки наличия элемента с определенным ключом? чтобы сразу знать надо ли использовать Add или надо увеличить счетчик?

[alibek]

У VBA.Collection нет. Но такой метод нетрудно написать самому.
Проверка есть в Scripting.Dictionary, но использовать данный объект — избыточно.