Tcl help

[uma jandhyala]

Can some one help with TCl I am trying to strip the values between the quotes .ForEx: “(PRE-POST PAIN SCALE)~&(__-__)(__-__)(__-__)(__-__)(__-__)”

I am trying to do this way can some one tell me if I am doing correct or not I am new to TCl .

if [cequal “RXE” $segtype]

set rxeflds [split [lindex [lregexp $segments {^RXE}] 21] $sep];

if {  [lindex $rxeflds 21] == “(“} {

   

 regsub -all {“} $rxeflds (“”) rxeflds    

Thanks in advance

Topic