利用MSXML的DOMDocument对象取出XML的节点

在QTP里使用VBS,取出QTP生成的Results.xml中的TimeTick节点。

Dim myXML

'myXML = "C:\Sample\Results.xml"

Call ShowNode(myXML,"TimeTick")

Public Function ShowNode(myfile,mytag)

Dim xmlDoc, objNodeList, plot

Set xmlDoc = CreateObject("Msxml2.DOMDocument")

xmlDoc.load myfile

Set objNodeList = xmlDoc.getElementsByTagName(mytag)

If objNodeList.length > 0 then

For each x in objNodeList

plot=x.Text

Print plot

Next

Else

msgbox chr(34) & mytag & chr(34) & " field not found."

End If

End Function