how to make the number 01

[GaryFrost]

Think what you like, opionions are like ass-holes, eveyone has one.

[ligenza]

Think what you like, opionions are like ass-holes, eveyone has one.

Everyone has a brain also. I'm just superior. Can't help it.

[GaryFrost]

You told a joke, good for you. lmao.

[ligenza]

You told a joke, good for you. lmao.

?? Where!

[jefhal]

Here's the one that pads as many zeros in front of a number that you want. I call it "Procrustes". Enjoy!

$pad = "0"
$procrustes = InputBox("How long?","How long do you want your digits?",2)
$a = InputBox("Enter a number:","Enter the number you want to convert","1")

for $i = 1 to $procrustes - stringlen($a)
    $pad = $pad & "0"
next
$a = StringRight($pad & $a,$procrustes)

MsgBox(4096,"",$a)

OR, this version has one less line:

#include <string.au3>
$pad = "0"
$procrustes = InputBox("How long?","How long do you want your digits?",2)
$a = InputBox("Enter a number:","Enter the number you want to convert","1")

$pad = _StringRepeat("0",$procrustes - stringlen($a))
$a = StringRight($pad & $a,$procrustes)

MsgBox(4096,"",$a)

Edited September 30, 2005 by jefhal

[ligenza]

Here's the one that pads as many zeros in front of a number that you want. I call it "Procrustes". Enjoy!

$pad = "0"
$procrustes = InputBox("How long?","How long do you want your digits?",2)
$a = InputBox("Enter a number:","Enter the number you want to convert","1")

for $i = 1 to $procrustes - stringlen($a)
    $pad = $pad & "0"
next
$a = StringRight($pad & $a,$procrustes)

MsgBox(4096,"",$a)

I like it.