Posted to tcl by gwlester at Sat Jan 27 18:59:53 GMT 2018view pretty
proc GetInfo {inList target} { set found no set results {} foreach pair $inList { lassign $pair type value if {$found && $type ne "LBL"} { lappend results $pair } elseif {$found && $type eq "LBL"} { return $results } elseif {!$found && $type eq "LBL"} { set found yes lappend results $pair } } return $results }