German Liste mit Arrays

[kwalter]

Hallo zusammen,
irgendwie stehe ich auf dem Schlauch, benötige eine Liste od ein Array mit folgendem Aufbau:
position innerhalb der Liste:
Werte die übergeben werden sollen, wenn ich einlese:
[0] '1,1,14.9,0.0'
[1] '1,2,14.9,18.1'
[2] '1,3,14.9,36.2'
[3] '1,4,14.9,54.3'
[4] '1,5,14.9,72.4'
.... ..................

Wenn ich dann eine Listen oder Array Position abfrage muß ich über die
Regex.Split(",", variable) auf die einzelnen Werte zugreifen können.
Kann mir da jemand helfen, in Delphi ist dies einfach ein Array of String.

Viele Grüße
kwalter

 

[rboeck]

Hallo kwalter,

kurzes Beispiel mit Deinen Zahlen:

Dim X As List
X.Initialize

Dim arr() As Float
arr = Array As Float(1,1,14.9,0.0)
X.Add(arr)
arr= Array As Float(1,2,14.9,18.1)
X.Add(arr)
arr= Array As Float(1,3,14.9,36.2)
X.Add(arr)
arr= Array As Float(1,4,14.9,54.3)
X.Add(arr)
arr= Array As Float(1,5,14.9,72.4)
X.Add(arr)

Log(X.Get(1))

Dim arr2() As Float 'bspw. an anderes Array weitergeben...

arr2=x.Get(1) ' zweites Array

Log(arr2(2)) 'hier kontrollieren

Regex.Split wäre etwas zu kompliziert, diese Lösung ist sicher einfacher...

Grüße
Reinhard

 

[klaus]

... in Delphi ist dies einfach ein Array of String.

In B4A auch.
Das könnte so aussehen:

Dim Wert(5) As String

Wert(0) = "1,1,14.9,0.0"
Wert(1) = "1,2,14.9,18.1"
Wert(2) = "1,3,14.9,36.2"
Wert(3) = "1,4,14.9,54.3"
Wert(4) = "1,5,14.9,72.4"

Je nachdem wo die Daten her kommen könntest Du auch ein zweidimensionales Array mit den Werten erstellen.

Dim Wert(5, 4) As Double

Wert(0, 0) = 1
Wert(0, 1) = 1
Wert(0, 2) = 14.9
Wert(0, 3) = 0

Wert(1, 0) = 1
Wert(1, 1) = 2
Wert(1, 2) = 14.9
Wert(1, 3) = 18.1

Beste Grüsse.