Snippets ( AutoIt Array ) - Revision history

Spudw2k: /* _DynEnumArray */

2017-03-03T07:30:06Z

_DynEnumArray

← Older revision		Revision as of 07:30, 3 March 2017
Line 516:		Line 516:

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	Func _DynEnumArray($~~arr~~)		Func _DynEnumArray($aArrayToEnum)
	Local $~~arrDims~~[1][2]=[["ElementIdx","ElementCount"]] ;Create an Array to Track Dimensions and Elements		Local $aDims[1][2]=[["ElementIdx","ElementCount"]] ;Create an Array to Track Dimensions and Elements
	For $x = 1 to UBound($~~arr~~,0)		For $iX = 1 to UBound($aArrayToEnum,0)
	ReDim $~~arrDims~~[$x+1][2]		ReDim $aDims[$iX+1][2]
	$~~arrDims~~[$x][0]=0		$aDims[$iX][0]=0
	$~~arrDims~~[$x][1]=UBound($~~arr~~,$x)		$aDims[$iX][1]=UBound($aArrayToEnum,$iX)
	Next		Next
	Do ;Loop Through Array Elements		Do ;Loop Through Array Elements
	$~~var~~ = "$~~arr~~"		$sArray = "$aArrayToEnum"
	For $x = 1 to UBound($~~arrDims~~)-1		For $iX = 1 to UBound($aDims)-1
	$~~var~~ &= "[" & $~~arrDims~~[$x][0] & "]"		$sArray &= "[" & $aDims[$iX][0] & "]"
	Next		Next
	ConsoleWrite($~~var~~ & " " & Execute($~~var~~) & @CRLF) ;Output Subscript and Value		ConsoleWrite($sArray & " " & Execute($sArray) & @CRLF) ;Output Subscript and Value

	$~~arrDims~~[UBound($~~arrDims~~)-1][0] += 1 ;Increment Last Dimension Element		$aDims[UBound($aDims)-1][0] += 1 ;Increment Last Dimension Element
	For $y = UBound($~~arrDims~~)-2 To 1 Step -1 ;Increment Dimension Element		For $iY = UBound($aDims)-2 To 1 Step -1 ;Increment Dimension Element
	If $~~arrDims~~[$y+1][0] = $~~arrDims~~[$y+1][1] Then		If $aDims[$iY+1][0] = $aDims[$iY+1][1] Then
	$~~arrDims~~[$y+1][0]=0		$aDims[$iY+1][0]=0
	$~~arrDims~~[$y][0]+=1		$aDims[$iY][0]+=1
	EndIf		EndIf
	Next		Next

	Until $~~arrDims~~[1][0]=$~~arrDims~~[1][1]		Until $aDims[1][0]=$aDims[1][1]
	Return ConsoleWrite(@CRLF)		Return ConsoleWrite(@CRLF)
	EndFunc		EndFunc

	;Demos		;Demos
	Local $~~arr~~[5]=["Never","Gonna","Give","You","Up"]		Local $aArray[5]=["Never","Gonna","Give","You","Up"]
	_DynEnumArray($~~arr~~)		_DynEnumArray($aArray)

	Local $~~arr~~[6][2]=[["Penn", "Teller"],["Gilbert", "Sullivan"],["Sonny", "Cher"],["Stone", "Parker"],["Fischbacher", "Horn"],["Plant", "Page"]]		Local $aArray[6][2]=[["Penn", "Teller"],["Gilbert", "Sullivan"],["Sonny", "Cher"],["Stone", "Parker"],["Fischbacher", "Horn"],["Plant", "Page"]]
	_DynEnumArray($~~arr~~)		_DynEnumArray($aArray)

	Local $~~arr~~[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]		Local $aArray[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]
	_DynEnumArray($~~arr~~)		_DynEnumArray($aArray)
	</syntaxhighlight>		</syntaxhighlight>

Spudw2k: /* _DynEnumArray */

2017-01-06T20:56:10Z

_DynEnumArray

