Differenze tra le versioni di "Eliminare più elementi da un array"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per eliminare più elementi da un vettore, ad esempio sulla base dei valori in ciascuno di essi contenuti, si utilizzarà un ciclo con il Metodo "''.Remove( )''" dell'oggetto...") |
|||
| Riga 8: | Riga 8: | ||
Dim b As Byte | Dim b As Byte | ||
| − | EliminaDispari(numeri) | + | EliminaDispari(numeri) <FONT Color=gray>' ''Passaggio dell'argomento per Indirizzo''</font> |
For Each b In numeri | For Each b In numeri | ||
Versione delle 15:57, 13 apr 2017
Per eliminare più elementi da un vettore, ad esempio sulla base dei valori in ciascuno di essi contenuti, si utilizzarà un ciclo con il Metodo ".Remove( )" dell'oggetto vettore, avendo cura nel codice della ovvia riduzione della quantità corrente degli elementi nell'array, al fine di non incorrere in un errore di "Out of Bounds".
Mostriamo un esempio pratico, nel quale saranno eliminati solo gli elementi contenenti numeri dispari:
Public Sub Main()
Dim numeri As Byte[] = [1, 7, 2, 34, 8, 7, 2, 5, 14, 22, 92, 48, 76, 15, 7, 1, 3]
Dim b As Byte
EliminaDispari(numeri) ' Passaggio dell'argomento per Indirizzo
For Each b In numeri
Print b
Next
End
Private Function EliminaDispari(lista As Byte[]) ' Riceve il parametro per Indirizzo
Dim x As Byte
While x < lista.Count
If lista[x] Mod 2 > 0 Then
lista.Remove(x)
Continue
Endif
Inc x
Wend
End
