摘要:
=>set a1 "abc ddf abd"abc ddf abd=>set a2 "ddf"ddf=>regexp $a2 $a11=>set a3 "sdf sdfsdf "sdf sdfsdf =>regexp $a2 $a30=> 阅读全文
摘要:
::iwidgets::panedwindow .pwcreate a new class named as .pw, with the class templete as ::iwidgets::panedwindow 阅读全文
摘要:
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 阅读全文