Code-a-holic: Array

Showing posts with label Array. Show all posts

Tuesday, September 27, 2005

[VBScript] Map. Is there a more useless function?

Map is great for other languages. I've implemented it for no good reason. And I really can't think of a good use for it. Anyone?

function map( arrSource, strOp )
 Dim i
 Dim varItem
 Dim strEval
 Dim max
 Dim arrCopy
 
 arrCopy = arrSource
 max = UBound( arrCopy )
 For i = 0 To max
  varItem = arrCopy( i )
  strEval = Replace( strOp, "${item}", varItem )
  arrCopy( i ) = Eval( strEval )
 Next
 map = arrCopy
End Function


dim arr
arr = map ( array(1,2,3,4,5,6,7,8,9),"${item}*${item}"  )
'arr now equals array(1,4,9,16,25,36,49,64,81)

Thursday, August 25, 2005

[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.

Thursday, August 11, 2005

Data is Code, Code is Data -- VBScript

Interesting ...

wscript.echo eval( "dateserial( " & _
             eval( "join( array( 1996,12,10 ), "","")" ) & _
             ")" )

I think I can do this in Tcl too. Now to find a use for it ...