VBScript String Formatting

[Justin Cooke]

Hi All, I'm generating a fileName based on the current date/time and would like to simply prepend leading zeros to the month, day, hours, minutes, and seconds if they're less than 10. This seems so simple and yet I haven't seen a function to do it (in VBScript). Of course, I could write my own, but I'd rather not if MS provided one that I've just missed. Do any of you know if this already exists? In VB6, I would just write something like: strFinal = Format( nNum, "00" ) In C/C++, something like: sprintf( strFinal, "%02d", nNum ); (Please forgive any synatx errors...it's been a while since I wrote C :)) Any help is greatly appreciated. Thanks! Justin

[Dave Kreskowiak]

Yeah, VBScripts formatting leaves much to be desired. But, there is a very easy solution to the problem.

Function FLZ(length, number)
Dim temp
' Generate a string of zeros the length we need, then append the number
' length = 5 and number = 232 would be "00000232"
temp = String( length, "0" ) & number
' Grab the length of the string we need to return
' length = 5 would return "00232"
FLZ = Right( temp, length )
End Function

Now all you have to do is call this for each number you want to format:

Filename = FLZ(2, Month) & FLZ(2, Day) & "-" & FLZ(2, Hour) & FLZ(2, Minute) & FLZ(2, Second)

RageInTheMachine9532 "...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

[Justin Cooke]

Thanks, Dave! That works perfectly and you saved me the hassle (albeit minor :)) of writing it myself. Much appreciated.