Developing the code …
set pn “573-999-2640”
#set pn “(573)999-2640”
#set pn “573.999.2640”
#set pn “573 999 2640″
# Remove non-numeric characters
set pn [string map {- {} ( {} ) {} . {} ” ” {}} $pn]
# Format the phone number
regsub {(d{3,3})(d{3,3})(d{4,4})} $pn {(1)2-3} pn
puts $pn
Testing an xlate environment …
lappend xlateInVals “573-999-2640”
#lappend xlateInVals “573 999 2640″
set pn [string map {- {} ( {} ) {} . {} ” ” {}} [lindex $xlateInVals 0]]
regsub {(d{3,3})(d{3,3})(d{4,4})} $pn {(1)2-3} pn
set xlateOutVals [list $pn]
puts [lindex $xlateOutVals 0]
Fragment for the xlate …
set pn [string map {- {} ( {} ) {} . {} ” ” {}} [lindex $xlateInVals 0]]
regsub {(d{3,3})(d{3,3})(d{4,4})} $pn {(1)2-3} pn
set xlateOutVals [list $pn]
.
.