Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 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