Mehrere single Arrays (horinzontal) in ein singel Array füllen.

  • VB6

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Alex73.

    Mehrere single Arrays (horinzontal) in ein singel Array füllen.

    Hallo,

    ich habe 3 Single Arrays die mit Daten gefüllt sind.
    Feld1
    Feld2
    Feld3

    Nun möchte ich aber diese 3 Arrays in ein single Array füllen. Aber nicht ein Array nach dem anderen sondern quasi
    horizontal.

    Feld1(1) = sArray(1)
    Feld2(1) = sArray(2)
    Feld3(1) = sArray(3)
    Feld1(2) = sArray(4)
    Feld2(2) = sArray(5)
    Feld3(2) = sArray(6)
    Feld1(3) = sArray(7)

    wie muss die Schleife aussehen damit ich das hinbekomme?
    Wäre nett wenn Ihr mir da helfen könntet.

    Gruß
    Alex
    Hallo Neptun,

    meine Arrays fangen mit 1 an.
    Würde dann so aussehen, oder?

    Z1 = LBound(sArray)
    For i = LBound(Feld1) To UBound(Feld1)
    Feld1(i) = sArray(Z1 + 1)
    Feld2(i) = sArray(Z1 + 2)
    Feld3(i) = sArray(Z1 + 3)
    Z1 = Z1 + 3
    Next i

    Gruß
    Alex
    Hallo Alex,
    wenn du die Arrays bei 1 beginnend angelegt hast
    (also z.B. so: Dim Feld1(1 to 100) ), kannst du den
    von mir geposteten Code unverändert übernehmen. Wenn
    die Arrays aber bei 0 anfangen und du Daten ab Index 1
    einträgst, dann so:

    Visual Basic-Quellcode

    1. Z1 = 1
    2. For i = 1 To UBound(Feld1)
    3. Feld1(i) = sArray(Z1)
    4. Feld2(i) = sArray(Z1 + 1)
    5. Feld3(i) = sArray(Z1 + 2)
    6. Z1 = Z1 + 3
    7. Next i
    Gruss,

    Neptun
    Halllo Renati,

    da bin ich mir noch nicht ganz sicher.
    Wäre sicher besser die 3 singel Arrays in ein zweidimensionales Array zu füllen.
    Und dann in das große single Array. Würde wohl etwas an Rechenzeit einbüßen, oder?

    Nochdazu werden die Daten im großen single Array ach der verarbeitung in einer DLL auch weider
    in einem großen singel Array zurückgegeben.
    Muss also die Daten wieder mit einer Schleife in 3 single Arrays füllen, oder eben in ein zweidimensionales Array.

    Welchen Weg würdest Du (Ihr) gehen?

    Gruß
    Alex