VBScript读取XML文件

虽然现今数据大部分都是使用数据库存储，但是停电断网等不可抗拒因素经常中断着automation的进行，这时若这些非业务的配置数据用xml来存储就显得方便很多了，下面是用VBScript脚本读取XML文件的实现方法，记录下以作备忘。

1. XML文件的节点信息：

<?xmlversion="1.0"?>
<TC_Testlogon>
<TNSlogon>
<DataID>1</DataID>
<I_Type>TNSlogon</I_Type>
<I_TNSName>ELOG</I_TNSName>
<I_Username>ASD</I_Username>
<I_Password>asd</I_Password>
<I_SavePassword>1</I_SavePassword>
</TNSlogon>
<TNSlogon>
<DataID>3</DataID>
<I_Type>TNSlogon</I_Type>
<I_TNSName>NAV12C2</I_TNSName>
<I_Username>navdev</I_Username>
<I_Password>navdev</I_Password>
<I_SavePassword>0</I_SavePassword>
</TNSlogon>
<TNSlogon>
<DataID>5</DataID>
<I_Type>Directlogon</I_Type>
<I_TNSName>RTTD</I_TNSName>
<I_Username>devman</I_Username>
<I_Password>devman</I_Password>
<I_SavePassword>0</I_SavePassword>
</TNSlogon>
</TC_Testlogon>

2. 判断当前系统的MSXML.dll组件的版本（由于系统中一般会有多个版本，这里就只取最大的版本）

FunctioniGetMSxmlVersion()
DimsystemPath,fso,f,fa,fname,iVersion,iMaxVersion
SystemPath="C:\Windows\System32"'systempath
Setfso=CreateObject("Scripting.FileSystemObject")
Iffso.FolderExists(SystemPath)Then
Setf=fso.GetFolder(SystemPath)
Setfa=f.Files
iMaxVersion=0
'calctheamountoffiles
ForEachfnameinfa
IfInstr(fname,"msxml")>0Then
iVersion=Mid(fname.name,6,1)
IfIsNumeric(iVersion)Then
IfiMaxVersion<iVersionThen
iMaxVersion=iVersion
EndIf
EndIf
EndIf
Next
IfiMaxVersion>0Then
iGetMSxmlVersion=iMaxVersion
Log.Message("Themaxmsxmlversionis:"+iMaxVersion)
Else
iGetMSxmlVersion=0
Log.Error("ThecurrentsystemnotexistMSxmlmodule.")
EndIf
EndIf
EndFunction

3. 读取xml文件函数：

FunctionsGetDataFromXML(sXmlPath,sRoot,sNode,iDataID,sColumn)
DimxmlVersion
xmlVersion=iGetMSxmlVersion
IfsXmlPath<>""andsRoot<>""andsNode<>""andiDataID<>""andsColumn<>""Then
IfxmlVersion<>0Then
'CreateCOMobject
SetDoc=Sys.OleObject("Msxml2.DOMDocument."+xmlVersion+".0")
'youcanalsousethefollowingmethodtocreateXMLDOMobject
'SetDoc=CreateObject("Microsoft.XMLDOM")
Doc.async=False
'Loaddatafromafile
'Weusethefilecreatedearlier
CallDoc.load(sXmlPath)
'Reportanerror,if,forinstance,themarkuporfilestructureisinvalid
IfDoc.parseError.errorCode<>0Then
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
'Postanerrortothelogandexit
CallLog.Error("Cannotparsethedocument.",s)
ExitFunction
EndIf
'UseanXPathexpressiontoobtainalistof"control"nodes
SetNodes=Doc.selectNodes("/"+sRoot+"/"+sNode+"[DataID="+CStr(iDataID)+"]/"+sColumn)
IfNot(Nodes.item(0)isnothing)Then
CallLog.Message("DatafromXML:"+Nodes.item(0).text)
sGetTestDataFromXML=Nodes.item(0).text
Else
Log.Error("readxmlnodesoccurerrors.")
ExitFunction
EndIf
SetNodes=nothing
SetDoc=nothing
Else
ExitFunction
EndIf
Else
Log.Error("FunctionsGetTestDataFromXML()occurincorrectparameters.")
ExitFunction
EndIf
EndFunction

4. TestComplete中测试脚本及log输出：

SubTest
DimstrXmlPath,strTNSName,strUserame,strPassword
strXmlPath=Project.Path+"Data\TC_TNSInfo.xml"
log.Message(strXmlPath)
IfaqFile.Exists(strXmlPath)Then
strTNSName=sGetTestDataFromXML(strXmlPath,"TC_Testlogon","TNSlogon",3,"I_TNSName")
strUserame=sGetTestDataFromXML(strXmlPath,"I_Username")
strPassword=sGetTestDataFromXML(strXmlPath,"I_Password")
log.Message("TNSNameis:"+strTNSName)
log.Message("Usernameis:"+strUserame)
log.Message("Passwordis:"+strPassword)
EndIf
EndSub