The Code for: "LPad0() [Pad a value with zeros but never truncate].vbs.txt" |
This is the example, a shortcut was installed to this code :
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ' $Header: C:/DBAREIS/Projects.PVCS/Win32/ScriptingTipsAndTricks/EXAMPLE[vbs].LPad0() [Pad a value with zeros but never truncate].vbs.txt.pvcs 1.0 29 Jun 2014 12:51:22 USER "Dennis" $ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '============================================================================ function LPad0(Str, PadLen) '============================================================================ if len(Str) >= PadLen then LPad0 = Str else LPad0 = right(string(PadLen, "0") & Str, PadLen) end if end function