Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Move all child elements (and attributes, comments, text nodes) from one XML node to another.

Implementation

Public Function MoveChildElements(ByRef objXMLSrc, ByRef objXMLDest)
 If objXMLSrc is Nothing Then
 Set MoveChildElements = objXMLDest
 Exit Function
 End If
 If objXMLDest is Nothing Then
 Set objXMLDest = objXMLSrc.CloneNode(False)
 End If
 While Not (objXMLSrc.FirstChild is Nothing)
 Call objXMLDest.AppendChild(objXMLSrc.FirstChild)
 Wend
 Set MoveChildElements = objXMLDest
End Function

Test Code

 Set objXMLDoc = CreateXMLDOM("test")
 Set objXMLParent = CreateChildElementByName(objXMLDoc.DocumentElement, "Modules", "modules parent node")
 If objXMLParent is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 1")
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 2")
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 3")
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 sText = "<root>text</root>"
 Set objXMLDoc2 = CreateXMLDOMFromString(sText)
 If objXMLDoc2 is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateXMLDOMFromString", "")
 End If
 Set objXMLParent2 = CreateChildElementByName(objXMLDoc2.DocumentElement, "Modules", "modules parent node dest")
 If objXMLParent2 is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLParent2 = MoveChildElements(objXMLParent, objXMLParent2)
 Set objXMLNode = ChildElementByName(objXMLParent2, "Macro") 
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
 End If
 If objXMLNode.BaseName <> "Macro" Then
 Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
 End If
 If objXMLNode.Text <> "macro node 1" Then
 Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 1")
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 2")
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 3")
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
 End If
 Set objXMLParent2 = Nothing
 Set objXMLParent2 = MoveChildElements(objXMLParent, objXMLParent2)
 Set objXMLNode = ChildElementByName(objXMLParent2, "Macro") 
 If objXMLNode is Nothing Then
 Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
 End If
 If objXMLNode.BaseName <> "Macro" Then
 Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
 End If
 If objXMLNode.Text <> "macro node 1" Then
 Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
 End If