Question

I am not much skilled in TCL hence requesting help to provide required mechanism to achieve the below output:

Suppose I have a string who value is “He served food(readymade icecream);”

I want the substring out of this main string as “readymade icecream);“

Further is it possible to further strip of the main string to get substring as “readymade icecream“

Here are my attempts but it is not working:

string trim $str "("

Answer 1

To trim from the left:

 set ix [string first ( $s]
 if {$ix >= 0} {
     incr ix
     set s [string range $s $ix end]
 }
 # else the string does not contain '('

To trim from the right:

 set ix [string last ) $s]
 if {$ix >= 0} {
     incr ix -1
     set s [string range $s 0 $ix]
 }
 # else the string does not contain ')'

See the manual pages for more info.