🚀 go-pugleaf

Dopo precedenti elaborazioni, in un array ("output") a 10 elementi mi 
trovo memorizzato questo:

  output(1) = "minnie"
  output(2) = ""
  output(3) = "pippo"
  output(4) = ""
  output(5) = ""
  output(6) = "pippo"
  output(7) = ""
  output(8) = "minnie"
  output(9) = ""
  output(10) = ""

  Ora, dovrei inserire nell' array "combinazioni_trovate", solo gli 
elementi non vuoti e non ripetendo quelli gi� inseriti.

  In conclusione, alla fine, dovrei trovarmi questa situazione:

  combinazioni_trovate(1) = "minnie"
  combinazioni_trovate(2) = "pippo"

  Ho scritto questo codice:

Public combinazioni_trovate, combinazioni_inserite
Public num_nuovo_inserimento, num_combinazioni_inserite

For scan = 1 To 10
     num_combinazioni_inserite = Form1.List1.ListCount
     num_nuovo_inserimento = num_combin_inserite + 1

     If output(scan) <> "" Then
         If num_combinazioni_inserite = 0 Then
               ReDim combinazioni_trovate(num_combinazioni_inserite + 1)
               combinazioni_trovate(num_nuovo_inserimento) = output(scan)
         ElseIf num_combinazioni_inserite <> 0 Then
'--- Verifico che la combinazione non ci sia gi� --------------------
                 ce_gia = 0
             For verifica = 1 To num_combinazioni_inserite
                 If combinazioni_trovate(verifica) = output(scan) Then
                     ce_gia = ce_gia + 1
                     GoTo gia_inserita
                 End If
             Next verifica
                 If ce_gia = 0 Then
                ReDim combinazioni_trovate(num_combinazioni_inserite + 1)
               combinazioni_trovate(num_nuovo_inserimento) = output(scan)
                 End If
gia_inserita:
'--------------------------------------------------------------------
         End If
     End If
Next scan

  Con il 1� e il 3� ciclo "for" della variabile "scan" vengono inseriti 
correttamente "minnie" e "pluto" come primi 2 elementi di 
"combinazioni_trovate(x)".

  Quando con il 6� ciclo "for" entro nel ciclo "verifica" trovo vuota la 
variabile "combinazioni trovate(verifica)" anche se "verifica" vale 
effettivamente 1....

  Forse mi perdo in un bicchiere d'acqua, ma non riesco ad uscirne....

  Mi sapete dare una dritta?
  Grazie 1000.

  GG


-- 
------------------------------------------------------------
ATTENZIONE!!!!
Per rispondere eliminare tutti i numeri dall'indirizzo.
Please remove all numbers from address to reply.
------------------------------------------------------------