[REBOL] tv-grabber.r
From: james::mustard::co::nz at: 16-Nov-2001 3:22
Hi Graham (and any other kiwi tv watchers out there!)
Noticed a tv script on Garaham's rebsite thought I'd post a quickie one that
does tv1,2,3,4 and prime
from the same site :)
this just formats it into console for easy viewing rather than wading
through crappy flash and java popups :)
REBOL []
;get major channel listings for today
ontv: trim read http://ontv.nzoom.com/schedules/
channels: ["tv1" "tv2" "tv3" "tv4" "prime" "end of"]
ch: 1
parse ontv [
some [
(print join (pick channels ch) " listings for
today^/~~~~~~~~~~~~~~~~~~~~~~" ch: ch + 1)
thru {<TR height="60">^/<TD height="60" bgcolor="#ffffff">^/^/<TABLE
border="0" cellpadding="0" cellspacing="0">^/<TR height="60">} copy tdata to
</TABLE>^/</TD>^/</TR>
(parse tdata [any [thru "<b>" copy program to "</b>" thru <br> copy
scheduled to "</td>" (print join scheduled [": " program])]])
(print " ")
]
]
halt
James