[Creat0R]

Timurko,
С массивом я вижу одну проблему - нужно к Ubound() добавить -1...

Код:

For $i = 1 To UBound($strArray)-1

время через запятую выставлялось бы в верное время

Через RegExp сложновато (хотя мне кажется вовсе не реально ), но вот через массив...

Код:

#include <Array.au3>

$String = _
    "05:00, 22:30 Малхолланд Драйв" & @CRLF & _
    "07:30 Евротрип" & @CRLF & _
    "09:00 Свадьба на Рождество" & @CRLF & _
    "11:00 Без ума от любви" & @CRLF & _
    "13:00 Брюс Всемогущий" & @CRLF & _
    "15:00 Красная шапочка" & @CRLF & _
    "16:30 Нечего декларировать" & @CRLF & _
    "18:30 Ze фильм" & @CRLF & _
    "20:30 Львиное сердце" & @CRLF & _
    "01:00 Увеселительница" & @CRLF & _
    "03:00 Обучение Клэр"

Dim $aStrArray = StringSplit(StringStripCR($String), @LF)
Dim $aNewArray[1]

For $i = 1 To $aStrArray[0]
    If StringRegExp($aStrArray[$i], ", \d\d:\d\d") Then
        $aNewArray[0] += 2
        ReDim $aNewArray[$aNewArray[0] + 1]
        $aNewArray[$aNewArray[0]-1] = StringRegExpReplace($aStrArray[$i], ", \d\d:\d\d", "")
        $aNewArray[$aNewArray[0]] = StringRegExpReplace($aStrArray[$i], ".*, (\d\d:\d\d.*$)", "\1")
    Else
        $aNewArray[0] += 1
        ReDim $aNewArray[$aNewArray[0] + 1]
        $aNewArray[$aNewArray[0]] = $aStrArray[$i]
    EndIf
Next

_ArraySort($aNewArray, 0, 1)
_ArrayDisplay($aNewArray)

Совсем другое дело