Newbie Questions: How to remove the leading zeros in tcl

This topic has 4 replies, 3 voices, and was last updated 14 years, 4 months ago by Tom Rioux.

Creator

Topic
March 13, 2009 at 8:12 pm #50717
Shu Chen
Participant
Hi guys,

I would like to remove MRN leading zeros. sometimes there are 1 zero and sometimes there are 3 or 4.. which function should i use to to remove the leading zeros? any suggestions? thanks!!!

PID|0001||0130447||

PID|0001||0008537||
Creator

Topic

Viewing 3 reply threads

Author

Replies
- March 13, 2009 at 8:17 pm #67227
  Tom Rioux
  Participant
  Shu,
  
  The simplest would probably be the string command. There is called “trimleft” where you can specify a character or number to trim from the left (leading) side of a variable.
  
  string trimleft $variable 0
  
  Hope this helps…Tom
- March 16, 2009 at 2:44 pm #67228
  Shu Chen
  Participant
  trimleft is perfect for my issue. thank you so much!!!
- July 28, 2010 at 12:24 am #67229
  Ariba Jones
  Participant
  I need to do the exact same thing. The problem is I don’t know from the replies where you put the command for this.
  
  Can this be put in the ‘Pre’ tcl section of a COPY statement in an XLATE? If so, how do you define the variable?
- July 29, 2010 at 2:01 pm #67230
  Tom Rioux
  Participant
  Ariba,
  
  This can be done in an xlate. You can do something like:
  
  set mrn [lindex $xlateInVals 0]
  
  set xlateOutVals [string trimleft $mrn 0]
  
  or simply (but I know there are those out there that don’t like this way)
  
  set xlateOutVals [string trimleft $xlateInVals 0]
  
  Hope this helps…
  
  Tom
Author

Replies

Viewing 3 reply threads

The forum ‘Cloverleaf’ is closed to new topics and replies.