How do I...do zero padding on a value

[sshrum]

I am writing a file renaming app and need a way to zero pad a number. I'd like to be able to pass a pad value and a number and have it return back the result; something like:

_zeropad(4,1) -> 0001

_zeropad(4,100) -> 0100

_zeropad(4,10000) -> 10000

Anyone have something handy?

TIA

[/dev/null]

see StringFormat().

msgbox(4096,"",stringformat("%04d",1))
msgbox(4096,"",stringformat("%04d",100))
msgbox(4096,"",stringformat("%04d",1000))

Cheers

Kurt

Edited July 11, 2006 by /dev/null

[sshrum]

NvrMnd....this is what I just whipped up:

Func _ZeroPad($a, $b)
    $c = $a - StringLen($b)
    if $c > 0 Then
        for $d = $c to $a
            $b = "0" & $b
        Next
    EndIf
    return $b
EndFunc

Where $a is the pad and $b is the number to pad. Returns back the padded value.

[sshrum]

StringFormat would work too.

Thanks for the info.

[robcull]

I know this thread is extremely old, but in case you're wondering, that script doesn't quite work- it pads one less 0 than it should (above, $a is desired stringlength after padding zeroes and $b is the input string, so (4, 1) should return "0001" but instead only returns "001". 

There is a much easier way to make this zeropad function. here it is:

Func _ZeroPadII($n, $X)  ;$n is desired string length after padded zeros, $X is input string
    while stringlen($X)<$n
        $X = "0" & $X
    wend

    return $X
EndFunc

Ex: 

_ZeroPadII(2, 1) = 01
_ZeroPadII(2, 10) = 10
_ZeroPadII(2, 100) = 100

_ZeroPadII(4, 2) = 0002
_ZeroPadII(4, 20) = 0020
_ZeroPadII(4, 200) = 0200
_ZeroPadII(4, 2000) = 2000
_ZeroPadII(4, 20000) = 20000

It'd be great if this could be added to the Int function. 

Edited August 16, 2017 by robcull
changed name of function to be different than that of OP

[mikell]

StringFormat() is already integrated, it has not changed in 11 years, and the code in post #2 still works  

[robcull]

On 8/7/2017 at 9:38 AM, mikell said:

...the code in post #2 still works  

No it doesn't. Look: 

ConsoleWrite(@CRLF&"_ZeroPad(3,1)  = "& _ZeroPad(3,1) )
ConsoleWrite(@CRLF&"_ZeroPad(3,10) = "& _ZeroPad(3,10) )
ConsoleWrite(@CRLF&"_ZeroPad(3,10) = "& _ZeroPad(3,100) )
ConsoleWrite(@CRLF)

ConsoleWrite(@CRLF&"_ZeroPadII(3,1)  = "& _ZeroPadII(3,1) )
ConsoleWrite(@CRLF&"_ZeroPadII(3,10) = "& _ZeroPadII(3,10) )
ConsoleWrite(@CRLF&"_ZeroPadII(3,10) = "& _ZeroPadII(3,100) )
ConsoleWrite(@CRLF&@CRLF)

Func _ZeroPad($a, $b)  ;OP's code from post #2
    $c = $a - StringLen($b)
    if $c > 0 Then
        for $d = $c to $a
            $b = "0" & $b
        Next
    EndIf
    return $b
EndFunc

Func _ZeroPadII($n, $X)  ;my version
    while stringlen($X)<$n
        $X = "0" & $X
    wend
    return $X
EndFunc

Returns: 

_ZeroPad(3,1)  = 001
_ZeroPad(3,10) = 00010
_ZeroPad(3,10) = 100

_ZeroPadII(3,1)  = 001
_ZeroPadII(3,10) = 010
_ZeroPadII(3,10) = 100

 

 

EDIT: It just occurred to me that you were referring to the stringformat code in the actual second post, not the second post by the OP. Haha oops. yes, stringformat is great, i just wonder why they've never gotten around to updating the help file on it. It's very difficult to decipher for beginners, and the example provided leaves a lot to be wanting. I mean hell, the variable format is "%[flags] [width] [.precision] type" and yet the info on each of those parameters is written in the file in the order "width, type, flags, and finally precision." 

Edited August 16, 2017 by robcull
i'm an idiot

[Jos]

42 minutes ago, robcull said:

No it doesn't. Look: 

post 2 isn't the code you show here but rather: 

On 11-7-2006 at 6:35 PM, /dev/null said:

see StringFormat().

msgbox(4096,"",stringformat("%04d",1))
msgbox(4096,"",stringformat("%04d",100))
msgbox(4096,"",stringformat("%04d",1000))

Cheers

Kurt

Jos

Edited August 16, 2017 by Jos

[robcull]

yes, see my edit on my last post

[Melba23]

robcull,

Quote

updating the help file on it. It's very difficult to decipher for beginners, and the example provided leaves a lot to be wanting.

You should have seen that page before I rewrote it!

Seriously, if you want to provide something that you think is better we would be happy to consider replacing the current content.

M23