Разбор строки для программы телепередач.

Spearance 26.08.2004 10:11

Если комуто доведется разбирать строки программы телепередач, то вот маленький метод, который вам может помочь:

Разбирает строку:
6:00, 9:00, 11:15 "Доброе утро, Россия"
на
6:00 "Доброе утро, Россия"
9:00 "Доброе утро, Россия"
11:15 "Доброе утро, Россия"

########################################
# разбивка сложных строк
#####
@_text_line[text_line][parts;title]
$title[^text_line.match[((?:\d{1,2}:\d{2},?\s)+)(.*?)^$][m]{$text_line[^match.1.trim[]]^match.2.trim[]}]
$parts[^text_line.split[, ;vl]]
$result[^parts.menu{$parts.piece $title}[^#0A]]
### End @_text_line

---