-1

私はプログラミングに慣れていないので、質問したかったのですが、この問題でしばらく仕事が止まったので... .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 が必要です。

この問題を解決するお手伝いができれば、とても嬉しく思います!

4

1 に答える 1

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
于 2013-05-09T11:18:05.133 に答える