I am trying to append spaces on a line because it is a fixed length

[Tom Gilbert]

The problem is the source does not fill in after it gives me the last field so I am using tcl to fill that in so I can use it as fixed when I do the mapping. I tried concat but from what I read it automatically removes leading and trailing spaces. How can I do this without losing the space buffering.

Topic

[Gene Millard]

We use this to do that.
while {[string length $line] < 4} {
append line “”
}

• This reply was modified 3 years, 1 month ago by Gene Millard.

The Guthrie Clinic
Sayre, PA

[Gene Millard]

That should be a ” ” instead of “”

The Guthrie Clinic
Sayre, PA

[Gene Millard]

you might have to set a variable to ” ” to get it to work
set x ” ”

append line $x

The Guthrie Clinic
Sayre, PA

[Tom Gilbert]

Hello All, looks like I got it. Here is what I am using:

set newspccntn1p5 [append test $seg$spccntn1p5]

Why do we have to put ‘test’ in for a variable? Does not affect the outcome, I am just curious.

Thank you…

[David Barr]

I think your code is relying on the fact that append returns the new value of test as well as modifying the variable. A simpler way is “set newspccntn1p5 $seg$spccntn1p5”.

[David Barr]

I would probably do something like this:

set newspccntn1p5 [format “%-12s” $seg]

This would format seg as a 12 character string (adding necessary spaces on the right) and store the result in newspccntn1p5.

[Author]

Replies