This could also be done with Regular Expressions.
This example would remove the first “X” and all of the characters to the end of the string.
set xlateOutVals [list [regsub {X.*$} [lindex $xlateInVals 0] “”]]
This example would remove the last “X” and all of the characters to the end of the string.
set xlateOutVals [list [regsub {X[^X]*$} [lindex $xlateInVals 0] “”]]
My guess is that you will only have one “X” in your values that you are processing, thus either of the above examples should work.
Thanks,
Eric