Padding Digits
Windows only

Problem

How do you pad digits with leading zeros? For example, if you have the number 24, how can you print it as “0024”?

Solution

The following utility function will pad an integer with a specified number of digits:

Function PadDigits(val, digits)
  PadDigits = Right(String(digits,"0") & val, digits)
End Function

You can use this function as such:

For i = 0 To 25
  Rhino.Print PadDigits(i, 4)
Next

The output will be:

0000
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
...