vba excel: ordinare array di struttura

[karug64]

Salve a tutti.

Ho un array di struttura così composto:

Codice: Seleziona tutto

Public Type new2

    parola As String
    lun_parola As Integer
    or_ve As String
    Riga As Integer
    rig_iniziale As Integer
    rig_finale As Integer
    colonna As Integer
    col_iniziale As Integer
    col_finale As Integer
    testo As String
    pos_parola() As Long
    provata() As String
   
End Type

Public new_cruci2() As new2

C'è modo di ordinarlo su uno dei campi (per esempio su new_cruci2.lun_parola) ?

Grazie

[Anthony47]

Si, penso si possa fare una bubble sort anche su questa struttura... Ti chiedo pero' di pubblicare quanto serve per creare un array di quel type per provare e collaudare il codice di dettaglio.

Ciao

[karug64]

Ecco il file col codice che popola l'array di tipo struttura:

http://www.filedropper.com/cruci

(tra l'altro è presente lo schema con cui ho provato la routine del post

http://www.pc-facile.com/forum/viewtopic.php?f=26&t=107444)

Dovrei ordinarlo sul campo new_cruci2.lun_parola


Grazie

P.S. non fare caso alla "purezza del codice" ..... l'importante è che funzioni

[Anthony47]

Ma io devo riuscire a generare un array contenente quella struttura dati, con questo materiale non ci riesco...
Comunque la sort in ordine crescente di lun_parole dovresti poterla farla con questo codice:

Codice: Seleziona tutto

Dim temp As new2
For Increm = LBound(new_cruci2) To UBound(new_cruci2) - 1
    For i = Increm + 1 To UBound(new_cruci2)
        If new_cruci2(Increm).lun_parola > new_cruci2(i).lun_parola Then
            temp = new_cruci2(i)
            new_cruci2(i) = new_cruci2(Increm)
            new_cruci2(Increm) = temp
        End If
    Next i
Next Increm


Ciao

[karug64]

Ciao Anthony.
Ho usato il tuo codice che ovviamente funziona perfettamente.

Per quanto riguarda il codice, quello che ho postato permette, alla pressione del bottone presente sul foglio, di leggere le coordinate delle parole presenti nello schema memorizzandole in new_cruci2 (che poi andava ordinato = tuo suggerimento).

Grazie

[Anthony47]

Ah ah, io credevo che si parlasse della lunghezza delle parole estratte dall'elencone, che proprio non c'era...

[karug64]

C'era la lunghezza delle parole da sistemare nella griglia (che poi è il dato su cui la tua routine ordina). Grazie ancora e alla prossima (... Imminente .... )

[karug64]

Comunque la sort in ordine crescente di lun_parole dovresti poterla farla con questo codice:

Codice: Seleziona tutto

Dim temp As new2
For Increm = LBound(new_cruci2) To UBound(new_cruci2) - 1
    For i = Increm + 1 To UBound(new_cruci2)
        If new_cruci2(Increm).lun_parola > new_cruci2(i).lun_parola Then
            temp = new_cruci2(i)
            new_cruci2(i) = new_cruci2(Increm)
            new_cruci2(Increm) = temp
        End If
    Next i
Next Increm


Ciao Anthony.
C'e' modo di modificare questa tua routine per ordinare l'array di struttura su due valori ?

Ordinare per

new_cruci2(Increm).or_ve e per new_cruci2(Increm).lun_parola in modo da avere alle fine l'array ordinato con prima tutte le parole "O" a loro volta ordinate per lunghezza (dalla più lunga alla più corta) e poi tutte le parole "V" dalla più lunga alla più corta ?

Grazie

[Anthony47]

In una situazione normale, ordinando prima per la seconda condizione e poi per la prima condizione si otterrebbe l'ordinamento voluto; prova se funziona anche con il tuo Type. Il codice:

Codice: Seleziona tutto

Dim temp As new2
'Ordina per Lun_parola
For Increm = LBound(new_cruci2) To UBound(new_cruci2) - 1
    For i = Increm + 1 To UBound(new_cruci2)
        If new_cruci2(Increm).lun_parola > new_cruci2(i).lun_parola Then
            temp = new_cruci2(i)
            new_cruci2(i) = new_cruci2(Increm)
            new_cruci2(Increm) = temp
        End If
    Next i
Next Increm
'Ordina per Or_ve
For Increm = LBound(new_cruci2) To UBound(new_cruci2) - 1
    For i = Increm + 1 To UBound(new_cruci2)
        If new_cruci2(Increm).or_ve > new_cruci2(i).or_vw Then
            temp = new_cruci2(i)
            new_cruci2(i) = new_cruci2(Increm)
            new_cruci2(Increm) = temp
        End If
    Next i
Next Increm


Se non funziona vedremo altre soluzioni.

Ciao

[karug64]

Ok. Funziona. Grazie