Break On
$nul=SetOption("WrapAtEOL","on")
 
$sFromFile = "mycomputer.xml"
$sFromHttp = "http://www.nytimes.com/services/xml/rss/userland/Books.xml"
$sFromString = '
   <remoteDir>
     <dir>1394</dir>
     <dir>backoffice</dir>
     <dir>Clients</dir>
     <dir>distapps</dir>
     <dir>exchange</dir>
     <dir>GEN_INFO</dir>
     <dir>IIS</dir>
     <dir>lanman</dir>
     <dir>mail</dir>
     <dir>mcis</dir>
     <dir>mspress</dir>
     <file>
       <name>readme.txt</name>
       <size>1715</size>
       <lastModTime m="5" d="20" y="1996" hh="0" mm="0" ss="0" />
     </file>
     <file>
       <name>ReadMe1.txt</name>
       <size>2107</size>
       <lastModTime m="7" d="2" y="2002" hh="0" mm="0" ss="0" />
     </file>
     <dir>sitesrv</dir>
     <dir>sql</dir>
     <dir>Sysmgrsrv</dir>
     <dir>utilities</dir>
     <dir>viper</dir>
     <dir>winnt</dir>
     <dir>WinSock</dir>
   </remoteDir>'
$sFromError = '
   <remoteDir>
     <dir>1394</di>
   </remoteDir>'   
 
 
fnLoadXML($sFromFile,1) ?
@ERROR " | " @SERROR ?
Get $
 
fnLoadXML($sFromHttp,2) ?
@ERROR " | " @SERROR ?
Get $
 
fnLoadXML($sFromString,3) ?
@ERROR " | " @SERROR ?
Get $
 
fnLoadXML($sFromError,3) ?
@ERROR " | " @SERROR ?
Get $
 
Function fnLoadXML($sXML,$sFrom)
   ; $sFrom: 1 = File; 2 = HTTP; 3 = String
   Dim $xmlDoc,$xmlHttp,$nul
   
   $xmlDoc = CreateObject("Microsoft.XMLDOM")
   If @ERROR Exit 10 EndIf
   $xmlDoc.async = 0
   
   Select
   Case $sFrom = 1
      $nul = $xmlDoc.load($sXML)
   Case $sFrom = 2
      $xmlHttp = CreateObject("Microsoft.XMLHTTP")
      If @ERROR Exit 10 EndIf
      $xmlHttp.open("GET",$sXML,0)
      $xmlHttp.send()
      $nul = $xmlDoc.loadXML($xmlHttp.responseText)
   Case $sFrom = 3
      $nul = $xmlDoc.loadXML($sXML)
   Case 1 Exit 87
   EndSelect
   
   If $xmlDoc.parseError.errorCode
      $fnLoadXML = $xmlDoc.parseError.reason + $xmlDoc.parseError.line
      Exit $xmlDoc.parseError.errorCode
   EndIf
   
   $fnLoadXML = $xmlDoc.xml
   
EndFunction

Quote:

---

I'd like more comments regarding whether to return the XML as a string vs. an object

---

It should be an object. Your UDF is a "Load and Parse" udf, not a "Load, Parse and extract the text representation" UDF

More importantly, you will need the object to use things like $oXML.save("path") or getNamedItem or whatever in your other wrapper UDFs.

; ********** SimpleRSS.kix **********
 
Break On
$nul=SetOption("WrapAtEOL","on")
$nul=SetOption("NoVarsInStrings","on")
$nul=SetOption("Explicit","on")
 
Dim $sRSSFeed,$xml,$xmlNode,$y,$IE
 
$sRSSFeed = "http://www.nytimes.com/services/xml/rss/userland/Books.xml"
 
$xml = fnLoadXML($sRSSFeed,2)
If @ERROR @SERROR ? EndIf
 
For Each $xmlNode In $xml.getElementsByTagName("item")
   Color n/w "Title:" Color w " " + $xmlNode.ChildNodes(0).Text ??
   Color n/w "Description:" Color w " " + $xmlNode.ChildNodes(2).Text ??
   Color n/w "View the article? (Y/N)" Color w
   Get $y ??
   If $y = "y"
      $IE = CreateObject("InternetExplorer.Application") 
      $IE.Visible=1 
      $IE.Navigate($xmlNode.ChildNodes(1).Text) 
   EndIf
   "**************************************"+
   "**************************************" ??
Next
$IE = 0 
 
Function fnLoadXML($sXML,$sFrom)
   ; $sFrom: 1 = File; 2 = HTTP; 3 = String
   Dim $xmlDoc,$xmlHttp,$nul
   
   $xmlDoc = CreateObject("Microsoft.XMLDOM")
   If @ERROR Exit 10 EndIf
   $xmlDoc.async = 0
   
   Select
   Case $sFrom = 1
      If Not Exist($sXML) Exit 2 EndIf
      $nul = $xmlDoc.load($sXML)
   Case $sFrom = 2
      $xmlHttp = CreateObject("Microsoft.XMLHTTP")
      If @ERROR Exit 10 EndIf
      $xmlHttp.open("GET",$sXML,0)
      $xmlHttp.send()
      If $xmlHttp.status = 200
         $nul = $xmlDoc.loadXML($xmlHttp.responseText)
      Else
         $fnLoadXML = $xmlHttp.statusText
         Exit 2
      EndIf
   Case $sFrom = 3
      $nul = $xmlDoc.loadXML($sXML)
   Case 1 Exit 87
   EndSelect
   
   If $xmlDoc.parseError.errorCode
      $fnLoadXML = $xmlDoc.parseError.reason + $xmlDoc.parseError.line
      Exit $xmlDoc.parseError.errorCode
   EndIf
   
   $fnLoadXML = $xmlDoc

EndFunction

 

SaveXML("c:\temp\Albums.xml", "contact", "name", "first" , "Leonard") 

  

Function SaveXML($file, $root, $node, $child, $newvalue)	

    $MyXMLDOM = CreateObject("Microsoft.XMLDOM")

    $MyXMLDOM.async = False

    $MyXMLDOM.Load ($file)

    $MyXpath = "/$root/$node/$child"

    $MyNode = $MyXMLDOM.selectSingleNode('$MyXpath')

    $MyNode.Text = $newvalue

    $Node=$MyNode.Text

    $MyXMLDOM.save ('$file')

EndFunction 

Quote:

---

It uses Microsoft.XMLDOM, which is available with all versions of IE from ver 5 and up.

---

Intresting format the XML, could expand Kixforms posibilities.