Eliminare più elementi da un array - Cronologia

Vuott il 14:05, 23 giu 2024

2024-06-23T14:05:47Z

← Versione meno recente		Versione delle 08:05, 23 giu 2024
Riga 59:		Riga 59:

	End		End
	o ~~anche~~ così:		o così:
	Public Sub Main()		Public Sub Main()

Riga 75:		Riga 75:
	Next		Next

			End
			o anche usando la funzione "Split()" e il Metodo ".Join()" dell'array di tipo ''String'':
			Public Sub Main()

			Dim ss As String[] = ["Aaaaa", Null, "Bbbbb", "", "Ccccc", Null, "Ddddd", "Eeeee", "Fffff", ""]

			ss = Split(ss.Join(","), ",", "", True)

			<FONT Color=gray>' ''Mostra quanto ottenuto dalla riga precedente:''</font>
			For Each s As String In ss
			Print s
			Next

	End		End

Vuott il 14:01, 23 giu 2024

2024-06-23T14:01:50Z

← Versione meno recente		Versione delle 08:01, 23 giu 2024
Riga 1:		Riga 1:
	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'' ".		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'' ".

			====Esempi su valori numerici====
	Mostriamo un esempio pratico, nel quale saranno eliminati solo gli elementi contenenti numeri dispari:		Mostriamo un esempio pratico, nel quale saranno eliminati solo gli elementi contenenti numeri dispari:
	Public Sub Main()		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 numeri As Byte[] = [1, 7, 2, 34, 8, 7, 2, 5, 14, 22, 92, 48, 76, 15, 7, 1, 3]
	Dim b As ~~Byte~~		Dim i As Integer

	~~EliminaDispari~~(numeri) <FONT Color=gray>' ''~~Essendo un array, il passaggio dell'argomento può avvenire per Indirizzo~~''</font>		While i < bb.Count
			If Not Even(numeri[i]) Then
	For Each b In numeri		numeri.Remove(i)
			Else
			Inc i
			Endif
			Wend

			<FONT Color=gray>' ''Mostra quanto ottenuto dal ciclo precedente:''</font>
			For Each b As Byte In numeri
	Print b		Print b
	Next		Next

	End		End
			In quest'altro esempio, invece, si desidera eliminare gli elementi con valore "zero":

	~~Private Function EliminaDispari(lista As Byte[]) <FONT Color=gray>' ''Riceve il parametro per Indirizzo'~~'~~</font>~~

	~~Dim x As Byte~~

	~~While x < lista.Count~~
	~~If lista[x] Mod 2 > 0 Then~~
	~~lista.Remove(x)~~
	~~Continue~~
	~~Endif~~
	~~Inc x~~
	~~Wend~~

	~~End~~
	In esempio invece, ~~in cui~~ si desidera eliminare gli elementi con valore zero~~, si adotterà un'altra modalità~~:
	Public Sub Main()		Public Sub Main()

Riga 43:		Riga 35:
	Inc i		Inc i
	Wend		Wend

			<FONT Color=gray>' ''Mostra quanto ottenuto dal ciclo precedente:''</font>
	For Each b In bb		For Each b In bb
	Print b		Print b
Riga 49:		Riga 42:

	End		End

			====Esempi sulle stringhe di caratteri====
	Similmente per eliminare degli elementi ''vuoti'' in un array di tipo String[]:		Similmente per eliminare degli elementi ''vuoti'' in un array di tipo String[]:
	Public Sub Main()		Public Sub Main()
Riga 58:		Riga 53:
	Next		Next

			<FONT Color=gray>' ''Mostra quanto ottenuto dal ciclo precedente:''</font>
	For Each s As String In ss		For Each s As String In ss
			Print s
	Next		Next

	End		End
	o anche:		o anche così:
	Public Sub Main()		Public Sub Main()

Vuott il 12:25, 23 giu 2024

2024-06-23T12:25:25Z

← Versione meno recente		Versione delle 06:25, 23 giu 2024
Riga 40:		Riga 40:

	While i < bb.Count		While i < bb.Count
	If bb[i] == 0 Then		If bb[i] == 0 Then bb.Remove(i)
	bb.Remove(~~bb.Find(0~~)~~, 1)~~
	~~i = 0~~
	~~Endif~~
	Inc i		Inc i
	Wend		Wend

Vuott il 12:20, 23 giu 2024

2024-06-23T12:20:33Z

← Versione meno recente		Versione delle 06:20, 23 giu 2024
Riga 52:		Riga 52:

	End		End
	Similmente per eliminare degli elementi ''vuoti'' in un array di ~~topo~~ String[]:		Similmente per eliminare degli elementi ''vuoti'' in un array di tipo String[]:
			Public Sub Main()

			Dim ss As String[] = ["Aaaaa", Null, "Bbbbb", "", "Ccccc", Null, "Ddddd", "Eeeee", "Fffff", ""]

			For i As Integer = ss.Max DownTo 0
			If ss[i] = Null Then ss.Remove(i)
			Next

			For Each s As String In ss
			Next

			End
			o anche:
	Public Sub Main()		Public Sub Main()

Riga 59:		Riga 72:

	While i < ss.Count		While i < ss.Count
	If ss[i] == Null Then		If ss[i] == Null Then ss.Remove(i)
	ss.Remove(~~ss.Find(Null~~)~~, 1)~~
	~~i = 0~~
	~~Endif~~
	Inc i		Inc i
	Wend		Wend

