Need help with arrays! (dont add same arrays)

[EmptySpace]

All the time I find it difficult to use arrays becouse all that redim, ubound stuff.. so I used variables alot!

I need func which would allow to add only unique arrays.

#include <Array.au3>
$ArraySTORAGE=_ArrayCreate("")
$ArraySTORAGE[0] = Ubound($ArraySTORAGE) - 1
$whattoadd = 'always other string'
For $i = 1 To UBound($ArraySTORAGE) - 1

If  |$ArraySTORAGE contains| = $whattoadd Then
;;;
Else
_ArrayAdd($ArraySTORAGE ,$whattoadd )
Endif

Next

Should I use  _ArraySearch() ?


Also I want to know how to clear whole array at once without using loop with _ArrayDelete()

+ I want to create 2D array but I dont know how to declare it in begining becouse all my elements would be added during the script (imputs/plits and so on..)

I hope you guys understand me

[DW1]

To remove all repeat information in an array, see _ArrayUnique()

To clear an entire array, just Dim it again (re-declare it)

#include <array.au3>
Dim $aTest[3] = [1,2,3]
_ArrayDisplay($aTest)
Dim $aTest[3]
_ArrayDisplay($aTest)

[jdelaney]

$array = ""
$string = "your string"
$string2 = "your string2"
$array = AddUniqueToArray($array,$string)
_ArrayDisplay($array)
$array = AddUniqueToArray($array,$string)
_ArrayDisplay($array)
$array = AddUniqueToArray($array,$string2)
_ArrayDisplay($array)

; clear the array
$array= ""
Exit
Func AddUniqueToArray($aCallersArray, $sCallersData)

    If IsArray($aCallersArray) Then
        If _ArraySearch($aCallersArray, $sCallersData) = -1 Then
            _ArrayAdd($aCallersArray, $sCallersData)
        EndIf
    Else
        Dim $aCallersArray[1] = [$sCallersData]
    EndIf

    Return $aCallersArray

EndFunc

[EmptySpace]

Thanks for help!

[guinness]

 

To remove all repeat information in an array, see _ArrayUnique()

To clear an entire array, just Dim it again (re-declare it)

#include <array.au3>
Dim $aTest[3] = [1,2,3]
_ArrayDisplay($aTest)
Dim $aTest[3]
_ArrayDisplay($aTest)

Dim is deprecated in AutoIt, use Local or Global. 

[jdelaney]

To remove the Dim from my example would require this change =

Func AddUniqueToArray($aCallersArray, $sCallersData)

    Local $aNewArray = $aCallersArray
    If IsArray($aNewArray) Then
        If _ArraySearch($aNewArray, $sCallersData) = -1 Then
            _ArrayAdd($aNewArray, $sCallersData)
        EndIf
    Else
        Local $aNewArray[1] = [$sCallersData]
    EndIf
    Return $aNewArray

EndFunc

If you try to 'local' the param, the following error occurs:

test.au3 (27) : ==> Can not redeclare a parameter inside a user function.:
Local $aCallersArray[1] = [$sCallersData]
Local ^ ERROR

[trancexx]

Dim is deprecated in AutoIt, use Local or Global. 

danwilli's second Dim is the most correct use of the keyword. It clearly shows when it should be used.

[guinness]

#include <Array.au3>

Example()

Func Example()
    Local $aArray = 0, _
            $sString = 'Your String', _
            $sString_2 = 'Your String 2'

    AddUniqueToArray($aArray, $sString)
    _ArrayDisplay($aArray)

    AddUniqueToArray($aArray, $sString)
    _ArrayDisplay($aArray)

    AddUniqueToArray($aArray, $sString_2)
    _ArrayDisplay($aArray)

    ; Destroy the array.
    $aArray = 0
EndFunc   ;==>Example

Func AddUniqueToArray(ByRef $aArray, $sData)
    If UBound($aArray) Then
        If _ArraySearch($aArray, $sData) = -1 Then
            _ArrayAdd($aArray, $sData)
        EndIf
    Else
        Local $aInt[1] = [$sData]
        $aArray = $aInt
    EndIf
    Return True
EndFunc   ;==>AddUniqueToArray

[guinness]

danwilli's second Dim is the most correct use of the keyword. It clearly shows when it should be used.

Granted, but surely this is more appropriate? This is just for my benefit and no one else.

#include <Array.au3>

Local $aTest[3] = [1, 2, 3]
_ArrayDisplay($aTest)
Local $aTest[3]
_ArrayDisplay($aTest)

[trancexx]

^^ No, it's not.

[guinness]

Hmm...OK.