How to delete duplicates of in an Array?

[Dgameman1]

I know I can use _ArrayUnique to give back the Unique arrays, but I want to actually delete both of the duplicates if there's more than one at all.

Local $Usernames[3] = ["Dan", "Bob", "Billy"]
Local $blackListUsernames[2] = ["Dan", "Scott"]
_ArrayAdd($Usernames, $blackListUsernames) ;combines the 2 arrays into 1.
$Usernames = _ArrayUnique($Usernames) ;Uniques the array.

This issue with this, is that $Usernames will contain Dan, Bob, Billy, Scott.

 

I can't seem to find a way to make it so that if there are any duplicates, it'll just remove both of them, for example, I want $Usernames to have just Bob, Billy, Scott.

There will only be either two or one of the same value. Never more than 2.

[AutoBert]

Do it like this:

#include <Array.au3>

Local $Usernames[3] = ["Dan", "Bob", "Billy"]
Local $blackListUsernames[2] = ["Dan", "Scott"]
For $i=UBound($Usernames)-1 To 0 Step -1
    $iFound=_ArraySearch($blackListUsernames,$Usernames[$i])
    If Not @error Then
        _ArrayDelete($Usernames,$i)
        _ArrayDelete($blackListUsernames,$iFound)
    EndIf
Next
_ArrayDisplay($Usernames)
_ArrayDisplay($blackListUsernames)

_ArrayAdd($Usernames, $blackListUsernames) ;combines the 2 arrays into 1.
_ArrayDisplay($Usernames)

For arrays generated from web etc. both arrays have to be unique before using the For..Next loop:

#include <Array.au3>

Local $Usernames[4] = ["Dan", "Bob", "Billy","Bob"]
$Usernames = _ArrayUnique($Usernames) ;Uniques the array.
_ArrayDelete($Usernames,0)
Local $blackListUsernames[3] = ["Dan", "Scott", "Dan"]
$blackListUsernames = _ArrayUnique($blackListUsernames) ;Uniques the array.
_ArrayDelete($blackListUsernames,0)
For $i=UBound($Usernames)-1 To 0 Step -1
    $iFound=_ArraySearch($blackListUsernames,$Usernames[$i])
    If Not @error Then
        _ArrayDelete($Usernames,$i)
        _ArrayDelete($blackListUsernames,$iFound)
    EndIf
Next
_ArrayDisplay($Usernames)
_ArrayDisplay($blackListUsernames)

_ArrayAdd($Usernames, $blackListUsernames) ;combines the 2 arrays into 1.
_ArrayDisplay($Usernames)

 

Edited May 2, 2016 by AutoBert

[mikell]

A funny and fast way using Scripting.Dictionary 

#include <Array.au3>

Local $a[4] = ["Dan", "Bob", "Billy", "Bob"]
Local $b[3] = ["Dan", "Scott", "Dan"]
; create the dictionaries
Local $sda = ObjCreate("Scripting.Dictionary")
Local $sdb = ObjCreate("Scripting.Dictionary")
; populate them
For $i In $a   
    $sda.Item($i) 
Next
For $i In $b
    $sdb.Item($i)
Next
; list the wanted items
Local $sdc = ObjCreate("Scripting.Dictionary")
For $i In $a
    If not $sdb.Exists($i) Then $sdc.Item($i)
Next
For $i In $b
    If not $sda.Exists($i) Then $sdc.Item($i)
Next
; get the result array
$aResult = $sdc.Keys()
_ArrayDisplay($aResult, "$aResult")

 

Edited May 2, 2016 by mikell

[jchd]

It doesn't work when, for instance, $b is ["Dan", "Scott", "Dan"] because "Dan" remains in the final array.

Edited May 2, 2016 by jchd
Was fixed in the meantime

[jguinch]

Another one, based on Scripting.Dictionary :

#Include <Array.au3>

Local $a = ["Dan", "Bob", "Billy", "Dan", "Scott"]
Local $aUniqs = _ArrayRemoveDuplicates($a)
_ArrayDisplay($aUniqs)


Func _ArrayRemoveDuplicates($aArray)
    Local $oDictionary = ObjCreate("Scripting.Dictionary")

    For $i = 0 To UBound($aArray) - 1
        $oDictionary.Item($aArray[$i]) += 1
    Next
    
    For $vVal In $oDictionary.Keys()
        If $oDictionary.Item($vVal) > 1 Then 
            $oDictionary.Remove($vVal)
        EndIf
    Next

    Return $oDictionary.Keys()
EndFunc

 

Edited May 2, 2016 by jguinch
modification to use $oDictionary.Remove

[mikell]

@jchd
I saw this and edited immediately 

[mikell]

@jguinch

<snip>
Your comment below is right, it's definitely not my day 
 

Edited May 2, 2016 by mikell

[jguinch]

No Mikell, that's not the same result. Look at what the OP asked for  : I want $Usernames to have just Bob, Billy, Scott.

[iamtheky]

#Include <Array.au3>

Local $a = ["Dan", "Bob", "Billy", "Dan", "Scott" , "Dan" , "Bob" , "Bob" , "Dan"]

_ArraySort($a)

_ArrayDisplay(stringsplit(StringRegExpReplace(StringRegExpReplace(StringRegExpReplace(_ArrayToString($a , ",") , "(\w+?),\g1" , "$1") , "(\w+?),\g1" , "") , ",+" , ",") , "," , 2))

 

*And Btw, if you dont fix my arraydisplay with code, and instead just reply: "but it only works for that array AND looks ridiculous."  Then you are pointing out many obvious things, none of which get us any closer to a working one line display from a sorted array.

Edited May 2, 2016 by iamtheky

[iamtheky]

This one is.......less wrong, but still operates by sheer luck.

#Include <Array.au3>

Local $a = ["Dan", "Bob", "Billy", "Dan", "Scott" , "Dan" , "Bob" , "Dan"]

_ArraySort($a)

msgbox(0, '' , StringRegExpReplace(StringRegExpReplace (_ArrayToString($a , ",") , "(\b\w+\b)\W\1" , "") , ",+" , ","))

 

[mikell]

iamtheky,
The last one doesn't work if the number of duplicates is odd
Try this one :

Msgbox(0,"", StringRegExpReplace(_ArrayToString($a, ","), '(\b\w+\b),(\1,?)+', "") )