Vuott il 22:06, 22 giu 2024

2024-06-22T22:06:37Z

← Versione meno recente		Versione delle 16:06, 22 giu 2024
Riga 55:		Riga 55:
	Public Sub Main()		Public Sub Main()

	Dim ~~aNombres~~ As String[] = ["Aaaaa", Null, "Bbbbb", "", "Ccccc", Null, "Ddddd", "Eeeee", "Fffff", ""]		Dim ss As String[] = ["Aaaaa", Null, "Bbbbb", "", "Ccccc", Null, "Ddddd", "Eeeee", "Fffff", ""]
	Dim i As Integer		Dim i As Integer

	While i < ~~aNombres~~.Count		While i < ss.Count
	If ~~aNombres~~[i] == Null Then		If ss[i] == Null Then
	~~aNombres~~.Remove(~~aNombres~~.Find(Null), 1)		ss.Remove(ss.Find(Null), 1)
	i = 0		i = 0
	Endif		Endif
Riga 67:		Riga 67:

	<FONT Color=gray>' ''Mostra quanto ottenuto dal ciclo precedente:''</font>		<FONT Color=gray>' ''Mostra quanto ottenuto dal ciclo precedente:''</font>
	For Each s As String In ~~aNombres~~		For Each s As String In ss
	Print s		Print s
	Next		Next

	End		End

Vuott il 22:05, 22 giu 2024

2024-06-22T22:05:54Z

@@ Riga 49: / Riga 49: @@
    For Each b In bb
      Print b
    Next
   End

Vuott il 10:14, 10 giu 2024

2024-06-10T10:14:53Z

← Versione meno recente		Versione delle 04:14, 10 giu 2024
Riga 1:		Riga 1:
	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''".		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'' ".

Vuott il 10:14, 10 giu 2024

2024-06-10T10:14:11Z

← Versione meno recente		Versione delle 04:14, 10 giu 2024
Riga 3:		Riga 3:

	Mostriamo un esempio pratico, nel quale saranno eliminati solo gli elementi contenenti numeri dispari:		Mostriamo un esempio pratico, nel quale saranno eliminati solo gli elementi contenenti numeri dispari:
	~~'''~~Public~~'''~~ Sub Main()		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 numeri As Byte[] = [1, 7, 2, 34, 8, 7, 2, 5, 14, 22, 92, 48, 76, 15, 7, 1, 3]
	Dim b As Byte		Dim b As Byte

	EliminaDispari(numeri) <FONT Color=gray>' ''Essendo un array, il passaggio dell'argomento può avvenire per Indirizzo''</font>		EliminaDispari(numeri) <FONT Color=gray>' ''Essendo un array, il passaggio dell'argomento può avvenire per Indirizzo''</font>

	For Each b In numeri		For Each b In numeri
	Print b		Print b
	Next		Next

	~~'''~~End~~'''~~		End


	~~'''~~Private~~'''~~ Function EliminaDispari(lista As Byte[]) <FONT Color=gray>' ''Riceve il parametro per Indirizzo''</font>		Private Function EliminaDispari(lista As Byte[]) <FONT Color=gray>' ''Riceve il parametro per Indirizzo''</font>

	Dim x As Byte		Dim x As Byte

	While x < lista.Count		While x < lista.Count
	If lista[x] Mod 2 > 0 Then		If lista[x] Mod 2 > 0 Then
	lista.Remove(x)		lista.Remove(x)
	Continue		Continue
	Endif		Endif
	Inc x		Inc x
	Wend		Wend

	~~'''~~End~~'''~~		End
			In esempio invece, in cui si desidera eliminare gli elementi con valore zero, si adotterà un'altra modalità:
			Public Sub Main()
	In ~~questo~~ esempio, in cui si desidera eliminare gli elementi con valore zero, si adotterà un'altra modalità:
	~~'''~~Public~~'''~~ Sub Main()

	Dim bb As Byte[]		Dim bb As Byte[]
Riga 39:		Riga 37:
	Dim i As Integer		Dim i As Integer

	bb = [0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 9, 0]		bb = [0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 9, 0]

	While i < bb.Count		While i < bb.Count
	If bb[i] == 0 Then		If bb[i] == 0 Then
	bb.Remove(bb.Find(0), 1)		bb.Remove(bb.Find(0), 1)
	i = 0		i = 0
	Endif		Endif
	Inc i		Inc i
	Wend		Wend

	For Each b In bb		For Each b In bb
	Print b		Print b
	Next		Next

	~~'''~~End~~'''~~		End

Vuott il 09:06, 20 mar 2018

2018-03-20T09:06:09Z

← Versione meno recente		Versione delle 03:06, 20 mar 2018
Riga 44:		Riga 44:
	If bb[i] == 0 Then		If bb[i] == 0 Then
	bb.Remove(bb.Find(0), 1)		bb.Remove(bb.Find(0), 1)
	i = -1		i = 0
	Endif		Endif
	Inc i		Inc i

Vuott il 09:05, 20 mar 2018

2018-03-20T09:05:14Z

@@ Riga 28: / Riga 28: @@
       Inc x
     Wend
   '''End'''