A short dictionary generator written in vbs

Usage: 'Use: cscript this. vbs> dic.txt
Set the followingCodeSave as this. vbs

Copy codeThe Code is as follows: a = array (1, 2, 3, 4, "")
Function JS1 (N)
For I = 1 to n
F = F & "F" & I &"&"
S = S & "for each F" & I & "in A: wscript. Echo" & F
S = mid (s, 1, Len (S)-1 )&":"
Next
JS1 = s
End Function

Function JS2 (N)
For I = 1 to n
M = M & "Next "&":"
Next
JS2 = m
End Function

LCX = JS1 (ubound (A) + 1) & JS2 (ubound (A) + 1)
LCX = mid (LCX, 1, Len (LCX)-1)
B = "A = array (1, 2, 3, 4,"): "& LCX

Execute B