VBS 删除数组元素

Private Function removearray(a() As Integer, index As Integer)
j = 0
For i = 0 To UBound(a) - 1
  If i <> index Then
  a(j) = a(i)
  j = j + 1
  End If
  
Next
removearray = a()
End Function

---------------------------------

vbscrīpt不像javascrīpt操作数组那样方便，就算是删除一个数组，也比较麻烦。下面是vbscrīpt删除数组元素的方法，可以粘贴到asp文件里面看到效果。
<%
arr=split("0,1,2,3,4,5",",")
length=UBound(arr)
For t=3 To 
length-1
  arr(t)=arr(t+1)   
Next   
ReDim Preserve 
arr(int(length)-1)
For i=0 To length-1
 response.Write(arr(i))
next
%>
但是Preserve关键字只对多维数组的最后一维有效，尝试改变其他维会出错。

------------------------------------------

Dim MyArray()
for i = 0 to 10
ReDim Preserve 
MyArray(i)
MyArray(i)=i
next
动态增加数据