proc stripLeadingHTML {string} { for {set p1 [string first "<" $string]} {$p1 == 0} \ {set p1 [string first "<" $string]} { set p2 [string first ">" $string] incr p2 set string [string trim [string range $string $p2 end]] } return $string } package require http set id [http::geturl http://www.cwflynt.com:10085/tcl/question] set page [http::data $id] set tblStart [string first "= 0} \ {set tr1 [string first "