String spaces

[Geates]

Is there a VBS function that will allow me to print a string in a static space. Similar to QBasic's SPACE$ or PRINT USING function. My work-around is the below function (may help clarify things).

function strSpace (str, intLength)
	if (intLength <> -1) then
		if (len(str) > intLength) then
			str = left(str, intLength)
		else
			do until (len(str) = intLength) : str = str & " " : loop
		end if
	end if
	strSpace = str
end function

This begs another question. Is there a way to pass only the necessary arugments to a function. Similar to PHP
function definition:

function myFunc(arg1, arg2 = false)

-Geates

 

[PHV]

strSpace = Left(str & Space(intLength), intLength)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Geates]

Excellent. I can make that work.

-Geates