VBScript读取XML文件
虽然现今数据大部分都是使用数据库存储，但是停电断网等不可抗拒因素经常中断着automation的进行，这时若这些非业务的配置数据用xml来存储就显得方便很多了，下面是用VBScript脚本读取XML文件的实现方法，记录下以作备忘。
站在用户的角度思考问题，与客户深入沟通，找到四方台网站设计与四方台网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站建设、成都网站设计、企业官网、英文网站、手机端网站、网站推广、国际域名空间、虚拟空间、企业邮箱。业务覆盖四方台地区。
1. XML文件的节点信息：
1 TNSLogon ELOG ASD asd 1 3 TNSLogon NAV12C2 navdev navdev 0 5 DirectLogon RTTD devman devman 0
2. 判断当前系统的MSXML.dll组件的版本（由于系统中一般会有多个版本，这里就只取最大的版本）
Function iGetMSxmlVersion()
Dim SystemPath, fso, f, fa, fname, iVersion, iMaxVersion
SystemPath = "C:\Windows\System32" 'system path
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(SystemPath) Then
Set f = fso.GetFolder(SystemPath)
Set fa = f.Files
iMaxVersion = 0
' calc the amount of files
For Each fname in fa
If Instr(fname,"msxml")>0 Then
iVersion = Mid(fname.name,6,1)
If IsNumeric(iVersion) Then
If iMaxVersion < iVersion Then
iMaxVersion = iVersion
End If
End If
End If
Next
If iMaxVersion >0 Then
iGetMSxmlVersion = iMaxVersion
Log.Message("The max MSxml version is: " + iMaxVersion)
Else
iGetMSxmlVersion = 0
Log.Error("The current system not exist MSxml module.")
End If
End If
End Function3. 读取xml文件函数：
Function sGetDataFromXML(sXmlPath, sRoot, sNode, iDataID, sColumn)
Dim xmlVersion
xmlVersion = iGetMSxmlVersion
If sXmlPath <> "" and sRoot <> "" and sNode <> "" and iDataID <>"" and sColumn <> "" Then
If xmlVersion <> 0 Then
' Create COM object
Set Doc = Sys.OleObject("Msxml2.DOMDocument."+ xmlVersion +".0")
' you can also use the following method to create XMLDOM object
'Set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = False
' Load data from a file
' We use the file created earlier
Call Doc.load(sXmlPath)
' Report an error, if, for instance, the markup or file structure is invalid
If Doc.parseError.errorCode <> 0 Then
s = "Reason:" + Chr(9) + Doc.parseError.reason + _
"Line:" + Chr(9) + CStr(Doc.parseError.line) + Chr(13) + Chr(10) + _
"Pos:" + Chr(9) + CStr(Doc.parseError.linePos) + Chr(13) + Chr(10) + _
"Source:" + Chr(9) + Doc.parseError.srcText
' Post an error to the log and exit
Call Log.Error("Cannot parse the document.", s)
Exit Function
End If
' Use an XPath expression to obtain a list of "control" nodes
Set Nodes = Doc.selectNodes("/" + sRoot + "/" + sNode + "[DataID=" + CStr(iDataID) + "]/" + sColumn)
If Not(Nodes.item(0) is Nothing) Then
Call Log.Message("Data from XML: " + Nodes.item(0).text)
sGetTestDataFromXML = Nodes.item(0).text
Else
Log.Error("Read XML nodes occur errors.")
Exit Function
End If
Set Nodes = Nothing
Set Doc = Nothing
Else
Exit Function
End If
Else
Log.Error("Function sGetTestDataFromXML() occur incorrect parameters.")
Exit Function
End If
End Function4. TestComplete中测试脚本及log输出：
Sub Test
Dim strXmlPath, strTNSName, strUserame, strPassword
strXmlPath=Project.Path + "Data\TC_TNSInfo.xml"
log.Message(strXmlPath)
If aqFile.Exists(strXmlPath) Then
strTNSName = sGetTestDataFromXML(strXmlPath, "TC_TestLogon", "TNSLogon", 3, "I_TNSName")
strUserame = sGetTestDataFromXML(strXmlPath, "TC_TestLogon", "TNSLogon", 3, "I_Username")
strPassword = sGetTestDataFromXML(strXmlPath, "TC_TestLogon", "TNSLogon", 3, "I_Password")
log.Message("TNSName is :"+strTNSName)
log.Message("Username is :"+strUserame)
log.Message("Password is :"+strPassword)
End If
End Sub
网页名称：VBScript读取XML文件
路径分享：http://6mz.cn/article/jheihj.html