节点批量删除写法

尝试批量删除节点,开始这样写

for i=0 to lovenodes.length-1 
     
     set lovenodess=lovenodes.item(i).childnodes
    Select Case lovenodess.item(11).text

     case "1"
         chkdel=0
     case else
              chkdel=1

    end select 
     if chkdel=1 then 
          '删除节点
          lovenode.RemoveChild(lovenodes.item(i))
   end if
 next

 

因为删掉一个节点后,节点顺序会前移,所以这样不行.

在网上找了下资料,

原文在此 http://lixianhuei.cnblogs.com/archive/2005/11/23/282548.html

照楼主的写法,不行.因为在I=0和I=1时纠缠不清.

后来灵光一现

改成这样

for i=lovenodes.length-1 to 0 step -1

倒着循环.搞定.