printf()-like Format Function in VBScript

greeting  = "Hello"
firstName = "SDX"
lastName  = "2000"

dim i
i=1

print "$greeting $firstName ${LastName}!"
print "3+5=${3+5}"
print "Square root of 81 is ${sqr(81)}"
print "${i = i+1}" 'Prints false; does not increment i
print "${msgbox(firstName & lastName,0,greeting)}"

Hello SDX 2000!
3+5=8
Square root of 81 is 9
False
1

<br />
'============================================================================<br />
' takes a string with format characters and an array<br />
' to expand.<br />
'<br />
' the format characters are always "%x", independ of the<br />
' type.<br />
'<br />
' Use double percent (%%) to denote an actual percent<br />
'<br />
' usage example:<br />
'		dim str<br />
'		str = fmt( "hello, Mr. %x, today's date is %x.", Array("Miller",Date) )<br />
'		response.Write str<br />
'<br />
' additionally the support was added to allow for fixed field widths<br />
' adding a number between the % and x will set the field width to at least that size<br />
' example:<br />
' 	str = fmt( "%10x %10x %10x", Array("Jason", "Steve", "Smith") )<br />
'		response.write str<br />
'	output:<br />
'		'Jason      Steve      Smith     '<br />
'============================================================================<br />
function fmt( str, args )<br />
	dim res		' the result string.<br />
	res = ""<br />
<br />
	Dim oRE 'the RegEx<br />
	Set oRE = New regexp<br />
	Dim fieldLen ' length of the field<br />
	Dim strOffset<br />
	Dim argLen ' length of array string<br />
	Dim strSearchOn ' string to perform RegEx on<br />
  strSearchOn = ""<br />
  <br />
	dim pos		' the current position in the args array.<br />
	pos = 0<br />
<br />
	dim i<br />
	for i = 1 to Len(str)<br />
		' found a fmt char.<br />
		if Mid(str,i,1)="%" then<br />
			'make sure we are not at the end of the string<br />
			if i<Len(str) then<br />
				' normal percent.<br />
				if Mid(str,i+1,1)="%" then<br />
					res = res & "%"<br />
					i = i + 1<br />
				Else<br />
					' determine if there is a field length<br />
					oRE.Pattern = "%(\d*)x.*$"<br />
					oRE.Global = False<br />
					oRE.IgnoreCase = False<br />
					strSearchOn = Mid(str,i) ' the rest of the string<br />
					fieldLen = oRE.Replace(strSearchOn,"$1")<br />
					If fieldLen = "" Then<br />
						' no length specified, expand from array.<br />
						res = res & CStr(args(pos))<br />
						strOffset = 0<br />
					Else<br />
						' field is specified, expand from array then pad<br />
						res = res & CStr(args(pos))<br />
						argLen = Len(CStr(args(pos))) ' this is how large the token was<br />
						If argLen < fieldLen Then ' determine if we need more padding<br />
							res = res & Space(fieldLen-argLen) ' add the padding to the string<br />
						End If<br />
						strOffset = Len(fieldLen)<br />
					End If<br />
<br />
					pos = pos+1<br />
					i = i + strOffset + 1<br />
				end if<br />
			end if<br />
<br />
		' found a normal char.<br />
		else<br />
			res = res & Mid(str,i,1)<br />
		end if<br />
	Next<br />
<br />
	fmt = res<br />
	<br />
	' clean-up<br />
	Set oRE = Nothing<br />
end function<br />

Const cArg = "%s"
 
Function FormatStr(ByVal S, ByVal Args)
    Dim I
    FormatStr = S
    For I = LBound(Args) To UBound(Args)
        If InStr(FormatStr, cArg) <> 0 Then
           FormatStr = Replace(FormatStr, cArg, Args(I), 1, 1)
        End If
    Next
End Function

function sprintf(str, args)<br />
dim asplit,pos,cnt<br />
asplit=split(str,"%s")<br />
for i=0 to ubound(asplit)<br />
	if i=ubound(asplit) then<br />
		sprintf = sprintf & asplit(i)<br />
		pos=pos+1<br />
	elseif right(asplit(i),1)="%" then<br />
		sprintf=sprintf & asplit(i) & "s"<br />
	else<br />
		sprintf=sprintf & asplit(i) & args(pos)<br />
		pos=pos+1<br />
	end if<br />
next<br />
end function