用vbs实现xml的树转二叉树

原创 2005年05月17日 12:37:00

思想来自于,二叉树的链表,因为vbs里没有,所以用dictionary去模拟的,每个dictionary都有一个

leftnode和一个rightnode,这样就可以很好的把xml的值放到里边了,并用了递归的方法 

代码如下:

<script language='vbscript'>
set objxml=createobject("msxml2.DOMDocument")
objxml.load "c:/bloginfo.xml"
objxml.async=false
set xmlroot=objxml.documentElement
set dicadd=createobject("scripting.dictionary")
dicadd.add "leftnode",recursion(xmlroot)
function recursion(theelement)
  if theelement.childnodes(0).childnodes.length<>0 then
   if theelement.nodename<>"#text" then
       set dicxml_0=createobject("scripting.dictionary")
       for i=0 to theelement.childnodes.length-1
            set info=createobject("scripting.dictionary")
     info.add "nodename",theelement.childnodes(i).text
           if not (i+1)>theelement.childnodes.length-1 then
          str="set dicxml_" & i+1 & "=createobject(" & """" & "scripting.dictionary" & """" & ")"
      execute(str)
      set xmldom=theelement.childnodes(i)
      str="dicxml_" & i & ".add " & """" & "leftnode" & """" & ",recursion(xmldom)"
      execute(str)
      str="dicxml_" & i & ".add " & """" & "rightnode" & """" & ",dicxml_" & i+1
      execute(str)
      str="dicxml_" & i & ".add " & """" & "info" & """" & ",info"
      execute(str)     
    else
            str="dicxml_" & i & ".add " & """" & "rightnode" & """" & "," & """" & "null" & """"
     execute(str)
     str="dicxml_" & i & ".add " & """" & "leftnode" & """" & "," & """" & theelement.text & """"
     execute(str)
   end if
    set info=nothing
       next
       set recursion=dicxml_0
      else
           recursion=theelement.text
      end if
    else
       recursion=null
    end if
end function
</script>

[转]用QTP调用外部vbs读写XML的例…

原文作者:songfun 原文地址: http://bbs.51testing.com/thread-76590-1-1.html     目前,企业中对XML的应用越来越广泛,作为自动化测试的测试工...

二叉树的实现

  • 2017年11月19日 18:10
  • 2KB
  • 下载

【C/C++学院】0906-递归转栈/二叉树实现

递归转栈 用栈实现递归.cpp #include #include using namespace std; int printN(int n) { if (n>0) { cout ...
  • waldmer
  • waldmer
  • 2016年03月01日 21:13
  • 1314

使用数组实现二叉树

  • 2016年08月30日 11:54
  • 7KB
  • 下载

C&nbsp;语言二叉树实现示例(转)

//my_binary_tree.h --------------------------------------------------------------
  • dieqms
  • dieqms
  • 2014年11月13日 19:41
  • 229

二叉树类实现,包含层次遍历

  • 2015年05月17日 13:12
  • 210KB
  • 下载

非递归实现广度遍历生成二叉树

  • 2014年11月05日 19:16
  • 1021B
  • 下载

数据结构——树(2)一般树转二叉树Java实现

一般树转二叉树的算法理论和Java实现
  • picway
  • picway
  • 2017年02月26日 16:38
  • 180
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用vbs实现xml的树转二叉树
举报原因:
原因补充:

(最多只允许输入30个字)