当前位置: 代码迷 >> ASP >> 用XPATH兑现这个函数的功能
  详细解决方案

用XPATH兑现这个函数的功能

热度:327   发布时间:2013-01-28 11:49:56.0
用XPATH实现这个函数的功能
Private Function GetMenuPositionFirstID(ValueMenuPosition)
    Dim I As Integer
    For I = 0 To RootNode.childNodes.Length - 1
        If InStr(1, RootNode.selectNodes(".//MenuPosition")(I).Text, ValueMenuPosition) > 0 And RootNode.selectNodes(".//MenuParentID")(I).Text = 0 Then
            GetMenuPositionFirstID = RootNode.selectNodes(".//ID")(I).Text
            Exit For
        End If
    Next
End Function

因为菜单太长,以上函数适用,但效率极低。
说明:菜单中有主菜单,底部菜单,右侧右侧菜单等,分别为MenuPosition=0,1,2,3来表示
考虑用XPATH来提高效率,函数的意思是根据参数值ValueMenuPosition比如=1来找到第一个底部菜单的顶级菜单ID值,该值必须符合(MenuParentID=0),MenuPosition中含有1值。

------解决方案--------------------
写XPATH要看XML文档的DOM结构
------解决方案--------------------
Set oNode = oDoc.selectSingleNode("//Item[MenuPosition=0 and MenuParentID=0]/ID")

用变量:
Set oNode = oDoc.selectSingleNode("//Item[MenuPosition='" & ValueMenuPosition & "' and MenuParentID=0]/ID")

------解决方案--------------------
 
//MenuPosition含"1" 的
oDoc.selectNodes("//Item/MenuPosition[contains(text(),"1")=true]")
------解决方案--------------------
RootNode.selectSingleNode("//Item/MenuPosition[contains(text(),'1')=true]")
------解决方案--------------------
上面返回是 MenuPosition节点
改成返回Item节点
RootNode.selectSingleNode("//Item/MenuPosition[contains(text(),'1')=true]/parent::Item")
------解决方案--------------------
属性[ 不能嵌套[]  ]

RootNode.selectSingleNode("Item[MenuParentID=0]/MenuPosition[contains(text(),'1')=true]/parent::Item")