Posted to tcl by _E-bola at Tue Jul 17 18:45:05 GMT 2007view pretty
set o 0 foreach e [lrange "--"] 0 end] { if {[string tolower [lindex $e 0]] == "bytesize"} { set nfo(bytesize) [lrange $e 1 end] } if {[string tolower [lindex $e 0]] == "vstandard"} { set nfo(vstandard) [lrange $e 1 end] } ..... more of the same below