RE:Eliminar elemento de una matriz o arreglo
Publicado por
Mauricio (1 intervención) el 09/08/2005 22:06:43
Te recomiendo que en vez de utilizar un arreglo, mejor utilices una colección para este tipo de peración. es bastante facil de utilizar por ejemplo
Dim C As Collection
Dim I As Integer
Set C = New Collection
For I = 1 To 100
C.Add Item:=I, Key:="Item " & I
'Los parametros que recive el método add son:
'Item (requerido): el item que se agregará en este caso el valor de I
'Key (opcional): Identificador único para el item
'Before (opcional): si el item agregado ira antes de algún otro item
'after (opcional): si el item agregado ira después de algún otro item
Next I
'para borrar un item de la collección es simple.
'siesque agregaste una key podriamos eliminar directo el item sin necesidad de
'recorrer la coleccion de la siguiente manera
MsgBox "Eliminado Item = " & C.Item("Item 3") ' Mostramos el item a eliminar
C.Remove "Item 3" ' Eliminamos
'si no agregamos keys a nuestro sitems, recorremos y eliminamos
For I = C.Count To 1 Step -1
' recorremos desde atrás hacia delante para no generar el error Script Out of range
If C.Item(I) = 7 Then
MsgBox "eliminado Item = " & C.Item(I)
C.Remove I
End If
Next I
Set C = Nothing
Espero te sea de ayuda