Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    [VB6] Concatenare Array

    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

  2. #2
    Utente di HTML.it
    Registrato dal
    Mar 2003
    Messaggi
    78
    Spiegati meglio!
    Cosa vuoi fare?
    Sei sicuro che la tua soluzione non risieda in una matrice?
    La cosa che serve meno è quella che funziona meglio!!

  3. #3
    Moderatore di Javascript L'avatar di ciro78
    Registrato dal
    Sep 2000
    residenza
    Napoli
    Messaggi
    8,514
    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
    Ciro Marotta - Programmatore JAVA - PHP
    Preferisco un fallimento alle mie condizioni che un successo alle condizioni altrui.


  4. #4
    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

  5. #5
    Moderatore di Javascript L'avatar di ciro78
    Registrato dal
    Sep 2000
    residenza
    Napoli
    Messaggi
    8,514
    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

    codice:
    dim array(i) as tipo_dato
    i valori
    codice:
    array(1)= valore....
    array(2)= valore...
    etc
    ora se non ti interessa ordinarli basta che scrivi

    codice:
    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!
    Ciro Marotta - Programmatore JAVA - PHP
    Preferisco un fallimento alle mie condizioni che un successo alle condizioni altrui.


  6. #6
    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

    codice:
    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
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

  7. #7
    Grazie!!
    Vaskoz

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.