VB-Homepage Tipp 271

zwei dimensionale Arrays

Haben Sie schon mit Arrays gearbeitet?
Normalerweise definiert man ein Array ja z.Bsp.    

Dim MeinArray(99) As String

Dies würde ein Array für 100 Einträge definieren, die gleichzeitig als Zeichenketteneinträge definiert wurden.

Möchten Sie einen Wert zuweisen gilt 

Meinarray(0) = "Das ist Wert 1"
Meinarray(49) = "Das ist Wert 50"

Genau so einfach auch das Auslesen der Werte
Wert1 = Meinarray(0)
Wert50 = Meinarray(49)

Soviel nur zum Verständnis.

Was aber sind nun zweidimensionalen Arrays?

Dim MeinArray(99,5) As String

Dies erstellt wieder ein Array, daß in der ersten Ebene für 100 Einträge   vorbereitet ist.
Gleichzeitig erhält aber jeder dieser Einträge noch fünf Unterpunkte.

Zum besseren Nachvollziehen verringern wir unser zweidimensionales Array und machen es visuell sichtbar.

Dim MeinArray(3,3) As String

MeinArray(0,0) MeinArray(0,1) MeinArray(0,2) MeinArray(0,3)
MeinArray(1,0) MeinArray(1,1) MeinArray(1,2) MeinArray(1,3)
MeinArray(2,0) MeinArray(2,1) MeinArray(2,2) MeinArray(2,3)
MeinArray(3,0) MeinArray(3,1) MeinArray(3,2) MeinArray(3,3)

Um einen Wert zuzuweisen müßte man dann angeben : 

Meinarray(0,0) = "Das ist der erste Eintrag im ersten Wert "  
Meinarray(2,1) = "Das ist der zweite Eintrag im dritten Wert "

Und um einen Wert auszulesen,

Wert1_Eintrag1 = Meinarray(0,0)
Wert3_Eintrag2 = Meinarray(2,1)

Vorteilhaft ist dies vor allem durch die Möglichkeit, zusammengehörende Werte in einem Arraywert abzulegen.

Name = Meinarray(0,0) ; Vorname = Meinarray(0,1) ; Plz = Meinarray(0,2) usw.

Außerdem spart man sich einige Schreibarbeit.

... und so ganz zum Schluß, man kann den Spaß auch noch ausbauen und drei und mehr dimensionale Arrays erstellen.


Tipp-Download

Quelle :

Zurück zur Übersichtsseite