Modify

Opened 13 years ago

Closed 13 years ago

#1806 closed Bug (No Bug)

$iBase in _ArrayUnique() not working properly

Reported by: UEZ Owned by:
Milestone: Component: AutoIt
Version: 3.3.6.1 Severity: None
Keywords: _ArrayUnique() 0-base 1-base Cc:

Description

#include <Array.au3>
Dim $aArray[10] = [1, 2, 3, 4, 5, 1, 2, 3, 4, 5]
_ArrayDisplay($aArray, "$aArray")
$aNewArray = _ArrayUnique($aArray, 1, 0) ;Using Default Parameters
_ArrayDisplay($aNewArray, "$aNewArray represents the 1st Dimension of $aArray")

Should return a 0 based array but it doesn't because of line 1414 in Array.au3
-=> $aArrayTmp = StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim, 1) ;Split the string into an array

Is working with line:
-=> $aArrayTmp = StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim, 2 - $iBase)
but a $iBase check needs to be implemented before to avoid any numbers outside 0,1!

Br,
UEZ

Attachments (0)

Change History (5)

comment:1 Changed 13 years ago by UEZ

Seems _ArrayUnique() is also not working properly with 2D arrays!

Br,
UEZ

comment:2 Changed 13 years ago by UEZ

Here my try for the ArrayUnique function for up to 2D arrays:

; #FUNCTION# ====================================================================================================================
; Name...........: ArrayUnique
; Description ...: Returns the Unique Elements of a 1-dimensional or 2-dimensional array.
; Syntax.........: _ArrayUnique($aArray[, $iBase = 0, oBase = 0, $iCase = 0])
; Parameters ....: $aArray - The Array to use
;                  $iBase  - [optional] Is the input Array 0-base or 1-base index.  0-base by default
;                  $oBase  - [optional] Is the output Array 0-base or 1-base index.  0-base by default
;                  $iCase  - [optional] Flag to indicate if the operations should be case sensitive.
;                  0 = not case sensitive, using the user's locale (default)
;                  1 = case sensitive
;                  2 = not case sensitive, using a basic/faster comparison
; Return values .: Success - Returns a 1-dimensional or 2-dimensional array containing only the unique elements of that Dimension
;                  Failure - Returns 0 and Sets @Error:
;                  0 - No error.
;                  1 - Returns 0 if parameter is not an array.
;                  2 - Array has more than 2 dimensions
;                  3 - Array is already unique
; Remarks .......: Needs the function Max()
; Author ........: UEZ 2010 for 2D-array, Eukalyptus for 1D-array (modified by AspirinJunkie)
; Version .......: 0.90 Build 2010-11-10 Beta
; ===============================================================================================================================
Func ArrayUnique($aArray, $iBase = 0, $oBase = 0, $iCase = 0)
	If Not IsArray($aArray) Then Return SetError(1, 0, 0) ;not an array
	If UBound($aArray, 0) > 2 Then Return SetError(2, 0, 0) ;array is greater than a 2D array
	If UBound($aArray) + $iBase = $iBase + 1 Then Return SetError(3, 0, $aArray) ;array is already unique
	Local $dim = UBound($aArray, 2), $i
	If $dim Then ;2D array
		Local $aUnique[2][$dim]
		Local $j, $k = $oBase, $sTemp, $sHold, $empty = 0
		For $i = $iBase To UBound($aArray) - 1
			For $j = 0 To $dim - 1
				If $aArray[$i][$j] <> "" Then
					$sTemp &= $aArray[$i][$j]
				Else
					$empty += 1
				EndIf
			Next
			If $empty < $dim Then $empty = 0

			If Not StringInStr($sHold, $sTemp, $iCase) And Not $empty Then
				$sHold &= $sTemp
				For $j = 0 To $dim - 1
					$aUnique[$k][$j] = $aArray[$i][$j]
				Next
				ReDim $aUnique[$k + 2][$dim]
				$k += 1
			EndIf
			$sTemp = ""
			$empty = 0
		Next
		ReDim $aUnique[UBound($aUnique) -1][$dim]
		If $oBase Then $aUnique[0][Max(UBound($aUnique, 0) - 2, 0)] = UBound($aUnique) - 1
	Else ;1D array
		Local Static $oD = ObjCreate('Scripting.Dictionary')
		For $i In $aArray
			If Not $oD.Exists($i) Then $oD.Add($i, 0)
		Next
		Local $aUnique = $oD.Keys()
		$oD.RemoveAll
	EndIf
	Return SetError(0, 0, $aUnique)
