Posted to tcl by _E-bola at Tue Jul 17 18:45:05 GMT 2007view raw

  1. set o 0
  2. foreach e [lrange "--"] 0 end] {
  3. if {[string tolower [lindex $e 0]] == "bytesize"} {
  4. set nfo(bytesize) [lrange $e 1 end]
  5. }
  6. if {[string tolower [lindex $e 0]] == "vstandard"} {
  7. set nfo(vstandard) [lrange $e 1 end]
  8. }
  9. .....
  10. more of the same below