разбивка на строки

[parserdcc]

Всем доброго времени суток и с новым годом!

Задача такова, уже голову всю сломал.

Есть, к примеру, строка вида "9:50 Жить здорово 11:00 ЖКХ 12:00 Новости 12:20 Модный приговор 13:20 Детективы". Разумеется строка может быть длинее и название программ тоже, всё от программы ТВ зависит.

Каким образом разбить строку и привести её к виду:

9:50 Жить здорово
11:00 ЖКХ
12:00 Новости
12:20 Модный приговор
13:20 Детективы

[FireFenix]

В ручную или регулярками (Regular Expression) парсить каждую новость начиная с даты и пока не наступит конец сообщения или начало новой даты

[parserdcc]

а конкретней? Пример кода.
В последнее время мозги что-то вообще не работают.

[parserdcc]

Может быть пригодится.

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

Dim S As String, A() As String, I As Long
S = "9:50 Жить здорово 11:00 ЖКХ 12:00 Новости 12:20 Модный приговор 13:20 Детективы"
A = Split(S)
For I = 0 To UBound(A)
  If IsDate(A(I)) Then
    Debug.Print
  End If
  Debug.Print A(I) & " ";
Next I