_ArrayUniq() Problem

[Ahmed97]

Hello, i got a script here
 

#include <array.au3>

Dim $x[1]

For $i = 1 To 15
_ArrayAdd($x, $i)
Next
_ArrayAdd($x, "12")
_ArrayAdd($x, "10")
_ArrayAdd($x, "7")

$xUNQ = _ArrayUnique($x, 1)
_ArrayDisplay($xUNQ)

;~ _ArrayDisplay($x)

this seems work well, but when i make "$iDimension = 2" i get error

Question1: why i get error whenever i try to make "$iDimension = 2"
Question2: how to make the array without the first ROW that contains the number of elements?

Thanks,

Edit;

OS: Win 7 Ultimate x64

Au3 Version: 3.3.8.1

Updated to Version: 3.3.10.2 and when i open the script nth happens if "$iDimension = 2"

Edited April 20, 2014 by AhmedVirus

[Melba23]

AhmedVirus,

The code you posted will not function as you think it will as you are adding numeric values in the loop and string values subsequently. AutoIt sees these as different values and so will return both 7 and "7" as "unique". The following code runs fine for me in 3.3.10.2:

#include <array.au3>

Global $x[1] ; Dim is deprecated

For $i = 1 To 15
    _ArrayAdd($x, $i) ; These are numeric values
Next
_ArrayAdd($x, 12) ; As are these when used without the ""
_ArrayAdd($x, 10)
_ArrayAdd($x, 7)

_ArrayDisplay($x)

$xUNQ = _ArrayUnique($x, 1)

_ArrayDisplay($xUNQ)

As I no longer have 3.3.8.1 on this machine I have no idea why you had the error - the code certainly runs cleanly in the current release (and with a subtle change in the latest Beta as well).

M23

P.S. I would be grateful I would change your display name - we do not support malware here and your current nick is not acceptable.

[guinness]

I can't invoke that error. Care to provide a re-producer that does please.

[Ahmed97]

  On 4/20/2014 at 7:39 AM, Melba23 said:

AhmedVirus,

The code you posted will not function as you think it will as you are adding numeric values in the loop and string values subsequently. AutoIt sees these as different values and so will return both 7 and "7" as "unique". The following code runs fine for me in 3.3.10.2:

#include <array.au3>

Global $x[1] ; Dim is deprecated

For $i = 1 To 15
    _ArrayAdd($x, $i) ; These are numeric values
Next
_ArrayAdd($x, 12) ; As are these when used without the ""
_ArrayAdd($x, 10)
_ArrayAdd($x, 7)

_ArrayDisplay($x)

$xUNQ = _ArrayUnique($x, 1)

_ArrayDisplay($xUNQ)

As I no longer have 3.3.8.1 on this machine I have no idea why you had the error - the code certainly runs cleanly in the current release (and with a subtle change in the latest Beta as well).

M23

P.S. I would be grateful I would change your display name - we do not support malware here and your current nick is not acceptable.

 

Thanks M23 this worked fine, so all the problem were in the ( "" )..

What about displaying the only repeated elements? i mean displaying "12 & 10 & 7" ??

and about my nickname it's just a nickname, but okaii i will change it

  On 4/20/2014 at 7:40 AM, guinness said:

I can't invoke that error. Care to provide a re-producer that does please.

The error gone with the new version 3.3.10.2

[Melba23]

Ahmed97,

Thanks for changing your nick.

You can get just the multiple entries like this:

#include <Array.au3>

Global $x[1] ; Dim is deprecated

For $i = 1 To 15
    _ArrayAdd($x, $i) ; These are numeric values
Next
_ArrayAdd($x, 12) ; As are these when used without the ""
_ArrayAdd($x, 10)
_ArrayAdd($x, 7)

; Get the unique entries
$xUNQ = _ArrayUnique($x)

; Now loop through the main array
For $i = UBound($x) - 1 To 0 Step -1
    ; Can we find the match in the unique array?
    $iMatch = _ArraySearch($xUNQ, $x[$i], 1)
    If $iMatch <> - 1 Then
        ; If so then dlete from both arrays
        ConsoleWrite("Deleting: " & $x[$i] & @CRLF)
        _ArrayDelete($x, $i)
        _ArrayDelete($xUNQ, $iMatch)
    EndIf
Next

; And we should end up with just the multiple entries
_ArrayDisplay($x, "Multiple", Default, 8)

All clear?

M23

[Ahmed97]

  On 4/20/2014 at 3:38 PM, Melba23 said:

Ahmed97,

Thanks for changing your nick.

You can get just the multiple entries like this:

#include <Array.au3>

Global $x[1] ; Dim is deprecated

For $i = 1 To 15
    _ArrayAdd($x, $i) ; These are numeric values
Next
_ArrayAdd($x, 12) ; As are these when used without the ""
_ArrayAdd($x, 10)
_ArrayAdd($x, 7)

; Get the unique entries
$xUNQ = _ArrayUnique($x)

; Now loop through the main array
For $i = UBound($x) - 1 To 0 Step -1
    ; Can we find the match in the unique array?
    $iMatch = _ArraySearch($xUNQ, $x[$i], 1)
    If $iMatch <> - 1 Then
        ; If so then dlete from both arrays
        ConsoleWrite("Deleting: " & $x[$i] & @CRLF)
        _ArrayDelete($x, $i)
        _ArrayDelete($xUNQ, $iMatch)
    EndIf
Next

; And we should end up with just the multiple entries
_ArrayDisplay($x, "Multiple", Default, 8)

All clear?

M23

 

Thanks M23 

it works perfectly.

i just need to read the code more and more to understand it well cuz i haven't used ubound before.

 

Thanks again

[Melba23]

Ahmed97,

Glad I could help. Please ask if you have any questions about the code.

M23