Schnelleres ArrayUnique

**minx**

Kleine aber feine Alternative zu _ArrayUnique (arbeitet mit Dict), wenn es wirklich nur darum geht Duplikate (vor allem aus großen String-Arrays) zu filtern. Nebeneffekt ist, dass das Array sortiert wird.

Getestet nur mit >500k Element String Arrays.

[autoit]

Func _ArrayUniqueEx(ByRef $aIpt)
Local $iUBound = UBound($aIpt)-1, $aOut[$iUBound+1], $iCount = 0
;~ _ArrayDisplay($aIpt)
_ArraySort($aIpt, 0, 0, 0, 0, 1)
;~ _ArrayDisplay($aIpt)
For $n = 0 To $iUBound-1
If $aIpt[$n] <> $aIpt[$n+1] Then
$aOut[$iCount] = $aIpt[$n]
$iCount += 1
EndIf
Next
$aOut[$iCount] = $aIpt[$iUBound]
ReDim $aOut[$iCount+1]
$aIpt = $aOut
EndFunc

[/autoit]

**AspirinJunkie**

Wie hast du es denn getestet, dass es schneller ist als _ArrayUnique?
Bei meinen Tests war es nämlich deutlich langsamer, was ich aufgrund der Sortierung auch nicht sehr verwunderlich finde.

Wenn du eine Funktion für 1D-Arrays suchst welche auf jeden Fall schneller arbeitet dann versuch es doch mal so:

AutoIt

Func _ArrayUnique2(Const ByRef $aA)
    Local $oD = ObjCreate('Scripting.Dictionary')
    For $i In $aA
        $oD($i) = 0
    Next
    Return $oD.Keys()
EndFunc

**Bitnugger**

Weil ich in meinem Script bei _ArrayUnique() eine unerwartete Fehlermeldung bekommen hatte, habe ich dieses Beispiel aus der AutoIt Hilfe getestet... doch zu meinem erstaunen funktioniert dies auch nicht... nicht mehr.

AutoIt

#include <Array.au3>
    Local $aArray[6][2] = [[1, "A"], [2, "B"], [3, "C"], [1, "A"], [2, "B"], [3, "C"]]
    _ArrayDisplay($aArray, "2D array") ; Display the current array.
    Local $aArrayUnique = _ArrayUnique($aArray) ; Use default parameters to create a unique array of the first column.
    _ArrayDisplay($aArrayUnique, "$aArray first column") ; Display the unique array.
    $aArrayUnique = _ArrayUnique($aArray, 1) ; Create a unique array of the second column.
    _ArrayDisplay($aArrayUnique, "$aArray second column") ; Display the unique array.
;~ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Ausgabe:
    >"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Program Files (x86)\AutoIt3\Examples\Helpfile\_ArrayUnique[2].au3" /UserParams
    +>12:13:44 Starting AutoIt3Wrapper v.15.729.1555.1 SciTE v.3.5.4.0 Keyboard:00000407 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64 Environment(Language:0407)
    +> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\Ghost\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Ghost\AppData\Local\AutoIt v3\SciTE
    >Running AU3Check (3.3.14.1) from:C:\Program Files (x86)\AutoIt3 input:C:\Program Files (x86)\AutoIt3\Examples\Helpfile\_ArrayUnique[2].au3
    +>12:13:45 AU3Check ended.rc:0
    >Running:(3.3.14.1):C:\Program Files (x86)\AutoIt3\autoit3.exe "C:\Program Files (x86)\AutoIt3\Examples\Helpfile\_ArrayUnique[2].au3"
    --> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
    "C:\Program Files (x86)\AutoIt3\Include\Array.au3" (2297) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
    If IsInt($aArray[$iBase]) Then
    If IsInt(^ ERROR
    ->12:13:47 AutoIt3.exe ended.rc:1
    +>12:13:47 AutoIt3Wrapper Finished.
    >Exit code: 1 Time: 4.133

Alles anzeigen

**AspirinJunkie** · Bekannter Bug. Soll in 3.3.15.0 gefixt sein.

Bekannter Bug.
Soll in 3.3.15.0 gefixt sein.

**Bitnugger**

Nein, die habe ich installiert... mit der geht es auch nicht.

**AspirinJunkie**

Final - nicht Beta.

Beheben kannst du ihn wenn du in der _ArrayUnique() die Zeilen If IsInt($aArray[$iBase]) Then und Switch VarGetType($aArray[$iBase]) folgendermaßen änderst:

AutoIt

If IsInt($iDims = 1 ? $aArray[$iBase] : $aArray[$iBase][0]) Then
    Switch VarGetType($iDims = 1 ? $aArray[$iBase] : $aArray[$iBase][0])

**Bitnugger**

...

Ops, hat sich erledigt... Danke!