← Older revision		Revision as of 20:56, 6 January 2017
Line 550:		Line 550:

	Local $arr[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]		Local $arr[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]
	~~_DynEnumArray($arr)~~

	~~;Added 64 dimension array for fun. *Note this causes known bug in Au3Check - http://www.autoitscript.com/trac/autoit/ticket/2333~~
	Local $arr[1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][3]=[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[1,2,3]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
	_DynEnumArray($arr)		_DynEnumArray($arr)
	</syntaxhighlight>		</syntaxhighlight>

Spudw2k at 20:53, 6 January 2017

2017-01-06T20:53:48Z

@@ Line 504: / Line 504: @@
      Return True
 EndFunc   ;==>_AssocArrayDestroy
 </syntaxhighlight>

DatMCEyeBall: /* _ArrayEmpty */

2013-10-22T19:01:20Z

_ArrayEmpty

← Older revision		Revision as of 19:01, 22 October 2013
Line 134:		Line 134:
	; where $x is the 1st dimensions size and $y the 2nd.		; where $x is the 1st dimensions size and $y the 2nd.
	; Previous code was: Local $aEmpty2D[1][UBound($aArray, 2)]		; Previous code was: Local $aEmpty2D[1][UBound($aArray, 2)]
			; This way we preserve the arrays' original size.
	Local $aEmpty2D[UBound($aArray, 1)][UBound($aArray, 2)]		Local $aEmpty2D[UBound($aArray, 1)][UBound($aArray, 2)]
	$aArray = $aEmpty2D		$aArray = $aEmpty2D

DatMCEyeBall: /* _ArrayEmpty */

2013-08-24T18:52:39Z

_ArrayEmpty

← Older revision		Revision as of 18:52, 24 August 2013
Line 131:		Line 131:

	Case 2		Case 2
	Local $aEmpty2D[1][UBound($aArray, 2)]		; Edit by DatMCEyeBall - Instead of emptying the array to [1][$x] we empty it to [$x][$y]
			; where $x is the 1st dimensions size and $y the 2nd.
			; Previous code was: Local $aEmpty2D[1][UBound($aArray, 2)]
			Local $aEmpty2D[UBound($aArray, 1)][UBound($aArray, 2)]
	$aArray = $aEmpty2D		$aArray = $aEmpty2D
	EndSwitch		EndSwitch

Guinness: /* _Is1DArray */

2013-01-28T14:56:22Z

_Is1DArray

← Older revision		Revision as of 14:56, 28 January 2013
Line 607:		Line 607:
	}}		}}

	<syntaxhighlight lang = "autoit">		<syntaxhighlight lang = "autoit">Local $sString = 'String'
	~~Global~~ $sString = "String"		Local $a1DArray[2] = [1, 'Row_1']
	~~Global~~ $a1DArray[2] = [1, "Row_1"]		Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]
	~~Global~~ $a2DArray[2][2] = [[1],["Row_1: Col_1", "Row_1: Col_2"]]

	ConsoleWrite("Is the variable $sString a 1D Array?: " & _Is1DArray($sString) & @CRLF)		ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is1DArray($sString) & @CRLF)
	ConsoleWrite("Is the variable $a1DArray a 1D Array?: " & _Is1DArray($a1DArray) & @CRLF)		ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is1DArray($a1DArray) & @CRLF)
	ConsoleWrite("Is the variable $a2DArray a 1D Array?: " & _Is1DArray($a2DArray) & @CRLF)		ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is1DArray($a2DArray) & @CRLF)

	; Check if a variable is a 1D Array.		; Check if a variable is a 1D Array.
	Func _Is1DArray(ByRef $aArray)		Func _Is1DArray(ByRef Const $aArray)
	Return ~~IsArray~~($aArray) And (UBound($aArray, 0) = 1)		Return UBound($aArray) And (UBound($aArray, 0) = 1)
	EndFunc ;==>_Is1DArray		EndFunc ;==>_Is1DArray
	</syntaxhighlight>		</syntaxhighlight>

Guinness: /* _Is2DArray */

2013-01-28T14:55:36Z

_Is2DArray

