Posted by Albert Gareev on Jun 30, 2008
In the code examples I present I often refer to routine functions. In my framework I have specialized libraries to call from. In my blog I maintain the similar structure. XML DOM Root Object CreateXMLDOMFromFile CreateXMLDOMFromString CreateXMLDOM Special Nodes XMLAddProcessingInstruction Create/Find/Modify XML Element GetXMLElementProperty SetXMLElementProperty CreateChildElementByName ChildElementByName ChildElementValueByName ...
Posted by Albert Gareev on Jun 25, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Create and add (append) child element node to parent with the tagname and inner text specified. Implementation Public Function CreateChildElementByName(ByRef objXMLParent, ByVal sTagName, ByVal sInnerText) Dim boolRC, intRC Dim objXMLDoc, objXMLNode, objTextNode If objXMLParent is Nothing Then Set CreateChildElementByName = Nothing Exit Function ...
Posted by Albert Gareev on Jun 20, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Add Processing Instruction node. Implementation Public Function XMLAddProcessingInstruction(ByRef objXMLDoc, ByVal sTarget, ByVal sData) Dim boolRC, intRC Dim objNode On Error Resume Next Set objNode = objXMLDoc.CreateProcessingInstruction(sTarget, sData) intRC = Err.Number On Error GoTo 0 boolRC = isNull(objNode) OR [...] ...
Posted by Albert Gareev on Jun 18, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Create XML DOM object with a root tag specified. If root tag is invalid returns Nothing. Implementation Public Function CreateXMLDOM(ByVal sRootTag) Dim boolRC, intRC Dim objXMLDoc, objXMLRoot Set objXMLDoc = CreateObject("Microsoft.XMLDOM") On Error Resume Next Set objXMLRoot = objXMLDoc.CreateElement(sRootTag) [...] ...
Posted by Albert Gareev on Jun 13, 2008
Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript) Description Create XML DOM object by loading it from a file. If file doesn’t exists returns Nothing. Implementation Public Function CreateXMLDOMFromFile(ByVal sFileName, ByVal boolAsync) Dim FSO, objXMLDoc Dim boolRC Set FSO = CreateObject("Scripting.FileSystemObject") boolRC = FSO.FileExists(sFileName) Set FSO = Nothing If Not [...] ...
Posted by Albert Gareev on Jun 10, 2008
To err is human, but to really foul things up requires a computer. Farmer’s Almanac, 1978 The problem with troubleshooting is that trouble shoots back. Author Unknown Never let a computer know you’re in a hurry. Author Unknown Treat your password like your toothbrush. Don’t let anybody else use it, and get a new one [...] ...
