Array auf Ursprungsgröße zurücksetzen

**Tweaky**

Hi,
hab da mal eine denke ich für euch einfache Frage die mich immer wieder beschäftigt

Wie setze ich ein Array auf die Ursprungsgröße zurück?

Bisher mache ich es immer wie im Beispiel.
Allerdings habe ich die Größe 2x vergeben.
Dies würde ich gerne vermeiden.

Das muß doch einfacher gehen als ich es immer mache

Spoiler anzeigen

[autoit]

#region ;************ Includes ************
#include <Array.au3>
#endregion ;************ Includes ************
Global $aTest[5]
_ArrayDisplay($aTest, 1)

[/autoit] [autoit][/autoit] [autoit]

_test1()
_test2()

[/autoit] [autoit][/autoit] [autoit]

_test1()
_test2()

[/autoit] [autoit][/autoit] [autoit]

Func _test1()
Dim $aTest[5] ;Array wieder auf die Ursprungsgröße zurücksetzen
_ArrayDisplay($aTest, 2)
$aTest[2] = Random(1, 100, 1)
$aTest[4] = Random(1, 100, 1)
_ArrayAdd($aTest, Random(200, 300, 1))
_ArrayDisplay($aTest, 3)
EndFunc ;==>_test1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _test2()
ConsoleWrite($aTest[2] & @CRLF)
ConsoleWrite($aTest[4] & @CRLF & @CRLF)
EndFunc ;==>_test2

[/autoit]

Yjuq

Zitat

Allerdings habe ich die Größe 2x vergeben.
Dies würde ich gerne vermeiden.

Dann verwende doch stattdessen eine Konstante damit du später im Skript nicht beide Werte ändern musst o.o
Ansonsten würde mir keine andere Möglichkeit einfallen... Allerhöchstens etwas ähnliches was aber auf's selbe hinaus läuft:

[autoit]

#region ;************ Includes ************
#include <Array.au3>
#endregion ;************ Includes ************
Global $aTest[5]
Global $aCopy = $aTest
_ArrayDisplay($aTest, 1)

[/autoit][autoit][/autoit][autoit]

_test1()
_test2()

[/autoit][autoit][/autoit][autoit]

_test1()
_test2()

[/autoit][autoit][/autoit][autoit]

Func _test1()
$aTest = $aCopy ;Array wieder auf die Ursprungsgröße zurücksetzen
_ArrayDisplay($aTest, 2)
$aTest[2] = Random(1, 100, 1)
$aTest[4] = Random(1, 100, 1)
_ArrayAdd($aTest, Random(200, 300, 1))
_ArrayDisplay($aTest, 3)
EndFunc ;==>_test1

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _test2()
ConsoleWrite($aTest[2] & @CRLF)
ConsoleWrite($aTest[4] & @CRLF & @CRLF)
EndFunc ;==>_test2

[/autoit]

**BugFix**

Wenn es kein Problem wäre, die Arrays mit 1-basiertem index zu arbeiten, verwende es so (Anfangsgröße dann 1 größer als gewollt):

[autoit]

Global $array[6] = [6]
;...
;...
ReDim $array[$array[0]]

[/autoit]

**Tweaky**

@Make-Grafik
Hm, scheint gut auszusehen. Denke dies werde ich so umsetzen.

BugFix
Diese Methode hat allerdings den Nachteil, dass man wissen muss, ob es ein 1D oder 2D Array ist, oder?

**BugFix**

Zitat von Tweaky

Diese Methode hat allerdings den Nachteil, dass man wissen muss, ob es ein 1D oder 2D Array ist, oder?

Also du solltest schon immer wissen, ob dein Array 1D oder 2D ist.
Wenn du jetzt einige Arrays verwendest, die du immer wieder zurücksetzen möchtest würde ich eine Funktion empfehlen, die sowohl erstellt, als auch resizt:

[autoit]

#Include <Array.au3>

[/autoit][autoit][/autoit][autoit]

Func _ManageArray($_sName, $_fResize=0, $_iDim1=-1, $_iDim2=-1)
Local Static $dictArr = ObjCreate("Scripting.Dictionary")
Local $aTmp[1]
If Not $_fResize Then
If $_iDim2 = -1 Then
ReDim $aTmp[$_iDim1]
Else
ReDim $aTmp[$_iDim1][$_iDim2]
EndIf
$dictArr.Add($_sName, $aTmp)
Return $aTmp
Else
Return $dictArr.Item($_sName)
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