← Older revision		Revision as of 14:55, 28 January 2013
Line 632:		Line 632:
	}}		}}

	<syntaxhighlight lang = "autoit">		<syntaxhighlight lang = "autoit">Local $sString = 'String'
	~~Global~~ $sString = "String"		Local $a1DArray[2] = [1, 'Row_1']
	~~Global~~ $a1DArray[2] = [1, "Row_1"]		Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]
	~~Global~~ $a2DArray[2][2] = [[1],["Row_1: Col_1", "Row_1: Col_2"]]

	ConsoleWrite("Is the variable $sString a 1D Array?: " & _Is2DArray($sString) & @CRLF)		ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is2DArray($sString) & @CRLF)
	ConsoleWrite("Is the variable $a1DArray a 1D Array?: " & _Is2DArray($a1DArray) & @CRLF)		ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is2DArray($a1DArray) & @CRLF)
	ConsoleWrite("Is the variable $a2DArray a 1D Array?: " & _Is2DArray($a2DArray) & @CRLF)		ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is2DArray($a2DArray) & @CRLF)

	; Check if a variable is a 2D Array.		; Check if a variable is a 2D Array.
	Func _Is2DArray(ByRef $aArray)		Func _Is2DArray(ByRef Const $aArray)
	Return ~~IsArray~~($aArray) And (UBound($aArray, 0) = 2)		Return UBound($aArray) And (UBound($aArray, 0) = 2)
	EndFunc ;==>_Is2DArray		EndFunc ;==>_Is2DArray
	</syntaxhighlight>		</syntaxhighlight>

Guinness: /* _IsInBounds */

2013-01-28T14:52:05Z

_IsInBounds

← Older revision		Revision as of 14:52, 28 January 2013
Line 668:		Line 668:
	EndIf		EndIf

	Func _IsInBounds(ByRef $aArray, $iIndex)		Func _IsInBounds(ByRef Const $aArray, $iIndex)
	Local $iDim = UBound($aArray, 0)		Local $iDim = UBound($aArray, 0)
	If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.		If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.
	Return SetError(1, 0, -1)		Return SetError(1, 0, False)
	EndIf		EndIf
	Return $iIndex < UBound($aArray, 1)		Return $iIndex < UBound($aArray, 1)

Guinness: /* _IsInBounds */

2013-01-28T14:50:50Z

_IsInBounds

← Older revision		Revision as of 14:50, 28 January 2013
Line 656:		Line 656:
	}}		}}

	<syntaxhighlight lang = "autoit">		<syntaxhighlight lang = "autoit">#include <Constants.au3>
	~~Global~~ $aArray[5] = ["Item_1", "Item_2", "Item_3", "Item_4", "Item_5"]
			Local $aArray[5] = ['Item_1', 'Item_2', 'Item_3', 'Item_4', 'Item_5']

	ConsoleWrite(_IsInBounds($aArray, 1) & @CRLF) ; Returns True as the Array has 5 items.		ConsoleWrite(_IsInBounds($aArray, 1) & @CRLF) ; Returns True as the Array has 5 items.
Line 664:		Line 665:

	If _IsInBounds($aArray, 4) Then		If _IsInBounds($aArray, 4) Then
	MsgBox(~~4096~~, '', "Position 4 contains the value: "" & $aArray[4] & '"')		MsgBox($MB_SYSTEMMODAL, '', 'Position 4 contains the value: "' & $aArray[4] & '"')
	EndIf		EndIf

	Func _IsInBounds(ByRef $aArray, $iIndex)		Func _IsInBounds(ByRef $aArray, $iIndex)
	Local $iDim = UBound($aArray, 0)		Local $iDim = UBound($aArray, 0)
	If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.		If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.
	Return SetError(1, 0, -1)		Return SetError(1, 0, -1)
	EndIf		EndIf
	Return $iIndex < UBound($aArray, 1)		Return $iIndex < UBound($aArray, 1)
	EndFunc ;==>_IsInBounds		EndFunc ;==>_IsInBounds</syntaxhighlight>
	</syntaxhighlight>

	[[#top \| ReturnToContents]]		[[#top \| ReturnToContents]]

Jaberwocky6669: Edited snippets to conform to template Snippet Header.

2012-11-13T20:03:11Z

Edited snippets to conform to template Snippet Header.

Show changes