Jump to content
Sign in to follow this  
quick_sliver007

Multipliable dimensional array displayer

Recommended Posts

quick_sliver007

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
buzz44

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

Edited by Burrup

qq

Share this post


Link to post
Share on other sites
quick_sliver007

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
buzz44

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


qq

Share this post


Link to post
Share on other sites
quick_sliver007

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  

×