[VB6] Concatenare Array

[Vaskoz]

Ciao, vi prego aiutatemi! Ho bisogno di sapere se è possibile concatenare Array in vb.
Esempio:
lista1 = (1,2,3)
lista2 = (4,5,6)
lista3 = (1,2,3,4,5,6)
Ho bisogno di sapere se esiste un comando in grado di ottenere lista3 a partire da lista1 e lista2.
Grazie
Vaskoz

[mcathor]

Spiegati meglio!
Cosa vuoi fare?
Sei sicuro che la tua soluzione non risieda in una matrice?

[ciro78]

si che esiste ma li devi ordinare.
oppure potresti trovare il minimo di ognuno di quei valori e poi inserirli in una nuova matrice.

magari però ci sono soluzioni molto + semplici

[Vaskoz]

ok....
premetto che ho una minima conoscenza di vb, ma me la cavo con altri linguaggi.
allora in jscript puoi concatenare array con il codice
array.concat(array1)
in sostanza aggiunge l'array1 nell'array nelle posizioni finali
è quello che vorrei ottenere in vb, ma non so come fare.
mi spiego meglio: vorrei aggiungere dei dati in un'array già esistente, ma questi dati sono contenuti in un altro array.
spero di essere stato chiaro!
ciao e grazie Vaskoz

[ciro78]

sei chiaro ma non preciso

un conto è ottenere

lista3 = (1,2,3,4,5,6)

un altro

lista3 = (1,2,4,3,5,6)


il primo è ordinato il secondo no

un array lo si definisce in questo modo

dim array(i) as tipo_dato

i valori

array(1)= valore....
array(2)= valore...
etc

ora se non ti interessa ordinarli basta che scrivi

list3(1)=list1(1)
list3(1)=list1(2)
list3(1)=list1(3)
list3(1)=list2(1)
list3(1)=list2(2)
list3(1)=list3(3)

se poi li devi ordinare il discorso è diverso....

ciao!

[xegallo]

Originariamente inviato da ciro78
sei chiaro ma non preciso

un conto è ottenere

lista3 = (1,2,3,4,5,6)

un altro

lista3 = (1,2,4,3,5,6)

mi sa che non hai capito tu

in sostanza aggiunge l'array1 nell'array nelle posizioni finali

ad ogni modo prova cosi

Private Sub Form_Load()
    Dim i As Integer
    Dim a() As Long
    Dim b() As Long
    Dim c() As Long
    
    ReDim a(0)
    ReDim b(0)
    ' per riempire gli array
    For i = 0 To 100
        If i Mod 2 = 0 Then
            ReDim Preserve a(UBound(a) + 1)
            a(UBound(a)) = i
        Else
            ReDim Preserve b(UBound(b) + 1)
            b(UBound(b)) = i
        End If
    Next i
    
    c = ConcatArray(a(), b())
End Sub


Private Function ConcatArray(Arr1() As Long, Arr2() As Long) As Long()
Dim i As Long
Dim ArrTemp() As Long
    ReDim ArrTemp(0)
    For i = LBound(Arr1) To UBound(Arr1)
        ReDim Preserve ArrTemp(UBound(ArrTemp) + 1)
        ArrTemp(UBound(ArrTemp)) = Arr1(i)
    Next i
    For i = LBound(Arr2) To UBound(Arr2)
        ReDim Preserve ArrTemp(UBound(ArrTemp) + 1)
        ArrTemp(UBound(ArrTemp)) = Arr2(i)
    Next i
    ConcatArray = ArrTemp()
End Function

[Vaskoz]

Grazie!!
Vaskoz