langs a-z

Task/Apply-a-callback-to-an-array/VBScript/apply-a-callback-to-an-array-1.vbscript

@@ -0,0 +1,16 @@
+class callback
+	dim sRule
+
+	public property let rule( x )
+		sRule = x
+	end property
+	
+	public default function applyTo(a)
+		dim p1
+		for i = lbound( a ) to ubound( a )
+			p1 = a( i )
+			a( i ) = eval( sRule )
+		next
+		applyTo = a
+	end function
+end class

Task/Apply-a-callback-to-an-array/VBScript/apply-a-callback-to-an-array-2.vbscript

@@ -0,0 +1,13 @@
+dim a1
+dim cb
+set cb = new callback
+
+cb.rule = "ucase(p1)"
+a1 = split("my dog has fleas", " " )
+cb.applyTo a1
+wscript.echo join( a1, " " )
+
+cb.rule = "p1 ^ p1"
+a1 = array(1,2,3,4,5,6,7,8,9,10)
+cb.applyto a1
+wscript.echo join( a1, ", " )