Forum Discussion
Andy_McGrath
Nov 20, 2017Cumulonimbus
set listOfStr [split "XXX-GHDF-12XD45" "-"]
set location [expr {[llength $listOfStr] - 2}
set output [lindex $listOfStr $location]
set listOfStr [split "XXX-GHDF-12XD45" "-"]
set location [expr {[llength $listOfStr] - 2}
set output [lindex $listOfStr $location]