padding string with zeros

This topic has 19 replies, 7 voices, and was last updated 15 years, 11 months ago by Max Drown (Infor).

Creator

Topic
September 8, 2009 at 5:21 pm #51175
Gary Atkinson
Participant
I need to pad a string with leading zeros if the length is less than 10. So, if receive 12356…I need to send out 0000123456. This is in PID:3 for the Medical record number. Is there a tcl snippet I can use to do this and add into my xlate?
Creator

Topic

Viewing 18 reply threads

Author

Replies
- September 8, 2009 at 5:28 pm #69041
  Max Drown (Infor)
  Keymaster
  I often do something like this for padding:
  
  Code: if {[lindex $xlateInVals 0] != “”} {set xlateOutVals [list [format “%05s” [lindex $xlateInVals 0]]]}
  
  It’s just an example that you’d need to modify for your own needs.
  
  -- Max Drown (Infor)
- September 8, 2009 at 5:33 pm #69042
  Gary Atkinson
  Participant
  Let me add one more thing. The inbound string could be any vary of numbers up to 10 digits. So it may be 123, 1234, 123456 etc. The output will need to be padded with zeros, so the string is 10 digits total.
- September 8, 2009 at 6:01 pm #69043
  Gary Atkinson
  Participant
  Never mind I figured it out. Thx Max for showing me the way… 😆
- September 8, 2009 at 6:04 pm #69044
  Tom Rioux
  Participant
  Gary,
  
  You can use Max’s code to do this by simply changing the “%05s” to
  
  “%010s”. This will convert your MRN, regardless of length (if less than 10) and convert it to a 10 digit number with leading zeroes.
  
  Hope this helps…
  
  Tom
- September 8, 2009 at 6:10 pm #69045
  Gary Atkinson
  Participant
  Thx. I had to “re-read” the doc on the format command. I love the syntax docs, because they are so easy to read for us “non-programmer” types 🙄
- December 2, 2009 at 8:22 pm #69046
  Mahmoud Ihaddadene
  Participant
  Hi,
  
  Input= 12.34
  
  set xlateOutVals [format “%0.3f” [lindex $xlateInVals 0]]
  
  Output=12.340
  
  My question: How can i padded a zero at the left to have always on the Output 012.340
  
  Thanks
  
  Moe
- December 2, 2009 at 8:48 pm #69047
  Rob Abbott
  Keymaster
  format “0%0.3f” $val
  
  Rob Abbott
  Cloverleaf Emeritus
- December 2, 2009 at 9:35 pm #69048
  Max Drown (Infor)
  Keymaster
  ~~Gary Atkinson wrote:~~
  
  Thx.
  
  -- Max Drown (Infor)
- December 3, 2009 at 3:08 pm #69049
  Mahmoud Ihaddadene
  Participant
  ~~Rob Abbott wrote:~~
  
  format “0%0.3f” $val
  
  I need to format the Input to xxx.xxx (decimal lengh 7).
  
  Example1: Input= 12 Output should be=012.120
  
  Example2: Input=12.5 Output should be=012.500
- December 3, 2009 at 3:36 pm #69050
  Max Drown (Infor)
  Keymaster
  ~~Mahmoud Ihadadene wrote:~~
  
  ~~Rob Abbott wrote:~~
  
  format “0%0.3f” $val
  
  I need to format the Input to xxx.xxx (decimal lengh 7).
  
  Example1: Input= 12
  
  -- Max Drown (Infor)
- December 3, 2009 at 4:14 pm #69051
  Mahmoud Ihaddadene
  Participant
  Thank you
- December 3, 2009 at 7:23 pm #69052
  Mahmoud Ihaddadene
  Participant
  Hi Max,
  
  If my input is = 1.23 the Output wil be : 01.230 !!!! but me i need to get 001.230
  
  Regards
- December 3, 2009 at 7:26 pm #69053
  Max Drown (Infor)
  Keymaster
  That’s a good question. Maybe you could run the number through formatting twice? Once of the right side and once for the left side?
  
  -- Max Drown (Infor)
- December 3, 2009 at 7:30 pm #69054
  Tom Rioux
  Participant
  Try changing Max’s original format code to:
  
  set output [format “0%0.3f” $var]
  
  That should give you what you need.
  
  Hope this helps…
  
  Tom Rioux
- December 3, 2009 at 7:32 pm #69055
  Jim Kosloskey
  Participant
  Why not:
  
  format “00%0.3f” $stuff
  
  where $stuff is your value?
  
  email: jim.kosloskey@jim-kosloskey.com 30+ years Cloverleaf, 60 years IT – old fart.
- December 3, 2009 at 7:37 pm #69056
  Max Drown (Infor)
  Keymaster
  That will always add two zeros to the left side (“0012.000”).
  
  -- Max Drown (Infor)
- December 3, 2009 at 7:39 pm #69057
  Max Drown (Infor)
  Keymaster
  This seems to work I think …
  
  lappend input “12” lappend input “12.15” lappend input “1.23”
  #xxx.xxx
  foreach var $input {
  [code]lappend input “12”
  lappend input “12.15”
  lappend input “1.23”
  
  #xxx.xxx
  
  foreach var $input {
  
  -- Max Drown (Infor)
- December 3, 2009 at 8:11 pm #69058
  Chris Williams
  Participant
  /beginCharlieMode
  
  A single format command will provide the desired output:
  
  Code: format “%07.3f” 1.23
  
  The 0 specifies leading zeros
  
  The 7 specifies the TOTAL output field width including the decimal point (NOT just the number of digits to the left of the decimal)
  
  The .3 specifies the number of places to the right of the decimal
  
  The f specifies that this is a floating point number
  
  /endCharlieMode
  
  Cheers.
- December 3, 2009 at 8:17 pm #69059
  Max Drown (Infor)
  Keymaster
  ~~Chris Williams wrote:~~
  
  A single format command will provide the desired output:
  
  Code: format “%07.3f” 1.23
  
  The 0 specifies leading zeros
  
  The 7 specifies the TOTAL output field width including the decimal point (NOT just the number of digits to the left of the decimal)
  
  The .3 specifies the number of places to the right of the decimal
  
  The f specifies that this is a floating point number
  
  Cheers.
  
  That does appear to work perfectly. Thanks, Chris!
  
  Code: lappend input “12” lappend input “12.15” lappend input “1.23” #xxx.xxx foreach var $input { set output [format “%07.3f” $var] #set output [format “%0.3f” $var] #set output [format “%07s” $output] puts “$var: $output” #Result: #12: 012.000 #12.15: 012.150 #1.23: 001.230 }
  
  -- Max Drown (Infor)
Author

Replies

Viewing 18 reply threads

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