Нужна идея

[viter.alex]

Господа, есть телевизионная программа ТВпрограмма.rar. Нужно ее структурировать. Т.е. разделить программы по каналам, дням выхода, названию программы и времени выхода.
Я попытался это сделать классами, но не хватает элементов в коллекции. Им может быть только 256, а мне нужно больше. Какие будут идеи?

P.S. Большое спасибо EducatedFool за пример работы с классами.

[EducatedFool]

Я попытался это сделать классами, но не хватает элементов в коллекции. Им может быть только 256

Попробуй запустить такой код:

Sub test()
    Dim coll As New Collection
    For i = 1 To 500000
        coll.Add i
    Next
    MsgBox coll.Count
End Sub

Да и не надо все строки загонять в одну коллекцию.

Сделай 2 класса:
первый - программа за день (содержит коллекцию элементов 2-го класса)
второй - телепередача (имеет 2 или 3 свойства типа: время, наименование телепередачи, дата)

Так (с двумя классами, а не с одним), мне кажется, будет потом удобнее работать, если ты на основе полученных коллекций будешь формировать программу в другом формате.
Хотя, в принципе, и одного класса хватит...

А почему программа в формате Word?
Ты её сам преобразуешь из формата HTML, или она тебе поступает изначально в таком виде?

[viter.alex]

Сообщение от EducatedFool

Попробуй запустить такой код:

Результат на картинке
Вложение 8563
Думаю, что нужно три класса: один — программа за неделю, второй — программа за день, третий соственно сама программа с именем канала, и временем выходаю

[EducatedFool]

Результат на картинке Owerflow.png

Ну, не знаю...
Я проверял этот код в VBA Office 2003.
Мои программы (которые используют коллекции из тысяч элементов) запускались и под Office 2003, и под Office 2007.
(проверял в Excel и в Word)

Попробуй не 500 000, а 50 000...

Думаю, что нужно три класса: один — программа за неделю, второй — программа за день, третий соственно сама программа с именем канала, и временем выходаю

Да не проблема... хоть 10 классов.
Ты объясни, для чего ты это хочешь использовать...

По поводу Overflow:
я как-то видел в твоём коде строки типа: DefInt I
Переполнение возникает как раз из-за этого.
Попробуй в цикле заменить i на j

[viter.alex]

Поскольку у меня стоит Option Explicit, то i я объявил как Integer. В этом и проблема.
Вот код, который помог выявить ошибку:

Sub test()
    Dim coll As New Collection
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 500000
        coll.Add i
        If Err.Number <> 0 Then
          MsgBox coll.Count: Err.Clear: End If
    Next
    MsgBox coll.Count
End Sub

Она происходила сразу при инициализации цикла. Меняем Integer на Double и все работает.

А почему же тогда в класс добавлялось только 256 элементов
Добавлено
Игорь, посмотри, сколько членов показывает окно Locals для коллекции coll
Добавлено
Показывать-то, оно показывает, но членов в коллекции больше. Оказывается первый код работает правильно, только с именами каналов нужно поработать, а то не записываются.

[EducatedFool]

Создай модуль класса Class1
У этого класса определи одно свойство:

Public index As Double

В стандартном модуле напиши:

Sub test()
    Dim coll As New Collection
    For i = 1 To 50000
        Set cl = New Class1: cl.index = i: coll.Add cl
    Next
    MsgBox coll.Count
End Sub

У тебя создастся коллекция с 50000 экземплярами этого класса.

PS: Убери все свои DefInt I, DefBool B и т.д. - и проблем не будет...

(добавлено)
Действительно, почему-то в окне Watches отображается только 256 элементов
Однако, если ты запустишь код:

Sub test()
    Dim coll As New Collection
    For i = 1 To 50000
        Set cl = New Class1: cl.index = i: coll.Add cl
    Next
    MsgBox coll.Item(14256).index
    'MsgBox coll.Count
End Sub

то увидишь, что все элементы в действительности создаются.

[viter.alex]

Сообщение от EducatedFool

…PS: Убери все свои DefInt I, DefBool B и т.д. - и проблем не будет…

Зачем? Мне так удобнее.

[viter.alex]

Сделал с одним классом для телепрограммы со свойствами канал, название и время выхода и с двумя коллекциями: одна для дней недели, которая хранит все программы данного дня и вторая для недели, которая хранит все коллекции дней.
Но теперь пояыился еще вопрос. При создании коллекции недели я ключом к элементу коллекции назначаю дату. Как прочитать этот ключ?

[EducatedFool]

с двумя коллекциями: одна для дней недели, которая хранит все программы данного дня и вторая для недели, которая хранит все коллекции дней

весьма оригинальный подход.
Я бы сделал по-другому...

Как прочитать этот ключ?

Никак. Не надо ограничиваться только коллекциями.
Есть более простые способы достижения результата.
Достаточно добавить в главный класс метод, возвращающий нужный элемент подкласса с заданными свойствами, и всё.

Чуть попозже объясню, как лучше сделать.

Если ты прикрепишь файл с уже имеющимся кодом - будет намного проще.
Не забудь описать, что требуется получить в итоге, т.е. для каких целей предназначена прога.

[viter.alex]

Сообщение от EducatedFool

…Если ты прикрепишь файл с уже имеющимся кодом - будет намного проще.
Не забудь описать, что требуется получить в итоге, т.е. для каких целей предназначена прога.

Не я сам Ты пример приведи, а я разберусь.

Сообщение от EducatedFool

…Есть более простые способы достижения результата.
Достаточно добавить в главный класс метод, возвращающий нужный элемент подкласса с заданными свойствами, и всё…

Идея! Спасибо. Но пример нужен, а то долго думать буду
Добавлено позже
Есть еще идея использовать «user-defined data type» . Почитал справку, вроде подходит. Опять придется код переписывать