EndFunc

Func Max($a, $b)
	If $a > $b Then Return $a
	Return $b
EndFunc

I hope it is bug free ;-)

Br,
UEZ

comment:3 Changed 13 years ago by anonymous

Here an update of my ArrayUnique function (some bugs fixed):

; #FUNCTION# =====================================================================================================================
; Name...........: ArrayUnique
; Description ...: Returns the Unique Elements of a 1-dimensional or 2-dimensional array.
; Syntax.........: _ArrayUnique($aArray[, $iBase = 0, oBase = 0, $iCase = 0])
; Parameters ....: $aArray - The Array to use
;                  $iBase  - [optional] Is the input Array 0-base or 1-base index.  0-base by default
;                  $oBase  - [optional] Is the output Array 0-base or 1-base index.  0-base by default
;                  $iCase  - [optional] Flag to indicate if the operations should be case sensitive.
;                  0 = not case sensitive, using the user's locale (default)
;                  1 = case sensitive
;                  2 = not case sensitive, using a basic/faster comparison
; Return values .: Success - Returns a 1-dimensional or 2-dimensional array containing only the unique elements of that Dimension
;                  Failure - Returns 0 and Sets @Error:
;                  0 - No error.
;                  1 - Returns 0 if parameter is not an array.
;                  2 - Array has more than 2 dimensions
;                  3 - Array is already unique
;                  4 - Scripting.Dictionary cannot be created for 1D array unique code
; Remarks .......: Needs the function Max()
; Author ........: UEZ 2010 for 2D-array, Eukalyptus for 1D-array (modified by AspirinJunkie)
; Version .......: 0.91 Build 2010-11-11 Beta
; ================================================================================================================================
Func ArrayUnique($aArray, $iBase = 0, $oBase = 0, $iCase = 0)
	If Not IsArray($aArray) Then Return SetError(1, 0, 0) ;not an array
	If UBound($aArray, 0) > 2 Then Return SetError(2, 0, 0) ;array is greater than a 2D array
	If UBound($aArray) + $iBase = $iBase + 1 Then Return SetError(3, 0, $aArray) ;array is already unique
	Local $dim = UBound($aArray, 2), $i
	If $dim Then ;2D array
		Local $aUnique[2][$dim]
		Local $j, $k = $oBase, $sTemp, $sHold, $empty = 0
		For $i = $iBase To UBound($aArray) - 1
			For $j = 0 To $dim - 1
				If $aArray[$i][$j] <> "" Then
					$sTemp &= $aArray[$i][$j]
				Else
					$empty += 1
				EndIf
			Next
			If $empty < $dim Then $empty = 0
			$sTemp &= Chr(01)
			If Not StringInStr($sHold, $sTemp, $iCase) And Not $empty Then
				$sHold &= $sTemp
				For $j = 0 To $dim - 1
					$aUnique[$k][$j] = $aArray[$i][$j]
				Next
				ReDim $aUnique[$k + 2][$dim]
				$k += 1
			EndIf
			$sTemp = ""
			$empty = 0
		Next
		ReDim $aUnique[UBound($aUnique) -1][$dim]
		If $oBase Then $aUnique[0][Max(UBound($aUnique, 0) - 2, 0)] = UBound($aUnique) - 1
	Else ;1D array
		Local $oD = ObjCreate('Scripting.Dictionary')
		If @error Then Return SetError(4, 0, 0)
		For $i In $aArray
			If Not $oD.Exists($i) Then $oD.Add($i, 0)
		Next
		Local $aUnique = $oD.Keys()
		$oD.RemoveAll
	EndIf
	Return SetError(0, 0, $aUnique)
EndFunc

Func Max($a, $b)
	If $a > $b Then Return $a
	Return $b
EndFunc

Br,
UEZ

comment:4 Changed 13 years ago by anonymous

Here my latest version:

