Posted to tcl by mjanssen at Thu Oct 19 22:41:59 GMT 2006view pretty
package require http package require sqlite3 set data [set [http::geturl http://tvrage.com/quickschedule.php](body)] sqlite3 db {} db eval {CREATE TABLE shows(date text, time text, name text)} set lines [split $data \n] foreach line $lines { set type {} regexp {\[(.*)?\](.*)\[.*\]} $line -> type value switch $type { DAY {set current_day $value } TIME {set show_time $value ; set show_nr 0} SHOW {db eval {INSERT INTO shows VALUES($current_day,$show_time, $value)}} default {continue} } } db eval {SELECT * from shows WHERE date="Wednesday, 25 Oct 2006" ORDER BY time } { puts "$time: $name" } db close