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 "