Array befüllen, Unterschied (0,0) / (0)(0)
01.07.2015 17:09:11
EcKy
Array(0) = Array(2, 3, 7, 5, 1)
Damit erhalte ich dann ein Array, welches im Überwachungsfenster dann foldenden Aufbau hat:
Array
Array(0)
Array(0)(0) Wert:2
Array(0)(1) Wert:3
Array(0)(2) Wert:7
Array(0)(3) Wert:5
Array(0)(4) Wert:1
Array
Array(0)
Array(0,0) Wert:2
Array(0,1) Wert:3
Array(0,2) Wert:7
Array(0,3) Wert:5
Array(0,4) Wert:1
Array (0,0) = 2
Array (0,1) = 3
etc.
Aufgefallen ist mir das, als ich versuchte, eine Collection in ein Array zu wandeln, um dieses _ dann weiterzuverarbeiten. Die folgende Funktion produziert dabei ein Array nach dem zweiten Aufbauschema, mit dem dann z.B. Sortierfunktionen nicht gehen:
Function CollectionToArray(C As Collection) As Variant()
Dim A() As Variant
ReDim A(0 To C.Count - 1)
Dim i As Integer
For i = 1 To C.Count
A(i - 1) = C.Item(i)
Next
CollectionToArray = A
End Function
Über Infos würde ich mich freuen.
VG, EcKy
Anzeige