xml demo in fk of QTP...

note:if you don't use a xml object to custom your reoport stylesheet  before,you can first know it from environment vrialbes form File->setting->Envronment  and then export your user-defined variables to xml file ,and to load it  in the run-time.

    -jason 04-07

'xml file:
XMLFileHeader="<?xml version='1.0' encoding='UTF-8'?><?xml-stylesheet href='Report.xsl' type='text/xsl'?><Report></Report>"

'Create and returns an object of type XMLData
Set objXMLCustomReport =xmlutil.CreateXML()
'initializes an xml object using the specified xml string(eg. xsl file)
objXMLCustomReport.Load XMLFileHeader
'Returns an XMLelement object ,representing the block's root element
Set objXMLroot=objXMLCustomReport.GetRootElement()
'adds a new xml attribute item with the specified name and value to the element.
objXMLroot.AddAttribute "Header","Header"
'adds a child element initialized with a tag and a value.
objXMLroot.AddChildElementByName "TestSuite",""
'Return the first item of the root element
Set objXMLTestSuite=objXMLroot.ChildElements().Item(1)
'adds a child element initialized with a tag and a value.
objXMLTestSuite.AddChildElementByName "TestCase",""
'Save the XMLData document to the specified file
objXMLCustomReport.SaveFile "c:\jason1.xml"