Posted by Albert Gareev on Aug 30, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Sets text value for the child XML node specified via XPath query. Note: creates a new XML node if nothing was found. Implementation Public Function SetChildElementByAttr(ByRef objXMLParent, ByVal sTagName, ByVal sAttrName, ByVal sValue) Dim objNode sTagName = Trim(sTagName) sAttrName = Trim(sAttrName) sValue = CStr(sValue) [...] ...
Posted by Albert Gareev on Aug 28, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Returns text value of a child XML node found via XPath query. Implementation Public Function GetChildElementValueByAttr(ByRef objXMLParent, ByVal sTagName, ByVal sAttrName) Dim objNode sTagName = Trim(sTagName) sAttrName = Trim(sAttrName) If objXMLParent is Nothing Then GetChildElementValueByAttr = "" Exit Function End If Set ...
Posted by Albert Gareev on Aug 27, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Returns child XML node via XPath query. Implementation Public Function GetChildElementByAttr(ByRef objXMLParent, ByVal sTagName, ByVal sAttrName) Dim objNode sTagName = Trim(sTagName) sAttrName = Trim(sAttrName) If objXMLParent is Nothing Then Set GetChildElementByAttr = Nothing Exit Function End If Set objNode = ...
Posted by Albert Gareev on Aug 20, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Returns text value of a child XML node. Implementation Public Function ChildElementValueByName(ByRef objXMLParent, ByVal sTagName) Dim objNode If objXMLParent is Nothing Then Set ChildElementValueByName = "" Exit Function End If Set objNode = objXMLParent.SelectSingleNode("./"&sTagName) If isNull(objNode) Or (objNode is ...
Posted by Albert Gareev on Aug 19, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Returns child node by tag name. Implementation Public Function ChildElementByName(ByRef objXMLParent, ByVal sTagName) Dim objNode If objXMLParent is Nothing Then Set ChildElementByName = Nothing Exit Function End If Set objNode = objXMLParent.SelectSingleNode("./"&sTagName) If isNull(objNode) Or (objNode is Nothing) Then Set ...
Posted by Albert Gareev on Aug 14, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Dispatcher type function. Sets child node by name: attribute, text, comment, CData See Test Code section for examples. Implementation Public Function SetXMLElementProperty(ByRef objXMLElement, ByVal sProperty, ByVal intIndex, ByVal sPropertyValue) Dim boolRC Dim sAttrName If objXMLElement is Nothing Then SetXMLElementProperty = False [...] ...
Posted by Albert Gareev on Aug 12, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Dispatcher type function. Reads child node by name: attribute, text, comment, CData See Test Code section for examples. Implementation Public Function GetXMLElementProperty(ByRef objXMLElement, ByVal sProperty, ByVal intIndex, ByRef sPropertyValue) Dim sAttrName If objXMLElement is Nothing Then GetXMLElementProperty = False Exit Function End If ...
Posted by Albert Gareev on Aug 10, 2008
What is it? IDEF0 is abbreviation for Integration Definitions for Functional Modeling [of Systems]. Zero means type of modeling. (IDEF0 – function modeling, IDEF1 – information modeling, IDEF2 – dynamics modeling). How it looks? Image courtesy: Wikipedia How it works? Image courtesy: Berry College ...
Posted by Albert Gareev on Aug 06, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Set value of a child attribute. Implementation Private Function p_SetXMLElementAttrText(ByRef objXMLElement, ByVal sAttrName, ByVal sValue) Dim boolRC, intRC On Error Resume Next Call objXMLElement.SetAttribute(sAttrName, sValue) intRC = Err.Number On Error GoTo 0 boolRC = intRC <> 0 [...] ...
Posted by Albert Gareev on Aug 05, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Returns value of a child attribute. Implementation Private Function p_GetXMLElementAttrText(ByRef objXMLElement, ByVal sAttrName) Dim sResult sResult = objXMLElement.GetAttribute(sAttrName) If isNull(sResult) Then sResult = "" End If p_GetXMLElementAttrText = sResult End Function ...
