Compare and delete data in 2D Array

[Blois]

Guys, I need some help.

I have 1 2D Array where I need to validate if some items are duplicates but with some particulars.

The default of Array is:
Chamado= 123
Contact = No
Communication = No
Chamado= 124
Contact = No
Communication = No
Chamado = 123
Contact = No
Communication = Yes

I need to validate if the Chamado item is duplicate, if so I must delete the first item of it because the last one is the most current.

I created as below but is giving error.

 

Func Valida_Duplicados_Array(Const ByRef $aArray)
    Local $aArray_TEMP = $aArray
    _ArrayDelete($aArray_TEMP, 0)
    For $i = 1 To $aArray[0][0] Step 1
        Local $compare = $aArray[$i][1]
        For $a = 1 To $aArray[0][0] Step 1
            If $a >= UBound($aArray_TEMP, 1) Then
                ExitLoop
            EndIf
            Local $compare2 = $aArray_TEMP[$a][1]
            If $compare = $compare2 And $compare <> "SIM" And $compare <> "NÃO" Then
                If $i >= 1 Then $i -= 1
                For $h = 1 To 3
                    _ArrayDelete($aArray_TEMP, $a)
                Next
                ExitLoop
                _ArrayDisplay($aArray_TEMP)
            EndIf
        Next
        MsgBox(0,"$i - 1 for", $i)
    Next
    _ArrayColDelete($aArray_TEMP, 0)
    Return $aArray_TEMP
EndFunc   ;==>Valida_Duplicados_Array

This is erasing more than the items it should.

[Subz]

Just use _ArrayFindAll then delete all of them except the last entry, you can do this by reversing the loop and skipping the first item.

[jchd]

@Blois, how is your input 2D array organized?

Fill in sample entries:

Local $a = [ _
    [col1, col2, col3], _   ; row 0
    [col1, col2, col3], _   ; row 1
    [col1, col2, col3], _   ; row 2
    [col1, col2, col3] _    ; row N
]