tcl help in reformating phone nubmer output

[Karol Streit]

I’m new with cloverleaf and it appears that I will need to reformat the phone number from PID 13 and PID 14 to use the format of (123)456-7890  Does any one have tcl proc that can do this already that they would be willing to share?

Thanks,

Karol

Topic

[Tim Gobbel]

Here are a couple I have been using.  They are not original but i don’t know who to give the credit to.  (Probably Charlie since he set up the system!)

[Charlie Bursell]

Just a tcl fragment.

Assume the number comes in as  1234567890

set ph [lindex $xlateInVals 0]

regsub — {(d{3})(d{3})(d{4})} $ph {(1)2-3} ph

set xlateOutVals

[Karol Streit]

Thanks All for your help.  Charlie’s frag worked great! 😀

Karol

[Author]

Replies