Sign in to follow this  
Followers 0
quick_sliver007

Multipliable dimensional array displayer

5 posts in this topic

#1 ·  Posted (edited)

Here it is............

CODE
; ----------------------------------------------------------------------------

;

; AutoIt Version: 3.1.1

; Author: Quick_sliver007

;

; Script Function: To display multipliable dimensional arrays up to 10 dimensions

; Template AutoIt script.

;$myarray is to be an array.

;$mytitle is to be a string or number.

; ----------------------------------------------------------------------------

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;exsample;;;;;;;;;;;;;;;;;

Dim $myarray1[3][3][3][3][3][3][3][3][3][3]

For $a = 0 To 2

For $b = 0 To 2

For $c = 0 To 2

For $d = 0 To 2

For $e = 0 To 2

For $f = 0 To 2

For $g = 0 To 2

For $h = 0 To 2

For $i = 0 To 2

For $j = 0 To 2

$myarray1[$a][$b][$c][$d][$e][$f][$g][$h][$i][$j] = (BitAND($a, 1) & BitAND($b, 1) & BitAND($c, 1) & BitAND($d, 1) & BitAND($e, 1) & BitAND($f, 1) & BitAND($g, 1) & BitAND($h, 1) & BitAND($i, 1) & BitAND($j, 1))

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

_MultiDimArrayDisplay($myarray1, "My multipliable dimensional array displayer")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func _MultiDimArrayDisplay($myarray, $mytitle)

#include <GUIConstants.au3>

Const $min = 0

GUICreate($mytitle, 600, 400, (@DesktopWidth - 600) / 2, (@DesktopHeight - 400) / 2, $ws_overlappedwindow + $ws_visible + $ws_clipsiblings)

$input_1 = GUICtrlCreateInput(0, 0, 30, 50, 20, $es_number)

$updown_1 = GUICtrlCreateUpdown(-1)

$input_2 = GUICtrlCreateInput(0, 60, 30, 50, 20, $es_number)

$updown_2 = GUICtrlCreateUpdown(-1)

$input_3 = GUICtrlCreateInput(0, 120, 30, 50, 20, $es_number)

$updown_3 = GUICtrlCreateUpdown(-1)

$input_4 = GUICtrlCreateInput(0, 180, 30, 50, 20, $es_number)

$updown_4 = GUICtrlCreateUpdown(-1)

$input_5 = GUICtrlCreateInput(0, 240, 30, 50, 20, $es_number)

$updown_5 = GUICtrlCreateUpdown(-1)

$input_6 = GUICtrlCreateInput(0, 300, 30, 50, 20, $es_number)

$updown_6 = GUICtrlCreateUpdown(-1)

$input_7 = GUICtrlCreateInput(0, 360, 30, 50, 20, $es_number)

$updown_7 = GUICtrlCreateUpdown(-1)

$input_8 = GUICtrlCreateInput(0, 420, 30, 50, 20, $es_number)

$updown_8 = GUICtrlCreateUpdown(-1)

$input_9 = GUICtrlCreateInput(0, 480, 30, 50, 20, $es_number)

$updown_9 = GUICtrlCreateUpdown(-1)

$input_10 = GUICtrlCreateInput(0, 540, 30, 50, 20, $es_number)

$updown_10 = GUICtrlCreateUpdown(-1)

GUICtrlCreateLabel("dim.. 1", 0, 10, 50, 20)

GUICtrlCreateLabel("dim.. 2", 60, 10, 50, 20)

GUICtrlCreateLabel("dim.. 3", 120, 10, 50, 20)

GUICtrlCreateLabel("dim.. 4", 180, 10, 50, 20)

GUICtrlCreateLabel("dim.. 5", 240, 10, 50, 20)

GUICtrlCreateLabel("dim.. 6", 300, 10, 50, 20)

GUICtrlCreateLabel("dim.. 7", 360, 10, 50, 20)

GUICtrlCreateLabel("dim.. 8", 420, 10, 50, 20)

GUICtrlCreateLabel("dim.. 9", 480, 10, 50, 20)

GUICtrlCreateLabel("dim.. 10", 540, 10, 50, 20)

$edit = GUICtrlCreateEdit("", 0, 60, 600, 340, $es_readonly + $ws_vscroll)

GUISetState()

Select

Case UBound($myarray, 0) = 1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ])

$max = UBound($myarray) - 1

GUICtrlSetLimit($updown_1, $max, $min)

For $i = 2 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ])

For $i = 3 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ])

For $i = 4 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ])

For $i = 5 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ])

For $i = 6 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ])

Case $msg = $updown_5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 6

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

For $i = 7 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

Case $msg = $updown_5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

Case $msg = $updown_6

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 7

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

For $i = 8 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

Case $msg = $updown_5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

Case $msg = $updown_6

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

Case $msg = $updown_7

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 8

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

For $i = 9 To 10

$var = Eval("input_" & $i)

GUICtrlSetState($var, $gui_disable)

Next

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_6

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_7

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

Case $msg = $updown_8

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 9

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

GUICtrlSetState($input_10, $gui_disable)

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_6

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_7

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_8

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

Case $msg = $updown_9

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ])

EndSelect

WEnd

Case UBound($myarray, 0) = 10

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

For $d = 1 To UBound($myarray, 0)

$var2 = Eval("updown_" & $d)

If $d = 1 Then

$max = UBound($myarray) - 1

Else

$max = UBound($myarray, $d) - 1

EndIf

GUICtrlSetLimit($var2, $max, $min)

Next

While 1

$msg = GUIGetMsg()

Select

Case $msg = $gui_event_close

ExitLoop

Case $msg = $updown_1

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_2

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_3

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_4

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_5

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_6

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_7

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_8

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_9

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

Case $msg = $updown_10

GUICtrlSetData($edit, $myarray[GUICtrlRead($input_1) ][GUICtrlRead($input_2) ][GUICtrlRead($input_3) ][GUICtrlRead($input_4) ][GUICtrlRead($input_5) ][GUICtrlRead($input_6) ][GUICtrlRead($input_7) ][GUICtrlRead($input_8) ][GUICtrlRead($input_9) ][GUICtrlRead($input_10) ])

EndSelect

WEnd

EndSelect

;Exit

EndFunc ;==>_MultiDimArrayDisplay

It may take few mins to for the array to populate.

Edited by quick_sliver007

.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

It didn't all come out. Put the code in a "[ codebox][ /codebox]" :).

Edited by Burrup

[u]Old Projects:[/u]A3MORGB2Hex[u]Old Functions:[/u]_TimeAdd/_TimeSub_AddComma_BubbleSort _RippleSort "He who does not understand your silence will probably not understand your words." - Elbert Hubbard.

Share this post


Link to post
Share on other sites

It didn't all come out. Put the code in a "[ codebox][ /codebox]" :).

<{POST_SNAPBACK}>

thank you.

.

Share this post


Link to post
Share on other sites

Nice, use's alot of CPU usage when its doing the 10x For...Next loops, it got as high as 90% lol.


[u]Old Projects:[/u]A3MORGB2Hex[u]Old Functions:[/u]_TimeAdd/_TimeSub_AddComma_BubbleSort _RippleSort "He who does not understand your silence will probably not understand your words." - Elbert Hubbard.

Share this post


Link to post
Share on other sites

Nice, use's alot of CPU usage when its doing the 10x For...Next loops, it got as high as 90% lol.

<{POST_SNAPBACK}>

Thank you. Yeah the CPU does go up with the huge arrays, but I don't think many people make arrays over 4 dimensions. This Udf is mostly for taking a look inside an array when building a script. I hope this script helps you and many others.

.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0