quick_sliver007 Posted June 23, 2005 Posted June 23, 2005 (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 June 23, 2005 by quick_sliver007 .
buzz44 Posted June 23, 2005 Posted June 23, 2005 (edited) It didn't all come out. Put the code in a "[ codebox][ /codebox]" . Edited June 23, 2005 by Burrup qq
quick_sliver007 Posted June 23, 2005 Author Posted June 23, 2005 It didn't all come out. Put the code in a "[ codebox][ /codebox]" .<{POST_SNAPBACK}>thank you. .
buzz44 Posted June 23, 2005 Posted June 23, 2005 Nice, use's alot of CPU usage when its doing the 10x For...Next loops, it got as high as 90% lol. qq
quick_sliver007 Posted June 23, 2005 Author Posted June 23, 2005 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. .
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now