Vaibhav Singh
QTP Profile
Professional
Subscribe Newsletter
VAIBHAV
SINGH
Quick Test Professional Profile- Microsoft XMLDOM
Microsoft XMLDOM
Below is some procedure through which we can read and write xmls using XMLDOM object.
Function updateTagValue(xmlPath ,tagName ,tagIndex ,updatingTagValue) Set objXMLDoc=CreateObject("Microsoft.XMLDOM") objXMLDoc.load (sFileNameInbound) If objXMLDoc.getElementsByTagName(sTagName).item(0).TagName = sTagName Then objXMLDoc.getElementsByTagName(sTagName).item(0).Text = trim(Datatable.Value(sColName,sSheetNm) ) End If objFil1.Write(objXMLDoc.xml) 'To close File Object objFil1.close End Function Public Function getTagValueFromXML(ByVal strXmlPath,ByVal strParentTag,ByVal strChildTag) Set objXMLDoc=CreateObject("Microsoft.XMLDOM") objXMLDoc.Load strXmlPath set objChild = objXMLDoc.getElementsByTagName(strParentTag).item(0).childNodes For Each node in objChild If strChildTag = node.nodeName Then strRefNum = node.Text Exit For End If Next getTagValueFromXML = strRefNum End Function