Forum Discussion
ldesfosses
Mar 26, 2018Cirrus
I've written this :
set tmpstring [string map {\{\{ \{} $mytable]
set mytable [string map {\}\} \}} $tmpstring]
foreach item $mytable {
set nextisname 0
set tmpitem [string trim $item]
foreach line [split $tmpitem] {
if { $line eq "name" } {
set nextisname 1
} else {
if { $nextisname eq 1 } {
puts "name $line"
set nextisname 0
}
}
}
}
Not my proudest code, but it allow me to access the value.