Element aus Array löschen

[vitalinka]

Hallo!
Wie kann ich ein Element aus Array Löschen?

Code: Alles auswählen

a = array(array(1,2,3), array("a","s","d"), array(4,5,6))

Es sind jetzt 3 Elemente im Array. Mittlere soll gelöscht werden. Es bleiben nur 2 Elemente. Zahlen Arrays.
Suche hat Leider nichts ergeben. Dimensionierung habe ich schon verstanden, aber wie dabei ich gezielt unbrauchbare Daten lösche?
MfG

[DPunch]

Servus

Ohne weiteres geht das nicht, Du musst eine Kopie des Arrays ohne das entsprechende Element erstellen

Code: Alles auswählen

Sub Main
	a = array(array(1,2,3), array("a","s","d"), array(4,5,6))
	DeleteIndexFromArray(a,-1)
End Sub

Sub DeleteIndexFromArray(aArray, nIndexToDelete as Integer)
	nUpperBound = -1
	aNewArray = Array()
	For i=0 To UBound(aArray)
		If i <> nIndexToDelete Then
			nUpperBound = nUpperBound + 1
			ReDim Preserve aNewArray(nUpperBound)
			aNewArray(nUpperBound) = aArray(i)
		End If
	Next i
	aArray = aNewArray
End Sub