摘要: =>set a1 "abc ddf abd"abc ddf abd=>set a2 "ddf"ddf=>regexp $a2 $a11=>set a3 "sdf sdfsdf "sdf sdfsdf =>regexp $a2 $a30=> 阅读全文
posted @ 2011-04-27 23:43 greencolor 阅读(121) 评论(0) 推荐(0) 编辑
摘要: ::iwidgets::panedwindow .pwcreate a new class named as .pw, with the class templete as ::iwidgets::panedwindow 阅读全文
posted @ 2011-04-27 23:10 greencolor 阅读(155) 评论(0) 推荐(0) 编辑
摘要: set fhandle [open http://www.com r]while {[gets $fhandle lyne] > -1} {set stuff "[lindex $lyne 0] - [lindex $lyne 6]"puts $stuff}exit--------- Description ---------------------The program above opens a file in Tcl and reads it line by line(the two parameter varient of "gets" p 阅读全文
posted @ 2011-04-27 23:02 greencolor 阅读(257) 评论(0) 推荐(0) 编辑