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删除数组中指定的项目