Posted by Albert Gareev on Jul 25, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Iterate to index. Change value for existing CData node. Otherwise create new child nodes till index. Implementation Private Function p_SetXMLElementCDataByIndex(ByRef objXMLElement, ByVal intIndex,ByVal sValue) Dim objXMLDoc, objCDataNode Dim objColl, Iter, IndexIter Set objColl = objXMLElement.ChildNodes IndexIter = -1 For Iter=0 To ...
Posted by Albert Gareev on Jul 24, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Remove all existing child CData nodes. Create a new CData node. Implementation Private Function p_SetXMLElementCData(ByRef objXMLElement, ByVal sValue) Dim objXMLDoc, objCDataNode Dim objColl, Iter 'Remove all Set objColl = objXMLElement.ChildNodes Count = objColl.length-1 Iter = 0 Do While Iter [...] ...
Posted by Albert Gareev on Jul 23, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Get CData text from a child node specified by index. Implementation Private Function p_GetXMLElementCDataByIndex(ByRef objXMLElement, ByVal intIndex) Dim objColl, Iter, IndexIter Set objColl = objXMLElement.ChildNodes IndexIter = -1 For Iter=0 To objColl.length-1 If objColl.Item(Iter).NodeName = "#cdata-section" Then ...
Posted by Albert Gareev on Jul 22, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Get CData text, combined from all child CData nodes. Implementation Private Function p_GetXMLElementCData(ByRef objXMLElement) Dim objColl, Iter Dim sResult Set objColl = objXMLElement.ChildNodes sResult = "" For Iter=0 To objColl.length-1 If objColl.Item(Iter).NodeName = "#cdata-section" Then sResult = ...
Posted by Albert Gareev on Jul 19, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Iterate to index. Change value for existing text node. Otherwise create new child nodes till index. Implementation Private Function p_SetXMLElementTextByIndex(ByRef objXMLElement, ByVal intIndex, ByVal sValue) Dim objXMLDoc, objTextNode Dim objColl, Iter, IndexIter Set objColl = objXMLElement.ChildNodes IndexIter = -1 For Iter=0 To ...
Posted by Albert Gareev on Jul 18, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Remove all existing child text nodes. Create a new text node. Implementation Private Function p_SetXMLElementText(ByRef objXMLElement, ByVal sValue) Dim objXMLDoc, objTextNode Dim objColl, Iter, Count 'Remove all Set objColl = objXMLElement.ChildNodes Count = objColl.length-1 Iter = 0 Do While [...] ...
Posted by Albert Gareev on Jul 17, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Get inner text from a child node specified by index. Implementation Private Function p_GetXMLElementTextByIndex(ByRef objXMLElement, ByVal intIndex) Dim objColl, Iter, IndexIter Set objColl = objXMLElement.ChildNodes IndexIter = -1 For Iter=0 To objColl.length-1 If objColl.Item(Iter).NodeName = "#text" Then IndexIter = ...
Posted by Albert Gareev on Jul 16, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Get inner text, combined from all child text nodes. Implementation Private Function p_GetXMLElementText(ByRef objXMLElement) Dim objColl, Iter Dim sResult Set objColl = objXMLElement.ChildNodes sResult = "" For Iter=0 To objColl.length-1 If objColl.Item(Iter).NodeName = "#text" Then sResult = [...] ...
Posted by Albert Gareev on Jul 10, 2008
The Limited Warranty that appears above is the only express warranty made to you and is provided in lieu of any other express warranties or similar obligations (if any) created by any advertising, documentation, packaging, or other communications. Except for the Limited Warranty and to the maximum extent permitted by applicable law, COMPANY and its suppliers [...] ...
Posted by Albert Gareev on Jul 06, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Iterate to index. Change value for existing comment. Otherwise create new child nodes till index. Implementation Private Function p_SetXMLElementCommentByIndex(ByRef objXMLElement, ByVal intIndex, ByVal sValue) Dim objXMLDoc, objCommentNode Dim objColl, Iter, IndexIter Set objColl = objXMLElement.ChildNodes IndexIter = -1 For Iter=0 To ...
Posted by Albert Gareev on Jul 05, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Remove all existing comments. Create a new node. Implementation Private Function p_SetXMLElementComment(ByRef objXMLElement, ByVal sValue) Dim objXMLDoc, objCommentNode Dim objColl, Iter, Count 'Remove all Set objColl = objXMLElement.ChildNodes Count = objColl.length-1 Iter = 0 Do While Iter <= Count [...] ...
Posted by Albert Gareev on Jul 04, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Get comment text from a child node specified by index. Implementation Private Function p_GetXMLElementCommentByIndex(ByRef objXMLElement, ByVal intIndex) Dim objColl, Iter, IndexIter Set objColl = objXMLElement.ChildNodes IndexIter = -1 For Iter=0 To objColl.length-1 If objColl.Item(Iter).NodeName = "#comment" Then ...
Posted by Albert Gareev on Jul 03, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Get comment text, combined from all child comment nodes. Implementation Private Function p_GetXMLElementComment(ByRef objXMLElement) Dim objColl, Iter Dim sResult Set objColl = objXMLElement.ChildNodes sResult = "" For Iter=0 To objColl.length-1 If objColl.Item(Iter).NodeName = "#comment" Then sResult = ...
