tcl to format a social security number

[Mike Campbell]

I have an inbound social securitynumber that needs to have the dashes inserted.  

I’ve tried using the format or string commands, but can’t seem to get the syntax correct.  How is the easiest way to do this?

Thanks.

Mike Campbell

Topic

[Max Drown (Infor)]

Try something like this …

Code:

regsub {(d{3})(d{2})(d{4})} $ssn “\1-\2-\3” ssn

-- Max Drown (Infor)

[Max Drown (Infor)]

In an xlate …

Code:

regsub {(d{3})(d{2})(d{4})} [lindex $xlateInVals 0] “\1-\2-\3” ssn; set xlateOutVals [list $ssn]

-- Max Drown (Infor)

[Mike Campbell]

Thanks Max.  When I add it into the xlate and run it using the test tool,

it returns:

0(0).PID(0).#19(0) “SSN Number – Patient” : >–<

[Max Drown (Infor)]

I don’t have it quite right. Might have to fiddle with it a bit. The concept is called regexp back references.

-- Max Drown (Infor)

[Max Drown (Infor)]

Here is the correct code …

Code:

regsub {(d{3})(d{2})(d{4})} $ssn “\1-\2-\3” ssn

Xlate …

Code:

regsub {(d{3})(d{2})(d{4})} [lindex $xlateInVals 0] “\1-\2-\3” ssn; set xlateOutVals [list $ssn]

-- Max Drown (Infor)

[David Barr]

You could probably use {1-2-3} instead of “\1-\2-\3”.

[Charlie Bursell]

You cannot put the back references in double quotes as Tcl will try to interpret them.  Thus the hex characters you see.  Change double quotes to {} and it will work

[Mike Campbell]

Thanks everyone.  Its working now as desired.  Used Charlie’s fix of replacing the double quotes with { }.

[Author]

Replies