Lpad with zero's in vbscript

Question

I\'m trying to pad a string with 0\'s to the left.The length of the output string should be 7. Here\'s my code :

inputstr = \"38\"
in = string(7 - Len(input         


        

Answer 1

This function will left-pad an input value to the given number of characters using the given padding character without truncating the input value:

Function LPad(s, l, c)
  Dim n : n = 0
  If l > Len(s) Then n = l - Len(s)
  LPad = String(n, c) & s
End Function

Output:

>>> WScript.Echo LPad(12345, 7, "0")
0012345
>>> WScript.Echo LPad(12345, 3, "0")
12345