Array and getting rid of dupes

[nitekram]

I have read and tried to follow along with the ones I have found here but they are not working for me, as maybe I do not understand

This looks like it would work, but does not

Can someone help and either explain why my logic is wrong or help me find a better way

#include <Array.au3>

Dim $aArray[7] = [21,21,22,23,24,25,27], $TempArray[52]
Dim $aArray2 = $aArray
Local $Count = 0
_ArraySort($aArray2)
_ArrayDisplay($aArray2, " DIND STRAIGHT")
    For $i = 0 To UBound($aArray) - 1
        For $j = 0 To UBound($aArray) - 1
            If StringRight($aArray2[$i],2) <> StringRight($aArray[$j],2) Then
                
                $TempArray[$Count] = $aArray[$j]
                MsgBox('', $aArray[$i], $aArray2[$j])
                _ArrayDisplay($TempArray)
                $Count += 1
            EndIf
        Next
    Next
    
    _ArrayDisplay($TempArray)

[Andreik]

OK, but explain what you you want to do?

[nitekram]

OK, but explain what you you want to do?

I want to have another array with no dupes

I got it like this, but still might be a better way.

#include <Array.au3>

Dim $aArray[7] = [21, 21, 22, 23, 24, 25, 27], $TempArray[7]
Dim $aArray2 = $aArray
Local $Count = 0
_ArraySort($aArray2)
_ArrayDisplay($aArray2, " DIND STRAIGHT")
For $i = 0 To UBound($aArray) - 1
    For $j = 0 To UBound($aArray) - 1
        If _ArraySearch($TempArray, $aArray2[$i]) Then
            If @error = 6 Then
                MsgBox('', '', '')
                
                $TempArray[$Count] = $aArray2[$i]
                MsgBox('', $aArray[$i], $aArray2[$j])
                _ArrayDisplay($TempArray)
                $Count += 1
            EndIf
        EndIf
    Next
Next

_ArrayDisplay($TempArray)

[Andreik]

Look in help file about _ArrayFindAll().

[nitekram]

Look in help file about _ArrayFindAll().

That finds them, but what I wanted was a new array with only the ones without a match

Now, the other question, how do I find the one with the matches and put them, including the dupes only into another array

so if i had 21,21,22,22,24,25,27 the new array would contain 21,21,22,22 only

[Andreik]

That finds them, but what I wanted was a new array with only the ones without a match

Now, the other question, how do I find the one with the matches and put them, including the dupes only into another array

so if i had 21,21,22,22,24,25,27 the new array would contain 21,21,22,22 only

#include <Array.au3>

Dim $aArray[7] = [21,21,22,22,24,25,27]
Dim $aNew[7]
$COUNT = 0
For $INDEX = 0 To UBound($aArray)-1
    $FIND = _ArrayFindAll($aArray,$aArray[$INDEX])
    If UBound($FIND) > 1 Then 
        $aNew[$COUNT] = $aArray[$INDEX]
        $COUNT +=1
    EndIf
Next

_ArrayDisplay($aNew)

[nitekram]

#include <Array.au3>

Dim $aArray[7] = [21,21,22,22,24,25,27]
Dim $aNew[7]
$COUNT = 0
For $INDEX = 0 To UBound($aArray)-1
    $FIND = _ArrayFindAll($aArray,$aArray[$INDEX])
    If UBound($FIND) > 1 Then 
        $aNew[$COUNT] = $aArray[$INDEX]
        $COUNT +=1
    EndIf
Next

_ArrayDisplay($aNew)

That works great - thank you very much!

[Bowmore]

Another version for you to look at

#include <Array.au3>

Dim $aArray[7] = [21, 21, 22, 23, 24, 25, 27], $TempArray[7]
Dim $aArray2 = $aArray
Local $Count = 0
_ArraySort($aArray2)
_ArrayDisplay($aArray2, " DIND STRAIGHT")
$TempArray[0] = $aArray2[0]
For $i = 1 To UBound($aArray) - 1
    If $TempArray[$Count] <> $aArray2[$i] Then
        $Count += 1
        $TempArray[$Count] = $aArray2[$i]
    EndIf
Next
ReDim $TempArray[$Count + 1] ; Remove the empty array elements
_ArrayDisplay($TempArray)

[SmOke_N]

_ArrayUnique() ... do a search on the forum for it.

[nitekram]

_ArrayUnique() ... do a search on the forum for it.

I looked at that, but it kept giving me an error about wrong arguments.

[SmOke_N]

I looked at that, but it kept giving me an error about wrong arguments.

Not sure how you managed that:

#include <array.au3>
Dim $aArray[7] = [21,21,22,23,24,25,27]
_ArrayUnique($aArray)
_ArrayDisplay($aArray)

Func _ArrayUnique(ByRef $aArray, $vDelim = '', $iBase = 0, $iCase = 0)
    If Not IsArray($aArray) Then Return SetError(1, 0, 0)
    If $vDelim = '' Then $vDelim = Chr(1)
    Local $sHold = ""
    For $iCC = $iBase To UBound($aArray) - 1
        If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iCase) Then
            $sHold &= $aArray[$iCC] & $vDelim
        EndIf
    Next
    $sHold = StringTrimRight($sHold, StringLen($vDelim))
    If $sHold And $iBase = 1 Then
        $aArray = StringSplit($sHold, $vDelim)
        Return SetError(0, 0, $aArray)
    ElseIf $sHold And $iBase = 0 Then
        $aArray = StringRegExp($sHold & $vDelim, "(?s)(.+?)" & $vDelim, 3)
        Return SetError(0, 0, $aArray)
    EndIf
    Return SetError(2, 0, 0)
EndFunc

[nitekram]

Not sure how you managed that:

#include <array.au3>
Dim $aArray[7] = [21,21,22,23,24,25,27]
_ArrayUnique($aArray)
_ArrayDisplay($aArray)

Func _ArrayUnique(ByRef $aArray, $vDelim = '', $iBase = 0, $iCase = 0)
    If Not IsArray($aArray) Then Return SetError(1, 0, 0)
    If $vDelim = '' Then $vDelim = Chr(1)
    Local $sHold = ""
    For $iCC = $iBase To UBound($aArray) - 1
        If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iCase) Then
            $sHold &= $aArray[$iCC] & $vDelim
        EndIf
    Next
    $sHold = StringTrimRight($sHold, StringLen($vDelim))
    If $sHold And $iBase = 1 Then
        $aArray = StringSplit($sHold, $vDelim)
        Return SetError(0, 0, $aArray)
    ElseIf $sHold And $iBase = 0 Then
        $aArray = StringRegExp($sHold & $vDelim, "(?s)(.+?)" & $vDelim, 3)
        Return SetError(0, 0, $aArray)
    EndIf
    Return SetError(2, 0, 0)
EndFunc

This must have been a version that I did not see - the ones I worked with had _ArraySort($aTemp, 0, 1, $aTemp[0][0], 2, 0)

and I kept getting errors -