Reply To: Anyone got a zero fill (left) tcl proc or fragment?

[Daniel Lee]

There might be an easier way but here’s what I use:

 set newnum “000000”

 set newnum [append newnum [lindex $xlateInVals 0]]

 set newnum [string range $newnum [expr [string length $newnum] -6] [expr [string length $newnum] – 1]]

 set xlateOutVals [lreplace $xlateOutVals 0 0

]