Toward a state table generator (VBScript)

This bit of code I used to create a two-state table for 5 variables. It would have been fairly easy to add more states -- by changing the if to a select case in 'state' and giving the for loops more things to loop through -- and to add more variables -- by specifying another loop and and another call to 'state'.

I won't be writing the generator ... the whole need for state tables disappeared in a meeting earlier today. function dq( txt ) dq = chr(34) & txt & chr(34) end function function state( num,vlu ) if vlu = 0 then state = dq("v" & num & "=0" ) else state = dq("v" & num & ">0") end if end function f = "Array( _" & vbCRLF for a = 0 to 1 for b = 0 to 1 for c = 0 to 1 for d = 0 to 1 for e = 0 to 1 f = f & "Array(" & _ join( _ array( _ state(1,a), _ state(2,b), _ state(3,c), _ state(4,d), _ state(5,e) _ ), ", " _ ) & "), _" & vbCRLF next next next next next f = f & ")" f = replace( f, ", _" & vbCRLF & ")", " _" & vbCRLF & ")" ) wscript.echo f