如何从.xml文件中获取数据

时间:2013-05-08 11:42:39

标签: xml windows vbscript

我是编程的新手,所以想问一个问题,因为这个问题暂时停止了我的工作...... 我有一个.xml文件(下面是一个片段):

<?xml version="1.0"?>
<JAMonXML>
...................................
<row rowID="3"> 
<Modify>3</Modify> 
<Label>/registration/app/main, ms.</Label> 
<Hits>2</Hits> 
<Avg>1,164</Avg> 
<Total>2,327</Total> 
<StdDev>13</StdDev> 
<LastValue>1,154</LastValue> 
<Min>1,154</Min> 
<Max>1,173</Max> 
<Active>0</Active> 
<AvgActive>1</AvgActive> 
<MaxActive>1</MaxActive> 
<FirstAccess>5/8/13 2:21:40 PM</FirstAccess> 
<LastAccess>5/8/13 2:21:41 PM</LastAccess> 
<Enabled>true</Enabled> 
<Primary>false</Primary> 
<HasListeners>false</HasListeners> 
</row>
.......................
</JAMonXML>

我需要获取一个名为LastValue的值:1,154。 我有一台Windows计算机,所以我需要有一个VBScript来执行此操作,并且由于运行此脚本而获得1,154

如果你能帮助我解决这个问题,我将非常高兴!

1 个答案:

答案 0 :(得分:0)

现在有效! :d

Dim xmlDoc, objNodeList, plot

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.load("C:\...\jamon.xml")
Set objNodeList = xmlDoc.getElementsByTagName("LastValue")

If objNodeList.length > 0 then
For each x in objNodeList
plot=x.Text
msgbox plot
Next
Else
msgbox chr(34) & "LastValue" & chr(34) & " not found."
End If