quick_sliver007 Posted June 23, 2005 Share 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 . Link to comment Share on other sites More sharing options...
buzz44 Posted June 23, 2005 Share 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 Link to comment Share on other sites More sharing options...
quick_sliver007 Posted June 23, 2005 Author Share Posted June 23, 2005 It didn't all come out. Put the code in a "[ codebox][ /codebox]" .<{POST_SNAPBACK}>thank you. . Link to comment Share on other sites More sharing options...
buzz44 Posted June 23, 2005 Share 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 Link to comment Share on other sites More sharing options...
quick_sliver007 Posted June 23, 2005 Author Share 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. . Link to comment Share on other sites More sharing options...
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