Editing a Free Text Field

can you split the field on the ;

something like below

lassign $xlateInVals  obr_13

set field [lindex [split $obr_13 “;”] 1]

set xlateOutVals $field

warning: i am no tcl expert and going off a similar example that we have.

Please don’t do “set xlateOutVals $field

”  Since there are spaces in the data you will get undesired results.  Instead use:  “set xlateOutVals

“

You may also be able to do something like:

# Assume you pass OBR.13

set inp [lindex $xlateInVals 0]

set outp “”

regexp — {^.*?s*?;s*(.*$)} $inp {} outp

set xlateOutsVals

Jared,

Regular expressions are a worthwhile learning experience.  If you prefer to delay that joy, you could try something like:

lassign $xlateInVals inp

lassign [split $inp ;] discard outp

set oupt [string trim $outp]

set xlateOutVals

The important thing to remember is that xlateInVals and xlateOutVals are lists not strings.  Often that doesn’t matter until you hit a test case (or production data) containing a space character.