2013-05-08 7 views
-1

프로그래밍에 익숙하지 않아이 문제로 인해 잠시 후이 문제가 중단되어 질문을하고 싶습니다. .xml 파일이 있습니다 (아래 조각입니다)..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 컴퓨터를 가지고 있으므로이 스크립트를 실행 한 결과 1,154를 얻으려면 VBScript가 필요합니다.

이 문제를 해결할 수 있다면 매우 기쁩니다!

답변

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 
관련 문제