搜索1：
目前，企業(yè)中對XML的應(yīng)用越來越廣泛，作為自動化測試的測試工程師，也應(yīng)該掌握XML的讀寫操作。
　　以下我使用XML DOM技術(shù)演示一個(gè)例子，用以讀取XML指定節(jié)點(diǎn)的節(jié)點(diǎn)內(nèi)容值。
　　讀取函數(shù)原型 GetXml strXmlPath,nodeName
　　這個(gè)函數(shù)的第一個(gè)參數(shù)表示xml文件所在路徑，第二個(gè)參數(shù)表示希望獲取到的xml節(jié)點(diǎn)名，請結(jié)合下列例子看
　　首先，新建一個(gè)vbs文件（取個(gè)名字叫readXml.vbs），輸入代碼：
Dim strXML
　　GetXml "c:search.xml","TestResult" '這個(gè)函數(shù)的第一個(gè)參數(shù)表示xml文件所在路徑，第二個(gè)參數(shù)表示希望獲取到的xml節(jié)點(diǎn)名，請結(jié)合下列例子看
MsgBox strXML
Function GetXml (ByVal strXmlFilePath,ByVal xmlNodeName)
Dim xmlDoc,xmlRoot
Set xmlDoc = CreateObject("Microsoft.XMLDOM") '創(chuàng)建XML DOM對象
xmlDoc.async = False '控制加載模式為同步模式（xml樹加載完畢后再執(zhí)行后續(xù)代碼）
xmlDoc.load strXmlFilePath '載入xml文件
If xmlDoc.parseError.errorCode <> 0 Then
MsgBox "XML文件格式不對，原因是：" & Chr(13) & xmlDoc.parseError.reason
Exit Function
End If
Set xmlRoot = xmlDoc.documentElement
xmlRecursion xmlRoot,xmlNodeName '調(diào)用xml遞歸函數(shù)傳入指定的根和節(jié)點(diǎn)名
GetXml = True 'xmlRecursion (xmlRoot)
End Function
Function xmlRecursion(byval xmlNode,byval strNodeName)
If xmlNode.nodeName = strNodeName And xmlNode.hasChildNodes Then
If xmlNode.childNodes.item(0).nodeName = "#text" Then
strXML = strXML & xmlNode.nodeName & ":" & xmlNode.childNodes.item(0).nodeValue & Chr(13)
End If
End If
If xmlNode.hasChildNodes Then
For Each childNodeItem In xmlNode.ChildNodes
If childNodeItem.hasChildNodes Then
xmlRecursion childNodeItem,strNodeName
End If
Next
End If
End Function

問題：
　　haschildnodes()這個(gè)方法好奇怪，明明已經(jīng)沒有子節(jié)點(diǎn)了，卻仍然返回true，
　　比如<TestResult>1</TestResult>這個(gè)節(jié)點(diǎn)，它的childNodes.item(0).nodeName竟然是“#text”，但是根據(jù)例子來看TestResult已經(jīng)沒有子節(jié)點(diǎn)了阿
回答：
　　因?yàn)樵趚ml有一個(gè)特殊的“子節(jié)點(diǎn)”——文本節(jié)點(diǎn)。比如 <TestResult>100</TestResult>
　　這個(gè)節(jié)點(diǎn)TestResult下并不是沒有子節(jié)點(diǎn)，而是有一個(gè)文本節(jié)點(diǎn)，這個(gè)節(jié)點(diǎn)的nodeName就是“#text”，而nodeValue是100.如果是 <TestResult/> 這種節(jié)點(diǎn)的話，那么用hasChildNodes則返回False
遍歷xml的代碼：
Option Explicit
Dim xmlDoc,myErr,strXML
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load "c:calc1.xml"
If xmlDoc.parseError.errorCode <> 0 Then
Set myErr = xmlDoc.parseError
MsgBox("XML Loads Failed. " & myErr.reason)
Else
Set rootNode = xmlDoc.documentElement
Call rTravel(rootNode)
MsgBox strXML
End If
Sub rTravel (rNode)
Dim blnTwo,intTestCase,
blnTwo = False
iLen = rNode.childNodes.length
If iLen > 0 Then
For i = 0 To rNode.childNodes.length -1
Set child = rNode.childNodes.item(i)
Call rTravel(child)
childtext = child.nodeValue
strXML = strXML & childtext & chr(13)
Next
Else
Exit Sub
End If
End Sub

方法二：
Option Explicit
Dim xmlDoc,myErr,strXML
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load "c:calc1.xml"
If xmlDoc.parseError.errorCode <> 0 Then
Set myErr = xmlDoc.parseError
MsgBox("XML Loads Failed. " & myErr.reason)
Else
Set rootNode = xmlDoc.documentElement
Call rTravel(rootNode)
MsgBox strXML
End If
Sub rTravel (rNode)
Dim blnTwo,intTestCase,
blnTwo = False
iLen = rNode.childNodes.length
If iLen > 0 Then
For i = 0 To rNode.childNodes.length -1
Set child = rNode.childNodes.item(i)
Call rTravel(child)
childtext = child.nodeValue
strXML = strXML & childtext & chr(13)
Next
Else
Exit Sub
End If
End Sub


搜索2：
Dim filepath,xmlDoc,myErr,strXML,rootNode
filepath="c:\12.xml"
Set xmlDoc=CreateObject("Microsoft.XMLDOM")'創(chuàng)建一個(gè)xml對象
xmlDoc.async=False
xmlDoc.load filepath '加載xml文件
If xmlDoc.parseError.errorCode<>0 Then'返回錯誤信息
Set myErr=xmlDoc.parseError
MsgBox("XML Loads Faild."&myErr.reason)
Else
Set rootNode=xmlDoc.documentElement'設(shè)置根節(jié)點(diǎn)
Call rTravel(rootNode)'遍歷節(jié)點(diǎn)
msgBox strXML
End If

Sub rTravel(rNode)
Dim blnTwo,intTestCase,iLen,i,child
blnTwo=False
iLen=rNode.childNodes.length'返回節(jié)點(diǎn)的子節(jié)點(diǎn)數(shù)目
If iLen>0 Then
For i=0 to rNode.childNodes.length-1
Set child=rNode.childNodes.item(i)'獲取當(dāng)前節(jié)點(diǎn)對象
Call rTravel(child)
childtext=child.nodeValue'獲取節(jié)點(diǎn)的值
strXML=strXML & childtext & chr(13)'chr(13)回車符
Next
else
Exit Sub
End If
End Sub


另附搜索到的qtp_xml學(xué)習(xí)總結(jié)

總結(jié)

以上是生活随笔為你收集整理的QTP操作xml文件方法的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。