XLT Questions using TCL

[Jon Melin]

Hello. Still learning Cloverleaf so hopefully I can find some additional help here. I am looking to strip zeros off the front on of an ID (that’s always 8 digits long) but I also need to add dashes in the format of [ xxxx-xxx-x ].

So it comes in as an ID of 000XXXXXXXX and I need to change it to XXXX-XXX-X. Currently I have written a small amount of TCL within my XLT to add zeros:

Like this:

set ptInVals [lindex $xlateInVals 0]

       # Format PID.3 to always be 11 digits, Right justified, zero-filled

       set xlateOutVals

]

But I need to go the opposite direction and add dashes at those specific increments. Please let me know if you have any suggestions.

Thank you,

Jon

Topic

[Chris Williams]

Hi Jon,

Format doesn’t work quite the way you tink. “%11s” will PAD the value with leading spaces. “%011s” will PAD with leading zeros rather than spaces. However it won’t trim the leading zeros. To do that you need to use [string trimleft …]. You can insert the dashes by using [regsub …]
# Grab the initial value.
[code]# Grab the initial value.

[Levy Lazarre]

Hi Jon,

This can also be done with string commands, if you don’t wish to use regular expressions:

Code:

set ptInVals [lindex $xlateInVals 0]

# Remove all leading zeros
set ptInVals [string trimleft $ptInVals 0]

# Add the dashes at desired places, using ranges and string concatenation

set ptInvals [string range $ptInvals 0 3]-[string range $ptInvals 4 6]-[string range $ptInvals 7 7]

# Return the value as a list
set xlateOutVals [list $ptInVals]]

[Levy Lazarre]

Another variant of Chris’s technique is to use the regular expression itself to trim the leading zeros:

Code:

set ptInVals [lindex $xlateInVals 0]

regsub -all — {0.*(d{4})(d{3})(d)} $ptInVals  {1-2-3} ptInVals

# Return the value as a list
set xlateOutVals [list $ptInVals]]

[Jon Melin]

Thanks everyone. That helps a lot and I appreciate the input.

Jon

[Author]

Replies