Re: Array
15.04.2003 09:19:57
Ramses
Hallo,was verstehst du denn unter einem eindimensionalen Array ?
Option ExplicitSub Create_OneDimension_Array()
Dim DemoArr As Variant, i As Integer
ReDim DemoArr(500)
For i = 1 To 500
DemoArr(i) = i & " " & Time
Next i
Debug.Print DemoArr(450)
End Sub
Code eingefügt mit Syntaxhighlighter 1.16
Wenn du Namen hast und zusätzliche Werte ist es eigentlich schon mehrdimensional.
Hier ein kleines Beispiel,... weitere Varianten auf Anfrage gerne erhältlich :-)
Du musst deinen String lediglich mit einer Schleife zerlegen und dann den einzelnen Datenfeldern zuweisen:
'Mehrdimensionale Datenzeile erstellen
'Datenzeile definieren
Public Type Datenzeile
'Inhaltsegmente definieren
Seite As Single
Nummer As Single
Text As String
Zeit As Date
Typ As String
End TypeSub Create_Titel()
Dim Titel(500) As Datenzeile
Dim i As Integer
'Schleife
For i = 1 To 5
'Füllen der Datenzeile
Titel(i).Seite = "A"
Titel(i).Nummer = i
Titel(i).Text = "A" & i
Titel(i).Typ = "A" & i + 2
Next i
'Ausdrucken der Titelnummer aus der 2. Zeile des Array's
Debug.Print Titel(2).Nummer
End Sub
'----------------------------
Code eingefügt mit Syntaxhighlighter 1.16
Gruss Rainer