Formatting with Spaces

[David Harrison]

I

Topic

[Max Drown (Infor)]

Here’s one method …

Code:

hcitcl> set in 1234567890
hcitcl> regexp {(d{3})(d{3})(d{4})} $in matchAll matchOne matchTwo matchThree
1
hcitcl> set new “$matchOne $matchTwo $matchThree”
hcitcl>echo $new
123 456 7890

And here’s another …

Code:

hcitcl>regsub {(d{3})(d{3})(d{4})} $in {1 2 3} new
1
hcitcl>echo $new
123 456 7890

-- Max Drown (Infor)

[David Harrison]

Thanks, that works ok but you have to output it as a list.

[Robert Kersemakers]

Hi David,

You almost got it, but your xlateOutVals was a list of three elements and it should be a list of one element: the string “123 456 7890”.

Max’s solutions absolutely work: just use

Code:

set xlateOutVals [list $new]

Or another option would be to modify your own solution like this:

Code:

set xlateOutVals [list [cconcat [string range $xlateInVals 0 2] [string range $xlateInVals 3 5] [string range $xlateInVals 6 end]]]

Zuyderland Medisch Centrum; Heerlen/Sittard; The Netherlands

[Michael Hertel]

xlateInVals is a list too…

set indata [lindex $xlateInVals 0]

set xlateOutVals

-mh

[Robert Kersemakers]

Blimey, you’re right! I completely missed that one…

Zuyderland Medisch Centrum; Heerlen/Sittard; The Netherlands

[Author]

Replies