以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 DOM/SAX/XPath 』  (http://bbs.xml.org.cn/list.asp?boardid=11)
----  [求助]新人求助，关于SelectNodes  (http://bbs.xml.org.cn/dispbbs.asp?boardid=11&rootid=&id=123626)

--  作者：Dong2000
--  发布时间：2/26/2012 2:59:00 PM

--  [求助]新人求助，关于SelectNodes
<?xml version="1.0" encoding="UTF-8"?>
<Ram>
<RamHour>
<Start>2012-02-22, 00:00:00</Start>
<End>2012-02-22, 01:00:00</End>
<PickPlace>
<PRD>2642</PRD>
<SBY-NoOperator>0</SBY-NoOperator>
</PickPlace>
<PickPlace>
<PRD>2000</PRD>
<SBY-NoOperator>10</SBY-NoOperator>
</PickPlace>
</RamHour>

<RamHour>
<Start>2012-02-22, 00:00:00</Start>
<End>2012-02-22, 01:00:00</End>
<PickPlace>
<PRD>2642</PRD>
<SBY-NoOperator>0</SBY-NoOperator>
</PickPlace>
<PickPlace>
<PRD>2000</PRD>
<SBY-NoOperator>10</SBY-NoOperator>
</PickPlace>
</RamHour>

</Ram>

我要选取第n个RamHour下面的所有PickPlace节点，请问xPath怎么写？

Dim RamHour as object
Dim PickPlace as Object
Set RamHour = xmlapp.SelectNodes("Ram/RamHour")
For i = 0 To RamHour.Length - 1 Step 1
set PickPlace = xmlapp.SelectNodes ("Ram/RamHour/PickPlace")  ' 这句怎么写？现在运行出错！
.
.
.
Next i

--  作者：Dong2000
--  发布时间：2/26/2012 8:23:00 PM

--  
求高手相助
--  作者：Dong2000
--  发布时间：2/26/2012 11:21:00 PM

--  
这里人气太低了。

哈哈哈，查了许多资料都没结果，居然被我想出来了。

Dim RamHour as object
Dim PickPlace as Object
Set RamHour = xmlapp.SelectNodes("Ram/RamHour")
For i = 0 To RamHour.Length - 1 Step 1
set PickPlace = xmlapp.SelectNodes ("Ram/RamHour").Item(i).SelectNodes("PickPlace")  ' 用Item属性，再用SlectNodes
.
.
.
Next i

--  作者：admin
--  发布时间：2/27/2012 11:41:00 PM

--  
呵呵。不错！
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 50.781ms