$aTest1 = _ManageArray("aTest1", 0, 5) ; Erstellen 1D - Array
_ArrayDisplay($aTest1)
ReDim $aTest1[8]
_ArrayDisplay($aTest1)
$aTest1 = _ManageArray("aTest1", 1) ; Resizen
_ArrayDisplay($aTest1)

[/autoit][autoit][/autoit][autoit]

$aTest2 = _ManageArray("aTest2", 0, 5, 3) ; Erstellen 2D - Array
_ArrayDisplay($aTest2)
ReDim $aTest2[8][3]
_ArrayDisplay($aTest2)
$aTest2 = _ManageArray("aTest2", 1) ; Resizen
_ArrayDisplay($aTest2)

[/autoit]

**Tweaky**

Ich weiß schon ob ein Array 1D oder 2D ist, nur finde ich es immer unpraktisch wenn man die Größe mehrfach angeben muß. Es kann ja auch mal sein, dass man ein Array von 1D auf 2D ändert.

Hat deine Funktion einen Nachteil?
Finde sie schonmal gut

**BugFix**

Zitat von Tweaky

Hat deine Funktion einen Nachteil?

Eher einen Vorteil: Du verwendest keine Globalen Variablen zum Speichern der Original-Arrays (Local Static in der Funktion).
Auch wenn da durchaus konträr diskutiert wird, halte ich es zumindest nicht für falsch (und es bringt auch keine Nachteile), wenn man Globale Variablen so wenig wie möglich nutzt.

**Tweaky**

Wenn ich aber

[autoit]

Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration

[/autoit]

verwende muß ich die Variable noch deklarieren. Nehme ich dann Global

**BugFix**

Du deklarierst die Array-Variable Global, die du im Skript verwendest und in der Größe änderst.
Die "Ursprungskopie" liegt im Lokalen Statischen Dictioanary innerhalb der Funktion.

**Tweaky**

Also dann so.

Spoiler anzeigen

[autoit]

#Include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Func _ManageArray($_sName, $_fResize=0, $_iDim1=-1, $_iDim2=-1)
Local Static $dictArr = ObjCreate("Scripting.Dictionary")
Local $aTmp[1]
If Not $_fResize Then
If $_iDim2 = -1 Then
ReDim $aTmp[$_iDim1]
Else
ReDim $aTmp[$_iDim1][$_iDim2]
EndIf
$dictArr.Add($_sName, $aTmp)
Return $aTmp
Else
Return $dictArr.Item($_sName)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Global $aTest1 = _ManageArray("aTest1", 0, 5) ; Erstellen 1D - Array
_ArrayDisplay($aTest1)
ReDim $aTest1[8]
_ArrayDisplay($aTest1)
$aTest1 = _ManageArray("aTest1", 1) ; Resizen
_ArrayDisplay($aTest1)

[/autoit] [autoit][/autoit] [autoit]

Global $aTest2 = _ManageArray("aTest2", 0, 5, 3) ; Erstellen 2D - Array
_ArrayDisplay($aTest2)
ReDim $aTest2[8][3]
_ArrayDisplay($aTest2)
$aTest2 = _ManageArray("aTest2", 1) ; Resizen
_ArrayDisplay($aTest2)

[/autoit]

**BugFix**

Genau.

**Tweaky**

Nachdem ich nun von 3.3.12.0 auf 3.3.14.1 umgestiegen bin habe ich ein Problem mit _ManageArray festgestellt.

Wenn eine Funktion mehrfach aufgerufen wird in der ein Array deklariert wird, so kommt nun ein Fehler.
Mit der 3.3.12.0 hat es noch einwandfrei funktioniert.
Kann man dies beheben oder muss ich alle Skript umändern und die Arrays am Anfang außerhalb der Funktion als Global deklarieren?

Spoiler anzeigen

AutoIt

_test()
;funktioniert






_test()
;Fehler
; : ==> The requested action with this object has failed.:
;$dictArr.Add($_sName, $aTmp)
;$dictArr^ ERROR












Func _test()
	Local $abc = _ManageArray("$abc", 0, 1)
EndFunc   ;==>_test

Alles anzeigen

**eukalyptus**

.Add ergibt einen Error, wenn der Eintrag schon existiert.
Das war schon immer so! 3.3.12.0 hat diese Fehlermeldung anscheinend abgefangen...

Probier mal "$dictArr.Item($_sName) = $aTmp" statt "$dictArr.Add($_sName, $aTmp)"

**Tweaky**

Danke @eukalyptus
Funktioniert nun wieder einwandfrei.

**AspirinJunkie**

Das .Item kann man übrigens auch weglassen.
Kurzform:

AutoIt

$dictArr($_sName) = $aTmp