QTP自动化测试--VBS之XML文件操作

Dim xmlDoc, rootEl, child1, child2, p

'创建XML文档

Set xmlDoc = CreateObject("MSXML2.DOMDocument")

'创建根元素并将之加入文档

Set rootE1=xmlDoc.createElement("BookStore")

xmlDoc.appendChild rootE1

'创建并加入子元素

Set bookchild1=xmlDoc.createElement("book")

Set ISDNAttribute=xmlDoc.createAttribute("ISDN")

ISDNAttribute.text="789456123"

bookchild1.setAttributeNode ISDNAttribute

Set bookchild1_title=xmlDoc.createElement("title")

bookchild1_title.text="C#"

bookchild1.appendChild bookchild1_title

Set bookchild1_author=xmlDoc.createElement("author")

bookchild1_author.text="BXH"

bookchild1.appendChild bookchild1_author

Set bookchild1_price=xmlDoc.createElement("Price")

bookchild1_price.text="29.3"

bookchild1.appendChild bookchild1_price

rootE1.appendChild bookchild1

'创建并加入子元素

Set bookchild2=xmlDoc.createElement("book")

Set ISDNAttribute=xmlDoc.createAttribute("ISDN")

ISDNAttribute.text="789457898"

bookchild2.setAttributeNode ISDNAttribute

Set bookchild2_title=xmlDoc.createElement("title")

bookchild2_title.text="F#"

bookchild2.appendChild bookchild2_title

Set bookchild2_author=xmlDoc.createElement("author")

bookchild2_author.text="mary"

bookchild2.appendChild bookchild2_author

Set bookchild2_price=xmlDoc.createElement("Price")

bookchild2_price.text="78"

bookchild2.appendChild bookchild2_price

rootE1.appendChild bookchild2

'创建XML processing instruction

'并把它加到根元素之前

Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'")

xmlDoc.insertBefore p,xmlDoc.childNodes(0)

'把文件保存到c目录

xmlDoc.Save "c:\test.xml"

运行完毕之后，打开"c:\test.xml"，显示如下： 

    <?xml version="1.0" ?>

-    <BookStore>

-        <book ISDN="789456123">

              <title>C#</title>

<             <author>BXH</author>

<            <Price>29.3</Price>

        </book>

-       <book ISDN="789457898">

<            <title>F#</title>

              <author>mary</author>

<           <Price>78</Price>

         </book>

</BookStore>