asp删除数组中指定的项目

  asp删除数组中指定的项目,vbs删除数组中指定的项目。vbs没有和js一样的splice方法可以删除项,所以要删除某个项,需要将删除项的后续值依次替换,然后ReDim Preserve重新定义数组长度进行删除操作。

  asp删除数组中指定的项目源代码如下

function removeItem(arr,v)'通过数组指查找后匹配删除
  dim arrl,finditem:finditem=-1
  arrl=ubound(arr)
  for i=0 to arrl
    if finditem=-1 and arr(i)=v then finditem=i    
    if finditem<>-1 and i<arrl then arr(i)=arr(i+1)
  next
  if finditem<>-1 then ReDim Preserve arr(arrl-1)'找到则删除最后一项
  removeItem=arr
end function
function removeItemByIndex(arr,v)'通过指定数组下标进行删除,注意下标从0开始
  dim arrl:arrl=ubound(arr)
  if v>arrl or v<0 then'下标小于0或者大于长度退出
    removeItemByIndex=arr:exit function 
  end if
  for i=v to arrl-1
     arr(i)=arr(i+1)
  next
  ReDim Preserve arr(arrl-1)'找到则删除最后一项
  removeItemByIndex=arr
end function
arr=split("1,5,8,12,355,23",",")
arr=removeItem(arr,"8")
msgbox join(arr,",")'1,5,12,355,23
arr=removeItem(arr,"355")
msgbox join(arr,",")'1,5,12,23
arr=removeItemByIndex(arr,2)'删除第3项,12这个数字
msgbox join(arr,",")'1,5,23

 


原创文章,转载请注明出处:asp删除数组中指定的项目

评论(0)Web开发网
阅读(37)喜欢(0)不喜欢(0)Asp/VBScript