nodeType ) = 3 Then If StringLen ( $oChild. nodename ) Next EndFunc Func XML _GetTextNodeValue ( $oCallersNode ) Local $Text = "" For $oChild In $oCallersNode. RecursiveXPath ( $oNode, $sCurrentParentNodeXPath & "\" & $oNode. nodename If StringLen ( $sText ) > 0 Then $xpath &= "" EndIf _ArrayAdd ( $aXpaths, $xpath ) nodename = "#text" Then ContinueLoop $sText = XML _GetTextNodeValue ( $oNode ) $xpath = $sCurrentParentNodeXPath & "\" & $oNode.
childNodes For $oNode In $oNodes If $oNode.
NodeValue & "]" ) Next $oNodes = $oCurrentParentNode. attributes For $oAtt In $oAtts _ArrayAdd ( $aXpaths, $sCurrentParentNodeXPath & & $oAtt. nodename ) _ArrayDisplay ( $aXpaths ) Func RecursiveXPath ( $oCurrentParentNode, $sCurrentParentNodeXPath ) $oAtts = $oCurrentParentNode. I used a simple xml (an am not exporting the node.text, which would be an easy addition that you can do.Įxpand collapse popup $oXML = ObjCreate ( "Microsoft.XMLDOM" ) $sXML_File = & "\output.xml" $oXML. nodename = "#text" Then ContinueLoop _ArrayAdd ( $aXpaths, $sCurrentParentNodeXPath & "\" & $oNode.
(microsoft.xmldom)Įxample: $oXML = ObjCreate ( "Microsoft.XMLDOM" ) $sXML_File = & "\output.xml" $oXML. I'd use _arrayadd, and pass the array through the function, to continually add to it. You'll need to construct them yourself, by recursively traveling inward through the XML.
0 kommentar(er)
