langs a-z

Task/Flatten-a-list/VBScript/flatten-a-list-1.vbscript

@@ -0,0 +1,32 @@
+class flattener
+	dim separator
+	
+	sub class_initialize
+		separator = ","
+	end sub
+	
+	private function makeflat( a )
+		dim i
+		dim res
+		for i = lbound( a ) to ubound( a )
+			if isarray( a( i ) ) then
+				res = res & makeflat( a( i ) )
+			else
+				res = res & a( i ) & separator
+			end if
+		next
+		makeflat = res
+	end function
+
+	public function flatten( a )
+		dim res
+		res = makeflat( a )
+		res = left( res, len( res ) - len(separator))
+		res = split( res, separator )
+		flatten = res
+	end function
+	
+	public property let itemSeparator( c )
+		separator = c
+	end property
+end class

Task/Flatten-a-list/VBScript/flatten-a-list-2.vbscript

@@ -0,0 +1,4 @@
+dim flat
+set flat = new flattener
+flat.itemSeparator = "~"
+wscript.echo join( flat.flatten( array( array( 1 ),2,array(array(3,4),5),array(array(array())),array(array(array(6))),7,8,array())), "!")

Task/Flatten-a-list/VBScript/flatten-a-list-3.vbscript

@@ -0,0 +1 @@
+1!2!3!4!5!6!7!8