С массивом я вижу одну проблему - нужно к Ubound() добавить -1...
Код:
Код: Выделить всё
For $i = 1 To UBound($strArray)-1Цитата:
время через запятую выставлялось бы в верное время
Через RegExp сложновато (хотя мне кажется вовсе не реально
), но вот через массив...Код:
Код: Выделить всё
#include
$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)Совсем другое дело
, там нужно user\ заменить на .\ (или вовсе убрать).