; #FUNCTION# ============================================================================
; Name.............: 	ArrayUnique
; Description ...: 	Returns the Unique Elements of a 1-dimensional or 2-dimensional array.
; Syntax...........: 	_ArrayUnique($aArray[, $iBase = 0, oBase = 0])
; Parameters ...: 	$aArray - The Array to use
;                  			$iBase  - [optional] Is the input Array 0-base or 1-base index.  0-base by default
;                  			$oBase  - [optional] Is the output Array 0-base or 1-base index.  0-base by default
; Return values:	Success - Returns a 1-dimensional or 2-dimensional array containing only the unique elements
;                  			Failure - Returns 0 and Sets @Error:
;                  			0 - No error.
;                  			1 - Returns 0 if parameter is not an array.
;                  			2 - Array has more than 2 dimensions
;                  			3 - Array is already unique
;                  			4 - when source array is selected as one base but UBound(array) - 1 <> array[0] / array[0][0]
;                  			5 - Scripting.Dictionary cannot be created for 1D array unique code
; Author .........: 	UEZ 2010 for 2D-array, Yashied for 1D-array (modified by UEZ)
; Version ........: 	0.96 Build 2010-11-20 Beta
; =======================================================================================
Func ArrayUnique($aArray, $iBase = 0, $oBase = 0)
	If Not IsArray($aArray) Then Return SetError(1, 0, 0) ;not an array
	If UBound($aArray, 0) > 2 Then Return SetError(2, 0, 0) ;array is greater than a 2D array
	If UBound($aArray) = $iBase + 1 Then Return SetError(3, 0, $aArray) ;array is already unique because of only 1 element
	Local $dim = UBound($aArray, 2), $i
	If $dim Then ;2D array
		If $iBase And UBound($aArray) - 1 <> $aArray[0][0] Then Return SetError(4, 0, 0)
		Local $oD = ObjCreate('Scripting.Dictionary')
		If @error Then Return SetError(5, 0, 0)
		Local $i, $j, $k = $oBase, $l, $s, $aTmp, $flag, $sSep = Chr(01)
		Local $aUnique[UBound($aArray)][$dim]
		If Not $oBase Then $flag = 2
        For $i =  $iBase To UBound($aArray) - 1
			For $j = 0 To $dim - 1
				$s &= $aArray[$i][$j] & $sSep
			Next
			If Not $oD.Exists($s) And StringLen($s) > 3 Then
				$oD.Add($s, $i)
				$aTmp = StringSplit(StringTrimRight($s, 1), $sSep, 2)
				For $l = 0 To $dim - 1
					$aUnique[$k][$l] = $aTmp[$l]
				Next
				$k += 1
			EndIf
			$s = ""
		Next
        $oD.RemoveAll
		$oD = ""
		If $k > 0 Then
			If $oBase Then $aUnique[0][0] = $k - 1
			ReDim $aUnique[$k][$dim]
		Else
			ReDim $aUnique[1][$dim]
		EndIf
	Else ;1D array
		If $iBase And UBound($aArray) - 1 <> $aArray[0] Then Return SetError(4, 0, 0)
		Local $sData = '', $sSep = ChrW(160), $flag
		For $i = $iBase To UBound($aArray) - 1
			If Not IsDeclared($aArray[$i] & '$') Then
				Assign($aArray[$i] & '$', 0, 1)
				$sData &= $aArray[$i] & $sSep
			EndIf
		Next
		If Not $oBase Then $flag = 2
		Local $aUnique = StringSplit(StringTrimRight($sData, 1), $sSep, $flag)
	EndIf
	Return SetError(0, 0, $aUnique)
EndFunc   ;==>ArrayUnique

Is this something for you?

Br,
UEZ

comment:5 Changed 13 years ago by Jpm

  • Resolution set to No Bug
  • Status changed from new to closed

There is no error just use

Local $aArray[10] = [9, 2, 3, 4, 6, 1, 2, 3, 4, 6]

and play with the $iBase = 0 or 1

The remaining of the thread shoud go to a "new request" for 2D array support

Guidelines for posting comments:

  • You cannot re-open a ticket but you may still leave a comment if you have additional information to add.
  • In-depth discussions should take place on the forum.

For more information see the full version of the ticket guidelines here.

Add Comment

Modify Ticket

Action
as closed The ticket will remain with no owner.
Author


E-mail address and user name can be saved in the Preferences.

 
Note: See TracTickets for help on using tickets.