Question

vb读取xml文件指定数值

需要读取下面xml中的status的值和remain_times的值

<?xml version="1.0" encoding="UTF-8" ?>
- <root>
- <seg id="error">
<param name="code">0</param>
<param name="message">OK</param>
</seg>
- <seg id="room_status">
<param name="status">1</param>
<param name="remain_times">5844</param>
</seg>
</root>
一群复制粘帖的人
百度知道完了

Answer 1

　　Dim xDoc As Object
　　Dim xmlFile As String
　　Dim strWidth As String
　　Dim strHeight As String
　　Set xDoc = CreateObject("MSXML2.DOMDocument")
　　xmlFile = "C:\1.xml"
　　xDoc.Load xmlFile

　　t1 = xDoc.selectSingleNode("output").selectSingleNode("prm_ykb109").Text
　　t2 = xDoc.selectSingleNode("output").selectSingleNode("prm_yab139").Text

　　MsgBox t1 & t2

把你的xml保存在C盘根目录，名字叫1.xml

以上测试分别取出prm_ykb109和prm_ykb139两个值，其他的以此类推