TCL string range command truncates blanks

[Steven Sager]

Calling tcl proc in a translation.

string range “sample string” 3 7

I should get result “ple s”

but all I get is “ple”

Any help? Thanks!

Topic

[John Hamilton]

Confused.

Your code looks correct.

So I pulled up a tcl comand prompt cut and pasted your command  and it seemed to work correclty.

clf###@hci – KS_stage: > tcl            

tcl>string range “sample string” 3 7  

ple s                                  

tcl>                                  

[Steven Sager]

Yeah, it works interactively.

I’m having trouble in the translation with tclproc.

(I’m still working on this.) Have a good one.

[James Cobane]

Steve,

If you are doing this in translation, remember that you need to treat xlateOutVals as a list.  I suspect that you are doing something like:

set myvar [string range “sample string” 3 7]

set xlateOutVals $myvar

where you need to set xlateOutVal as such:

set xlateOutVals

The translation is treating the “s” as the second element in xlateOutVals (since there is a space), so it is not getting put into the first output field…..

Hope this helps.

Jim Cobane

Henry Ford Health

[Steven Sager]

proc x {} {

upvar xlateInVals xlateInVals xlateOutVals xlateOutVals

     lassign $xlateInVals data

     set xlateOutVals [string range $data 0 29]

If my data is contiguous: 123456789012345678901234567890123

I get a 30 char truncation: 123456789012345678901234567890

if there are embedded blanks: 123456789 123456789 123456789 123

I get a truncation after the first blank: 123456789

(It’s making me more crazier)

[James Cobane]

Steve,

Change:

set xlateOutVals [string range $data 0 29]

to:

set xlateOutVals

]

Jim Cobane

Henry Ford Health

[Steven Sager]

Mr. Jim Cobane, you have made my day!

Thank you and may you have a very happy new year!

– Steve

[Joseph Benigno]

Jim,

Thank you for your responses to this posting. Solved my problem.

Your postings contained clear explanation and nice simple examples.

Now I can end the day on a positive note, feeling like I accomplished something.

Thanks again

Joe

[Author]

Replies