通过QTP的XMLUTIL将XML和字典对象Dictionary之间的互相转换

本文转自knowledgeInbox

      在QTP运行过程中，如果中途出现意外情况，导致运行停止。那么，内存中关于当前CASE的状态信息就会丢失。因此，需要一个中转信息的媒介，来保存运行时必要的信息，以供后续运行时继续读取。笔者认为，XML是个一个很好的数据储存载体。因此，写了以下2个方法，来分别展示Dictionary对象与XML之间数据的存储和读取。

'Function: LoadDictionary 'Website: http://KnowledgeInbox.com 'Author: Tarun Lalwani 'Description: Load Dictionary object from a XML file 'Parameters: '@oDic: The Dictionary object in which the values need to be loaded '@FileName: The XMLfile path from where the dictionary needs to be loaded 'Return value: 'The oDic dictionary object Function LoadDictionary(oDic, FileName) 'Exit if the file doesn't exist If Not CreateObject("Scripting.FileSystemObject").FileExists(FileName) Then Exit Function Dim allKeys, sKey allKeys = oDic.Keys 'Load the XMLfile Set oXML = XMLutil.CreateXMLFromFile (FileName) Set oRoot = oXML.GetRootElement 'Load all XML variables Set allElements = oRoot.ChildElementsByPath("//Variable") Dim oElement 'Enumerate and populate each dictionary key For i = 1 to allElements.Count Set oElement = allElements.Item(i) sKey = oElement.ChildElementsByPath("Name").Item(1).CDATASections.Item(1) sValue = oElement.ChildElementsByPath("Value").Item(1).CDATASections.Item(1) oDic(sKey) = sValue Next End Function 'Function: SaveDictionary 'Website: http://KnowledgeInbox.com 'Author: Tarun Lalwani 'Description: Save dictionary object to a XML file 'Parameters: '@oDic: The Dictionary object for which the values need to be stored from XML '@FileName: The XMLfile path where the data to be loaded 'Return value: 'The oDic dictionary object Function SaveDictionary(oDic, FileName) Dim allKeys, sKey allKeys = oDic.Keys 'Create the XML file Set oXML = XMLutil.CreateXML ("Dictionary") Set oRoot = oXML.GetRootElement 'Enumerate through all dictionary items and save them one by one For each sKey in allKeys oRoot.AddChildElementByName "Variable","" Set oElem =oRoot.ChildElements.Item(oRoot.ChildElements.Count) oElem.AddChildElementByName "Name", "" oElem.AddChildElementByName "Value", "" oElem.ChildElementsByPath("Name").Item(1).AddCDATASection sKey oElem.ChildElementsByPath("Value").Item(1).AddCDATASection oDic(sKey) Next 'Save the file to sepcified location oXML.SaveFile FileName End Function

 

使用方法如下：

Set oDictionary = CreateObject("Scripting.Dictionary") oDictionary("Name") = "Tarun Lalwani" oDictionary("Profession") = "QTP Learner" SaveDictionary oDictionary, "C:/MyDictionary.xml" Set oDictionaryFile = CreateObject("Scripting.Dictionary") LoadDictionary oDictionaryFile, "C:/MyDictionary.xml" Print "Name: " & oDictionaryFile("Name") Print "Profession: " & oDictionaryFile("Profession")

 

运行结果：

 

 

生成的XML文件内容：

<Dictionary>
  <Variable>
    <Name><![CDATA[Name]]></Name>
    <Value><![CDATA[Tarun Lalwani]]></Value>
  </Variable>
  <Variable>
    <Name><![CDATA[Profession]]></Name>
    <Value><![CDATA[QTP Learner]]></Value>
  </Variable>
</Dictionary>