[VBScript] Changes to existing stuff

Just a couple of changes. To the Container class I've added

    public sub Clear
        redim vat(0)
        itemCount = 0
    end sub

and I forgot to include the DQuote for PArray

Function DQuote( aText )
    DQuote = Chr( 34 ) & aText & Chr( 34 )
End Function

[VBScript] Arrays within arrays and debugging them

Array() can contain Array(). I do it lots. But there's the issue of debugging things and of knowing what's in an array full of embedded arrays.

So I wrote PArray(). Function PArray( anArray ) Dim i Dim elem Dim res res = "{" For i = 0 to UBound( anArray ) elem = anArray( i ) IF IsArray( elem ) Then res = res & PArray( elem ) else res = res & IIF( IsNumeric( elem ), elem, DQuote( elem ) ) & "," end if Next If Right( res, 1 ) = "," Then res = Left( res, Len( res ) - 1 ) PArray = res & "}" End Function Tcl has a function of the same name which does the same thing. And the output looks very like an Euphoria sequence (now there's a nice language) but you can change that if you want to.

I suppose the next thing to do is to write a compiler of PArray() decompilations that would allow me to write nested arrays out to a text file and then read them back in. One day.