Estrapolare 2 o più numeri validi da un vettore

[salvo50]

Nello script che ho fatto a Tiberio1 mi sono trovato con un vettore di 6 elementi (numeriì) in cui 4 sono zeri, dovevo estrapolare i 2 numeri validi ed ho fatto così

For k2 = 1 To 6
         If Num(k2) > 0 Then Nm(1) = Num(k2) : Exit For
      Next
      For k2 = 1 To 6
         If Num(k2) > 0 Then Nm(2) = Num(k2)
      Next

Praticamente ho messo 2 For-Next, nel primo estrapolo il primo numero nel secondo For-Next il secondo numero,
e li ho messi in un nuovo vettore di 2 elementi Nm(1) e Nm(2)
Però non penso che sia la procedura corretta, chiedevo si può fare di meglio?

Grazie

 

[i legend]

For i =1 to ubound( aNum)
If anum(i) >0 then
M=m+1
Redim preserve aN(m)
aN(,m)=aNim(i)
End if
Next
Ciao

 

[salvo50]

Ciao ILegend, perfetto grazie.

 

[claudio8]

Ciao Salvo dipende sempre tutto dall'uso ulteriore che si deve fare dei valori che estrapoli.
Nel tuo esempio era sufficente un solo ciclo for next ma dovevi inserire un contatore che ti serve a dare l'indice del 2º array.
Giustamente i legend ha utilizzato il redim preserve per dimensiomare correttamente l'array ultimo non conoscendo a priori detta dimensione.
L' exit for ha un senso solo se conosci a priori la dim max del 2º array e quindi "se il contatore = dim max" ecc.ecc. x cicli lunghi.
Ciao