Нужна идея

[EducatedFool]

Есть еще идея использовать «user-defined data type

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

Посмотри вложение. Запусти макрос test:

Sub test()
    Dim Программа As TV_Guide
    Set Программа = ПрочитатьТелепрограммуИзФайла
    With Программа
        .Телепрограмма.ОтобразитьСписокТелеканалов
        .Телепрограмма.ВывестиНаЭкран "Вся телепрограмма:"
        .ЧтоМожноПосмотретьВоВремя("9.30").ВывестиНаЭкран "В  9.30  можно посмотреть:"
    End With
End Sub

Вместо 3-х моих классов, в принципе, вполне хватит и двух.
Если предложенный вариант устроит - переделаю.


И ещё - я бы на твоём месте вместо использования
For Each oPar In ActiveDocument.Paragraphs
сразу считывал бы весь текст документа в переменную, а потом бы анализировал его - отличить заголовки можно ведь не только с использованием стилей...
Так считывание информации из файла будет происходить намного быстрее...

Конечно, быстрее. Но как? Анализировать текст на предмет наличия в нем определенных слов?

Если строка пустая - то пропускаем её, иначе:
если строка начинается с цифры (if s like "#*" then) - то это одно, иначе - другое.

[viter.alex]

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

…И ещё - я бы на твоём месте вместо использования
For Each oPar In ActiveDocument.Paragraphs
сразу считывал бы весь текст документа в переменную, а потом бы анализировал его - отличить заголовки можно ведь не только с использованием стилей...
Так считывание информации из файла будет происходить намного быстрее...

Конечно, быстрее. Но как? Анализировать текст на предмет наличия в нем определенных слов?

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

…Если предложенный вариант устроит - переделаю…

Вариант устраивает. Переделывать сам буду. Спасибо за помощь. Буду учиться.


Добавлено позже
Все получилось. Задача состояла в том, чтобы сформировать новую программку, где все передачи, выходящие несколько раз в день были сведены в одну строку с указанием времени выхода через запятую. Все получилось. Огромная благодарность EducatedFool за примеры работы с классами и коллекциями. Исходный файл можно посмотреть в первом посте темы. Результат в приложении. Вложение 8593

[Sasha_Smirnov]

Ах вот в чём была задача!

В 1998-м нечто подобное (в Word 97) приходилось делать ☻ — после тщетных переговоров с поставщиками сей информации.

Кое-где это делают (год 2009) в редакторе FAR, вчетвером, часов за 6.
И, кстати, трое из них за это время зарабатывают по 1500 деревянных.

Так что будем осторожны — от луддитов за углом!

[viter.alex]

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

…Кое-где это делают (год 2009) в редакторе FAR, вчетвером, часов за 6.

Это в раздел «Садо-мазо»

А в общем у меня не больше чистого времени ушло на создание макроса