Vbs del (remove) element

[0904]

scusate se torno indietro di qualche anno;

ma in VBS con un Array di n elementi come si eliminano specifici indici?

[Sergio_Alessi]

Call Main()
Sub Main()
	Dim ArrayDinamico()
	ReDim ArrayDinamico(5)
	Dim S
	Dim i
	'inizializza i valori
	S = ""
	For i=0 To 5
		s = s & " " & I
		ArrayDinamico(i) = i
	Next
	'Stampa l'array
	msgbox S
	'rimuovere indice 3
	Dim j,k
	For i= 3 To 5 - 1
		ArrayDinamico(i) = ArrayDinamico(i + 1)
	Next
	ReDim Preserve ArrayDinamico(4)
	S = ""
	For i=0 To 4
		s = s & " " & ArrayDinamico(i)
	Next
	'Stampa l'array con indice 3 rimosso
	msgbox S

End Sub

[0904]

ciao Sergio, quindi in pratica bisogna ricostruire Array

[leopoldomonzani]

Anche così?

e=""
dim a(10),b(9)
for i=0 to 10 :  a(i)=i :next

n=0
for i=0 to 10
  if i<>5 then  'rimuove indice 5 
    b(n)=a(i)
    e=e & " " & a(i)
    n=n+1
  end if  
next
msgbox e

[0904]

@leopoldomonzani

Anche così?

anche