function LoadXml($filename)



 dim $, $rootNode



 $loadXml = CreateObject("Microsoft.XMLDOM");



 if not $loadXml

  return

 endif



 $= $loadXml.Load($filename)



endfunction





function WriteXmlValue($xml, $path, $value)



 dim $p, $rootNode, $sectionNode, $parentNode, $childNode



 $sectionNode = $xml.SelectSingleNode($path);



 if not $sectionNode



  $parentNode = $xml



  for each $node in split($path,"/")



   $p = $p + $node



   $sectionNode = $xml.SelectSingleNode($p)



   if not $sectionNode



    $sectionNode = $xml.CreateElement($node)



    $parentNode = $parentNode.AppendChild($sectionNode)



   else



    $parentNode = $sectionNode



   endif



   $p = $p + "/"



  next



 endif



 if $sectionNode

  $sectionNode.Text = $value

 endif



endfunction



function SaveXml($xml, $filename)



 $SaveXml = $xml.Save($filename);



endfunction





function ReadXmlValue($xml, $key, optional $defaultValue)



 dim $sectionNode



 $sectionNode = $xml.SelectSingleNode($key);



 if not $sectionNode

  $ReadXmlValue = $defaultValue;

 else

  $ReadXmlValue = $sectionNode.FirstChild.Text;

 endif



endfunction

function WriteXmlString($filename, $path, $value)



 dim $xmlDoc, $rootNode, $sectionNode;



 $xmlDoc = CreateObject("Microsoft.XMLDOM");



 if not $xmlDoc

  return

 endif



 if not $xmlDoc.Load($filename)



  $rootNode = $xmlDoc.createElement("configuration");

  $= $xmlDoc.AppendChild($rootNode);



 endif



 $sectionNode = $xmlDoc.SelectSingleNode("/configuration/" + $path);



 if not $sectionNode



  $sectionNode = $xmlDoc.documentElement



  for each $node in split($path,"/")



   $childNode = $xmlDoc.CreateElement($node)



   $= $sectionNode.AppendChild($childNode)



   $sectionNode = $childNode



  next



 endif



 $sectionNode.Text = $value;



 $= $xmlDoc.Save($filename);



 return



endfunction

 

function ReadXmlString($filename, $key, optional $defaultValue)



 dim $xmlDoc, $sectionNode



 $xmlDoc = CreateObject("Microsoft.XMLDOM")



 if not $xmlDoc

  return

 endif



 $= $xmlDoc.Load($filename)

 

 $sectionNode = $xmlDoc.SelectSingleNode("/configuration/" + $key);



 if not $sectionNode

  $ReadXmlString = $defaultValue;

 else

  $ReadXmlString = $sectionNode.FirstChild.Text;

 endif



endfunction

function LoadXml($filename)

 dim $, $rootNode

 $loadXml = CreateObject("Microsoft.XMLDOM");

 if not $loadXml
  return
 endif

 if not $loadXml.Load($filename)

  $rootNode = $loadXml.createElement("root");

  if $rootNode

   $= $loadXml.AppendChild($rootNode);

  endif

 endif

endfunction

function SaveXml($xml, $filename)

 $SaveXml = $xml.Save($filename);

endfunction

function WriteXmlString($xml, $path, $value)

 dim $rootNode, $sectionNode;

 $sectionNode = $xml.SelectSingleNode("/root/" + $path);

 if not $sectionNode

  $sectionNode = $xml.documentElement

  for each $node in split($path,"/")

   $childNode = $xml.CreateElement($node)

   $sectionNode = $sectionNode.AppendChild($childNode)

  next

 endif

 $sectionNode.Text = $value;

 return

endfunction

function ReadXmlString($xml, $key, optional $defaultValue)

 dim $sectionNode

 $sectionNode = $xml.SelectSingleNode("/root/" + $key);

 if not $sectionNode
  $ReadXmlString = $defaultValue;
 else
  $ReadXmlString = $sectionNode.FirstChild.Text;
 endif

endfunction

Quote:

---

The selectSingleNode method returns a Node object for the first descendant node to match the specified pattern. The one parameter of this method is an XSL pattern query. If no match is made, it returns null. This method is similar to the selectNodes method, but returns only the first node to match the pattern rather than all of them.

---

<korg>
 <shawn>
  <number>119</number>
  <lastname>tassie</lastname>
 </shawn>
</korg>

  

Break on



$filename = "C:Temp\Shawn.xml"

$xml = LoadXml($filename)



$= WriteXmlValue($xml, "korg/shawn/City", "Toronto")

$= WriteXmlValue($xml, "korg/shawn/Country", "Canada")

$= WriteXmlValue($xml, "korg/shawn/Registred", "17/08/1999")



$= WriteXMLattrib($xml, "korg/shawn", "Id", "5200")

$= WriteXMLattrib($xml, "korg/shawn", "Age", "25")

	

SaveXml($xml, $filename)

$xml = 0

 

Break on	

$filename = "C:Temp\Shawn.xml"	

$xml = LoadXml($filename)	



$ShawnCity = ReadXmlValue($xml, "korg/shawn/City")

$ShawnCountry = ReadXmlValue($xml, "korg/shawn/Country")

$ShawnRegistred = ReadXmlValue($xml, "korg/shawn/Registred")





$ShawnId = RearXMLattrib($xml, "korg/shawn", "Id")

$ShawnAge = RearXMLattrib($xml, "korg/shawn", "Age")



? "Shawn Id Attribute= "+$ShawnId

? "Shawn Age Attribute= "+$ShawnAge



? "Shawn City Value= "+$ShawnCity

? "Shawn Country Value= "+$ShawnCountry

? "Shawn Registred Value= "+$ShawnRegistred



$xml = 0



Sleep 5

Function LoadXml($filename)

	Dim $, $rootNode

	$loadXml = CreateObject("Microsoft.XMLDOM");	

 	If NOT $loadXml

		Return

 	EndIf

	$= $loadXml.Load($filename)

EndFunction



	

Function WriteXmlValue($xml, $path, $value)

	Dim $p, $rootNode, $sectionNode, $parentNode, $childNode

	$sectionNode = $xml.SelectSingleNode($path);

	If NOT $sectionNode

		$parentNode = $xml

		For Each $node In Split($path,"/")

			$p = $p + $node	

		   	$sectionNode = $xml.SelectSingleNode($p)

			If NOT $sectionNode

		     	$sectionNode = $xml.CreateElement($node)

		    		$parentNode = $parentNode.AppendChild($sectionNode)

		   	Else

		   		$parentNode = $sectionNode

		  	EndIf

		  	$p = $p + "/"

	  	Next	

 	EndIf

 	If $sectionNode

		$sectionNode.Text = $value

	EndIf

EndFunction



Function SaveXml($xml, $filename)

	$SaveXml = $xml.Save($filename);

EndFunction

	

Function ReadXmlValue($xml, $key, optional $defaultValue)

	Dim $sectionNode

	$sectionNode = $xml.SelectSingleNode($key);

	If NOT $sectionNode

		$ReadXmlValue = $defaultValue;

	Else

		$ReadXmlValue = $sectionNode.FirstChild.Text;

	EndIf

EndFunction



Function WriteXMLattrib($xml, $Path, $Attr, $Value)

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)

	$eu = $AttrTag.SetAttribute($Attr,$Value);

EndFunction





Function RearXMLattrib($xml, $Path, $Attr)

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	$RearXMLattrib =$AttrName.getAttribute($Attr)	

EndFunction	

- <korg>

  - <shawn Id="5200" Age="25">

      <City>Toronto</City> 

      <Country>Canada</Country> 

      <Registred>17/08/1999</Registred> 

    </shawn>

 </korg>   

<labrador>

	<dogchow>

		<poo>

			<fluffydog>Wag tail</fluffydog>

			<neighbors>Pinch nose</neighbors>

			<jim>Ignore responsibility</jim>

			<wife>Clean poo</wife>

		</poo>

	</dogchow>

</labrador>  

$objXMLDoc = CreateObject("Microsoft.XMLDOM") 
$objXMLDoc.async = False
$=$objXMLDoc.load("C:\my.xml") 

$j = " version = " + chr(34) +"1.0" + chr(34)

Dim $objNewPI, $currNode 
$objNewPI = $objXMLDoc.createProcessingInstruction("xml", $j)
? "EE0:"@error 
? "ES0:"@Serror 
  
$d = $objXMLDoc.firstChild  
? "EE1:"@error 
? "ES1:"@Serror 
$= $objXMLDoc.insertBefore ($objNewPI,$d)
$= $objXMLDoc.save("C:\my.xml")

$objXMLDoc = CreateObject("Microsoft.XMLDOM") 
? "Before "$objXMLDoc.async
$objXMLDoc.async = False
? "After "$objXMLDoc.async  

 
$objNewPI = $objXMLDoc.createProcessingInstruction("xml", $j)
 

function LoadXml($filename)
 dim $, $rootNode, $objNewPI, $strType

 $loadXml = CreateObject("Microsoft.XMLDOM");
 $loadXml.async = False
 $loadXml.preserverwhitespace = True

 if not $loadXml
  return
 endif

 $ = $loadXml.Load($filename)
 $strType = " version = " + chr(34) + "1.0" + chr(34)
 $objNewPI = $loadXml.createProcessingInstruction("xml", $strType)
 $ = $loadXml.insertBefore ($objNewPI,$objXMLDoc.firstChild)
 
endfunction  

Quote:

---

I'm playing around with this a bit, but Kix doesn't seem to handle this object model correctly?

---

  

$objNewPI = $loadXml.createProcessingInstruction("xml", $strType)

 

$ = $loadXml.insertBefore ($objNewPI,$objXMLDoc.firstChild)

Quote:

---

xml is lot more than the lame com stuff used in this thread.

---

Quote:

---

Jim, not too sure I would dismiss XML so quickly. Personally, I'm hoping to get some screaming performance gains versus the builtin WriteLine and WriteProfileString functions. Although I have no data to back this up, the Kixtart builtins are slow as hell (especially writing stuff). Think some benchmarking is in order.

---

Quote:

---

The other thing ... wish I could figure-out a way to get the output XML properly formatted. When notepadding the result, all the data is scrunched into one long line. Must be a way to introduce some formatting in there.

---

break on

$nul=SetOption("ASCII","On")

$nul=SetOption("Explicit","On")



Dim $filename,$xml,$



$filename = "C:\HailToTheKingBaby.xml"



$xml = LoadXml($filename)



$= WriteXmlValue($xml, "korg/shawn/number", 119)

$= WriteXmlValue($xml, "korg/jose/number", 1772)

$= WriteXmlValue($xml, "korg/jooel/number", 2087)



?"Value=" ReadXmlValue($xml, "korg/jose/number")



SaveXml($xml, $filename)

$xml = 0

exit 1



function LoadXml($filename)

 	dim $, $rootNode, $objNewPI, $strType



 	$loadXml = CreateObject("Microsoft.XMLDOM")

 	$loadXml.async = False

 	$loadXml.preserverwhitespace = True



 	if not $loadXml

  		return

 	endif



 	$ = $loadXml.Load($filename)

endfunction  





Function FormatXML($objXMLDOM)

	Dim $,$strXSL,$objXSL

	;Create and Load XSL

	; <?xml version="1.0" encoding="UTF-8"?>

	; <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

	;   <xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>

	;   <xsl:template match="/ | @* | node()">

	;     <xsl:copy>

	; 		<xsl:apply-templates select="@* | node()" />

	; 	</xsl:copy>

	;   </xsl:template>

	; </xsl:stylesheet>

	

	$strXSL = "<?xml version=" + chr(34) + "1.0" + chr(34) + " encoding=" + 

		chr(34) + "UTF-8" + chr(34) + "?>" + @CRLF

	$strXSL = $strXSL + "<xsl:stylesheet version=" + chr(34) + "1.0" + chr(34) + 

		" xmlns:xsl=" + chr(34) + "http://www.w3.org/1999/XSL/Transform" + 

		chr(34) + ">" + @CRLF

	$strXSL =  $strXSL + "<xsl:output method=" + chr(34) + "xml" + chr(34) + 

		" version=" + chr(34) + "1.0" + chr(34) + " encoding=" + chr(34) + 

		"UTF-8" + chr(34) + " indent=" + chr(34) + "yes" + chr(34) + "/>" + @CRLF

	$strXSL =  $strXSL + "<xsl:template match=" + chr(34) + "/ | @@* | node()" + 

		chr(34) + ">" + @CRLF

	$strXSL =  $strXSL + "<xsl:copy>"+ @CRLF

	$strXSL =  $strXSL + "<xsl:apply-templates select=" + chr(34) + 

		"@@* | node()" + chr(34) + " />"+ @CRLF

	$strXSL =  $strXSL + "</xsl:copy>"+ @CRLF

	$strXSL =  $strXSL + "</xsl:template>"+ @CRLF

	$strXSL =  $strXSL + "</xsl:stylesheet>"

	

	;? "XLM Stylesheet: " + @CRLF + $strXSL

	

	$objXSL = CreateObject("Microsoft.XMLDOM")

	$objXSL.async = false

	$=$objXSL.loadXML($strXSL)



	;Transform file

	$objXMLDOM.TransformNodeToObject ($objXSL, $objXMLDOM)

	$formatXML = $objXMLDOM

EndFunction





function WriteXmlValue($xml, $path, $value)

	dim $p, $rootNode, $sectionNode, $parentNode, $childNode,$node

	$sectionNode = $xml.SelectSingleNode($path);

	

	if not $sectionNode

		$parentNode = $xml

		

		for each $node in split($path,"/")

			$p = $p + $node

   			$sectionNode = $xml.SelectSingleNode($p)



   			if not $sectionNode

    			$sectionNode = $xml.CreateElement($node)

    			$parentNode = $parentNode.AppendChild($sectionNode)

   			else

    			$parentNode = $sectionNode

   			endif

   			

   			$p = $p + "/"

  		next

	endif



	if $sectionNode

		$sectionNode.Text = $value

	endif

endfunction



function SaveXml($xml, $filename)

	$xml = formatXML($xml)

 	$SaveXml = $xml.Save($filename)

endfunction





function ReadXmlValue($xml, $key, optional $defaultValue)

 	dim $sectionNode



 	$sectionNode = $xml.SelectSingleNode($key);



 	if not $sectionNode

  		$ReadXmlValue = $defaultValue;

 	else

  		$ReadXmlValue = $sectionNode.FirstChild.Text;

 	endif

endfunction

  

Function WriteXMLattrib($xml, $Path, $Attr, $Value)

	Dim $SelectionTag,$AttrTag,$,$eu

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)

	If @Serror = "Member not found."

		$= WriteXmlValue($xml, $path, "")

		$SelectionTag = $xml.getElementsByTagName($Path)

		$AttrTag = $SelectionTag.item(0)

	EndIf

	$eu = $AttrTag.SetAttribute($Attr,$Value)

EndFunction





Function ReadXMLattrib($xml, $Path, $Attr)

	Dim $SelectionTag,$AttrName

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	If @Serror = "Member not found."

		$ReadXMLattrib = ""

		Exit @Error

	Else

		$ReadXMLattrib =$AttrName.getAttribute($Attr)

	EndIf

EndFunction 

  
Function WriteXMLattrib($xml, $Path, $Attr, $Value)

	Dim $SelectionTag,$AttrTag,$,$Write

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)
			
	If @ERROR = "-2147352573"

		$= WriteXmlValue($xml, $path, "")

		$SelectionTag = $xml.getElementsByTagName($Path)

		$AttrTag = $SelectionTag.item(0)

	EndIf

	$write = $AttrTag.SetAttribute($Attr,$Value)

EndFunction


Function ReadXMLattrib($xml, $Path, $Attr)

	Dim $SelectionTag,$AttrName

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	If @ERROR = "-2147352573"

		$ReadXMLattrib = ""

		Exit @Error

	Else

		$ReadXMLattrib =$AttrName.getAttribute($Attr)

	EndIf

EndFunction 

LoadXML()

Get data...

WriteXMLValue()

Get more data...

WriteXMLValue()

SaveXML()



and



LoadXML()

ReadXMLValue()

ReadXMLValue()

SaveXML()

WriteXMLValue()

ReadXMLValue()

WriteXMLValue()

ReadXMLValue()

ReadXMLValue()

WriteXMLValue()

Function EnumXML($xml)
	Dim $i,$a,$NodeList
	
	$NodeList = $xml.getElementsByTagName("*") 
	For Each $i In $NodeList 
		? "Element " +$i.tagName 
		;? "attributes: "      			$i.attributes
		;? "baseName: "         			$i.baseName
		;? "childNodes: "       			$i.childNodes
		;? "dataType: "         			$i.dataType
		;? "definition: "       			$i.definition
		? "firstChild: "       			$i.firstChild.nodeName
		? "lastChild: "        			$i.lastChild.nodeName
		;? "namespaceURI: "     			$i.namespaceURI
		? "nextSibling: "      			$i.nextSibling.nodeName
		;? "nodeName: "         			$i.nodeName
		;? "nodeType: "         			$i.nodeType
		;? "nodeTypeString: "   			$i.nodeTypeString
		;? "nodeValue: "        			$i.nodeValue
		;? "ownerDocument: "    			$i.ownerDocument
		? "parentNode: "       			$i.parentNode.nodeName
		;? "parsed: "           			$i.parsed
		;? "prefix: "           			$i.prefix
		;? "previousSibling: "  			$i.previousSibling.nodeName
		;? "specified: "        			$i.specified
		;? "tagName: "          			$i.tagName
		;? "text: "             			$i.text
		;? "xml: "              			$i.xml
		??
	Next
	
	
	;? "root: "$xml.documentElement.NodeName 

	;$a = xml_doc.getElementsByTagName("*")
	;for each $i in $a
;		item($i).text
;	next
; 	for each $i in $xml.documentElement.childNodes
; 		Dim $k,$m
; 		? "lvl1: " $xml.documentElement.NodeName + "/" + $i.nodeName
; 		;GetXMLChildElements($xml,$xml.documentElement.NodeName + "/" + $i.nodeName)
; 	next
EndFunction  

  

LoadXML() - Load an existing .XML file, instantiate XMLDOM object for use regardless of file existance.

SaveXML() - Saves an XMLDOM object

FormatXML() - Formats the output style of an XMLDOM object to the standard



EnumXMLElement() - Enums child elements of a given element

EnumXMLAttr() - Enums all attributes of an element



CreateXMLElement() - Creates an empty element pair

RemoveXMLElement() - Deletes an XML element (Recursively?)



WriteXMLValue() - Writes a value to an XML element

ReadXMLValue() - Reads the value of an XML element

 

WriteXMLAttr() - Writes an attribute to an XML element

ReadXMLAttr() - Read a specific attribute of an XML element

RemoveXMLAttr() - Deletes an XML element attribut

 

ApplyXSL() - Applies an XSL template.  (Much potential here for an expanded set, see

  http://www.devguru.com/Technologies/xslt/quickref/xslt_index.html 

or NTDOC's post above.

FilterXML() - Apply a filter to an XMLDOM object.  (Search the db.  XSL related.)

  

Function RemoveXMLattr($xml, $Path, $attr, optional $id)



	Dim $SelectionTag,$AttrTag,$erase



	$SelectionTag = $xml.getElementsByTagName($Path)

	

	If $id=""

		$id=0

	EndIf

			

	$AttrTag = $SelectionTag.item($id)

			

	$erase = $AttrTag.removeAttribute($attr)

	

EndFunction

<?xml version="1.0" encoding="UTF-8" ?> 
<Albums>
   <Album ref="CD142" category="Folk">
      <title>Boil The Breakfast Early</title>
      <artist>The Chieftains</artist>
   </Album>
   <Album ref="CD720" category="Pop">
      <title>Come On Over</title>
      <artist>Shania Twain</artist>
   </Album>
   <Album ref="CD024" category="Country">
      <title>Red Dirt Girl</title>
      <artist>Emmylou Harris</artist>
   </Album>
</Albums>

  
$=RemoveXMLattr($xml, "Albums/Album", "category", 0)

 
   <Album ref="CD142" category="Folk">      <title>Boil The Breakfast Early</title>      <artist>The Chieftains</artist>   </Album>
 

  

- <korg>

- <shawn>

  <number>119</number> 

  </shawn>

- <jose>

  <number>1772</number> 

  </jose>

- <jooel>

  <number>2087</number> 

  </jooel>

  </korg>

  

- <Albums>

- <Album ref="CD142" category="Folk">

  <title>Boil The Breakfast Early</title> 

  <artist>The Chieftains</artist> 

  </Album>

- <Album ref="CD720" category="Pop">

  <title>Come On Over</title> 

  <artist>Shania Twain</artist> 

  </Album>

- <Album ref="CD024" category="Country">

  <title>Red Dirt Girl</title> 

  <artist>Emmylou Harris</artist> 

  </Album>

  </Albums>

Quote:

---

RemoveXMLElement() - Deletes an XML element (Recursively?)

---

; CreateXMLElement() - Creates an empty element pair

Function CreateXMLElement()



EndFunction



; EnumXMLAttr() - Enums all attributes of an element

Function EnumXMLAttr()



EndFunction



; EnumXMLElement() - Enums child elements of a given element

Function EnumXMLElement()



EndFunction



;FormatXML() - Formats the output style of an XMLDOM object to the standard

Function FormatXML($objXMLDOM)

	Dim $,$strXSL,$objXSL

	;Create and Load XSL

	; <?xml version="1.0" encoding="UTF-8"?>

	; <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

	;   <xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>

	;   <xsl:template match="/ | @* | node()">

	;     <xsl:copy>

	; 		<xsl:apply-templates select="@* | node()" />

	; 	</xsl:copy>

	;   </xsl:template>

	; </xsl:stylesheet>

	

	$strXSL = "<?xml version=" + chr(34) + "1.0" + chr(34) + " encoding=" + 

		chr(34) + "UTF-8" + chr(34) + "?>" + @CRLF

	$strXSL = $strXSL + "<xsl:stylesheet version=" + chr(34) + "1.0" + chr(34) + 

		" xmlns:xsl=" + chr(34) + "http://www.w3.org/1999/XSL/Transform" + 

		chr(34) + ">" + @CRLF

	$strXSL =  $strXSL + "<xsl:output method=" + chr(34) + "xml" + chr(34) + 

		" version=" + chr(34) + "1.0" + chr(34) + " encoding=" + chr(34) + 

		"UTF-8" + chr(34) + " indent=" + chr(34) + "yes" + chr(34) + "/>" + @CRLF

	$strXSL =  $strXSL + "<xsl:template match=" + chr(34) + "/ | @@* | node()" + 

		chr(34) + ">" + @CRLF

	$strXSL =  $strXSL + "<xsl:copy>"+ @CRLF

	$strXSL =  $strXSL + "<xsl:apply-templates select=" + chr(34) + 

		"@@* | node()" + chr(34) + " />"+ @CRLF

	$strXSL =  $strXSL + "</xsl:copy>"+ @CRLF

	$strXSL =  $strXSL + "</xsl:template>"+ @CRLF

	$strXSL =  $strXSL + "</xsl:stylesheet>"

	

	;? "XLM Stylesheet: " + @CRLF + $strXSL

	

	$objXSL = CreateObject("Microsoft.XMLDOM")

	$objXSL.async = false

	$=$objXSL.loadXML($strXSL)



	;Transform file

	$objXMLDOM.TransformNodeToObject ($objXSL, $objXMLDOM)

	$formatXML = $objXMLDOM

EndFunction



;LoadXML() - Load an existing .XML file, instantiate XMLDOM object for use 

;regardless of file existance.

Function LoadXML($filename)

 	dim $, $rootNode, $objNewPI, $strType



 	$loadXml = CreateObject("Microsoft.XMLDOM")

 	$loadXml.async = False

 	$loadXml.preserverwhitespace = True



 	if not $loadXml

  		return

 	endif



 	$ = $loadXml.Load($filename)

EndFunction  



; ReadXMLAttr() - Read a specific attribute of an XML element

Function ReadXMLAttr($xml, $Path, $Attr)

	Dim $SelectionTag,$AttrName

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	If @Serror = "Member not found."

		$ReadXMLAttr = ""

		Exit @Error

	Else

		$ReadXMLAttr =$AttrName.getAttribute($Attr)

	EndIf

EndFunction



;ReadXMLElement() - Reads the value of an XML element

Function ReadXMLValue($xml, $key, optional $defaultValue)

 	Dim $sectionNode

 	$sectionNode = $xml.SelectSingleNode($key)

 	If not $sectionNode

  		$ReadXmlValue = $defaultValue

 	Else

  		$ReadXmlValue = $sectionNode.FirstChild.Text

 	EndIf

EndFunction



; RemoveXMLAttr() - Deletes an XML element attribute

Function RemoveXMLAttr($xml, $Path, $attr, optional $id)

	Dim $SelectionTag,$AttrTag,$erase

	$SelectionTag = $xml.getElementsByTagName($Path)

	If $id=""

		$id=0

	EndIf

	$AttrTag = $SelectionTag.item($id)

	$erase = $AttrTag.removeAttribute($attr)

EndFunction



; RemoveXMLElement() - Deletes an XML element (Recursively?)

Function RemoveXMLElement()



EndFunction



;SaveXML() - Saves an XMLDOM object to a file

; Requires: FormatXML()

Function SaveXML($xml, $filename)

	$xml = FormatXML($xml)

 	$SaveXml = $xml.Save($filename)

EndFunction



; WriteXMLAttr() - Writes an attribute to an XML element

Function WriteXMLAttr($xml, $Path, $Attr, $Value)

	Dim $SelectionTag,$AttrTag,$,$eu

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)

	If @Serror = "Member not found."

		$ = WriteXmlValue($xml, $path, "")

		$SelectionTag = $xml.getElementsByTagName($Path)

		$AttrTag = $SelectionTag.item(0)

	EndIf

	$eu = $AttrTag.SetAttribute($Attr,$Value)

EndFunction



; WriteXMLValue() - Writes a value to an XML element

Function WriteXMLValue($xml, $path, $value)

	dim $p, $rootNode, $sectionNode, $parentNode, $childNode,$node

	$sectionNode = $xml.SelectSingleNode($path);

	

	if not $sectionNode

		$parentNode = $xml

		

		for each $node in split($path,"/")

			$p = $p + $node

   			$sectionNode = $xml.SelectSingleNode($p)



   			if not $sectionNode

    			$sectionNode = $xml.CreateElement($node)

    			$parentNode = $parentNode.AppendChild($sectionNode)

   			else

    			$parentNode = $sectionNode

   			endif

   			

   			$p = $p + "/"

  		next

	endif



	if $sectionNode

		$sectionNode.Text = $value

	endif

endfunction





; ******************************************************************************

; ApplyXSL() - Applies an XSL template.  (Much potential here for an expanded 

; set, see http://www.devguru.com/Technologies/xslt/quickref/xslt_index.html

Function ApplyXSL()



EndFunction



; FilterXML() - Apply a filter to an XMLDOM object.  (Search the db.  XSL related.)

Function FilterXML()



EndFunction  

; WriteXMLValue() - Writes a value to an XML element
Function WriteXMLValue($source, $path, $value)
	dim $, $p, $rootNode, $sectionNode, $parentNode, $childNode, $node, $xml
	; Begin Overloaded Var Sorting
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; End Overloaded Var Sorting
	
	$sectionNode = $xml.SelectSingleNode($path);
	
	if not $sectionNode
		$parentNode = $xml
		
		for each $node in split($path,"/")
			$p = $p + $node
   			$sectionNode = $xml.SelectSingleNode($p)

   			if not $sectionNode
    			$sectionNode = $xml.CreateElement($node)
    			$parentNode = $parentNode.AppendChild($sectionNode)
   			else
    			$parentNode = $sectionNode
   			endif
   			
   			$p = $p + "/"
  		next
	endif

	if $sectionNode
		$sectionNode.Text = $value
	endif
	
	; Begin Overloaded Var Exit Strategy
	If VarType($source) = 9
		; An object was passed. Since the object was passed by ref, no further
		; action necessary.
	Else
		If Instr($source,"<")=0
			; A file name was passed, so we write it out and destory the object
			SaveXML($xml, $source)
			$xml = 0
		Else
			; An XML string was passed
			; Cannot save the XML string as we have no file name to save to
			; so we return it.  Since the object was passed by ref, no further
			; action necessary.

		EndIf
	EndIf
	; End Overloaded Var Exit Strategy
endfunction  

Break On

$nul=SetOption("ASCII","On")

$nul=SetOption("Explicit","On")



Dim $filename1, $filename2, $filename3

Dim $xml, $



; This is an example by object

	$filename1 = "C:\KiXtartByObject.xml"

	

	$xml = LoadXml($filename1)

	

	$= WriteXmlValue($xml, "korg/shawn/number", 119)

	$= WriteXmlValue($xml, "korg/jose/number", 1772)

	$= WriteXmlValue($xml, "korg/jooel/number", 2087)

	$= WriteXmlValue($xml, "korg/jim/number",3555)

	

	$= WriteXMLAttr($xml, "korg/jim", "Id", 3555)

	$= WriteXMLAttr($xml, "korg/jim", "Age", 31)

	

	SaveXml($xml, $filename1)

	$xml = 0



; This is an example by filename

	$filename2 = "C:\KiXtartByFileName.xml"

	

	$= WriteXmlValue($filename2, "korg/shawn/number", 119)

	$= WriteXmlValue($filename2, "korg/jose/number", 1772)

	$= WriteXmlValue($filename2, "korg/jooel/number", 2087)

	$= WriteXmlValue($filename2, "korg/jim/number",3555)

	

	$= WriteXMLAttr($filename2, "korg/jim", "Id", 3555)

	$= WriteXMLAttr($filename2, "korg/jim", "Age", 31)

	

	? "Jim's age: " ReadXMLAttr($filename2, "korg/jim", "Age")

	? "Jose's Number: " ReadXmlValue($filename2, "korg/jose/number")

	

	$xml = 0





; This is an example by XML String

	$filename3 = "C:\KiXtartByXMLString.xml"

	Dim $strXML,$objXML

	

	$strXML = "<korg><jim><E-mail>jim@@foo.com</E-mail></jim></korg>"

	$strXML = WriteXmlValue($strXML, "korg/jim/id",3555) 

	; Note that after the initial write, the return becomes an object, therefore

	; capturing the returns isn't necessary, but doesn't hurt either and is consistent.

	$strXML = WriteXmlValue($strXML, "korg/jim/height",6)

	$strXML = WriteXmlValue($strXML, "korg/jim/weight",230)

	$strXML = WriteXmlValue($strXML, "korg/jim/eyes",2)

	

	$strXML = WriteXMLAttr($strXML, "korg/jim", "Age", 31)

	$strXML = WriteXMLAttr($strXML, "korg/jim", "Drink", "Beer")

	

	? "Jim's age: " ReadXMLAttr($strXML, "korg/jim", "Age")

	

	

	SaveXml($strXML, $filename3)

	

	? "Jim's Drink: " ReadXMLAttr($filename3, "korg/jim", "Age")

	$ = RemoveXMLAttr($filename3, "korg/jim", "Age")

	? "Jim's Drink: " ReadXMLAttr($filename3, "korg/jim", "Age")

	

	$strXML = 0

	

	

exit 1





; CreateXMLElement() - Creates an empty element pair

Function CreateXMLElement()



EndFunction



; EnumXMLAttr() - Enums all attributes of an element

Function EnumXMLAttr()



EndFunction



; EnumXMLElement() - Enums child elements of a given element

Function EnumXMLElement()



EndFunction



;FormatXML() - Formats the output style of an XMLDOM object to the standard

Function FormatXML($objXMLDOM)

	

	;? "V" vartype($objXMLDOM)



	Dim $,$strXSL,$objXSL

	;Create and Load XSL

	; <?xml version="1.0" encoding="UTF-8"?>

	; <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

	;   <xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>

	;   <xsl:template match="/ | @* | node()">

	;     <xsl:copy>

	; 		<xsl:apply-templates select="@* | node()" />

	; 	</xsl:copy>

	;   </xsl:template>

	; </xsl:stylesheet>



	$strXSL = "<?xml version=" + chr(34) + "1.0" + chr(34) + " encoding=" +

		chr(34) + "UTF-8" + chr(34) + "?>" + @CRLF

	$strXSL = $strXSL + "<xsl:stylesheet version=" + chr(34) + "1.0" + chr(34) +

		" xmlns:xsl=" + chr(34) + "http://www.w3.org/1999/XSL/Transform" +

		chr(34) + ">" + @CRLF

	$strXSL =  $strXSL + "<xsl:output method=" + chr(34) + "xml" + chr(34) +

		" version=" + chr(34) + "1.0" + chr(34) + " encoding=" + chr(34) +

		"UTF-8" + chr(34) + " indent=" + chr(34) + "yes" + chr(34) + "/>" + @CRLF

	$strXSL =  $strXSL + "<xsl:template match=" + chr(34) + "/ | @@* | node()" +

		chr(34) + ">" + @CRLF

	$strXSL =  $strXSL + "<xsl:copy>"+ @CRLF

	$strXSL =  $strXSL + "<xsl:apply-templates select=" + chr(34) +

		"@@* | node()" + chr(34) + " />"+ @CRLF

	$strXSL =  $strXSL + "</xsl:copy>"+ @CRLF

	$strXSL =  $strXSL + "</xsl:template>"+ @CRLF

	$strXSL =  $strXSL + "</xsl:stylesheet>"



	;? "XLM Stylesheet: " + @CRLF + $strXSL



	$objXSL = CreateObject("Microsoft.XMLDOM")

	$objXSL.async = false

	$=$objXSL.loadXML($strXSL)



	;Transform file

	$objXMLDOM.TransformNodeToObject ($objXSL, $objXMLDOM)

	$formatXML = $objXMLDOM

EndFunction



;LoadXML() - Load an existing .XML file, instantiate XMLDOM object for use

;regardless of file existance.

Function LoadXML($filename)

 	dim $, $rootNode, $objNewPI, $strType



 	$loadXml = CreateObject("Microsoft.XMLDOM")

 	$loadXml.async = False

 	$loadXml.preserverwhitespace = True



 	if not $loadXml

  		return

 	endif



 	$ = $loadXml.Load($filename)

EndFunction



; ReadXMLAttr() - Read a specific attribute of an XML element

Function ReadXMLAttr($source, $Path, $Attr)

	Dim $SelectionTag,$AttrName,$,$xml

	; *** Begin Overloaded Var Sorting ***

	If VarType($source) = 9

		; An object was passed

		$xml = $source

	Else

		If Instr($source,"<")=0

			; A file name was passed

			$xml = LoadXML($source)

		Else

			; An XML string was passed

			$xml = CreateObject("Microsoft.XMLDOM")

			$xml.async = false

			$=$xml.loadXML($source)

		EndIf

	EndIf

	; *** End Overloaded Var Sorting ***



	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	If @ERROR = "-2147352573"

		$ReadXMLAttr = ""

		Exit @Error

	Else

		$ReadXMLAttr =$AttrName.getAttribute($Attr)

	EndIf



	; Begin Overloaded Var Exit Strategy

		; None needed

	; End Overloaded Var Exit Strategy

EndFunction



;ReadXMLElement() - Reads the value of an XML element

Function ReadXMLValue($source, $key, optional $defaultValue)

 	Dim $sectionNode,$xml,$

 	

 	; *** Begin Overloaded Var Sorting ***

	If VarType($source) = 9

		; An object was passed

		$xml = $source

	Else

		If Instr($source,"<")=0

			; A file name was passed

			$xml = LoadXML($source)

		Else

			; An XML string was passed

			$xml = CreateObject("Microsoft.XMLDOM")

			$xml.async = false

			$=$xml.loadXML($source)

		EndIf

	EndIf

	

	; *** End Overloaded Var Sorting ***

	 

	 $sectionNode = $xml.SelectSingleNode($key)

 	If not $sectionNode

  		$ReadXmlValue = $defaultValue

 	Else

  		$ReadXmlValue = $sectionNode.FirstChild.Text

 	EndIf

EndFunction



; RemoveXMLAttr() - Deletes an XML element attribute

Function RemoveXMLAttr($source, $Path, $attr, optional $id)

	Dim $SelectionTag,$AttrTag,$erase,$,$xml

	

	; *** Begin Overloaded Var Sorting ***

	If VarType($source) = 9

		; An object was passed

		$xml = $source

	Else

		If Instr($source,"<")=0

			; A file name was passed

			$xml = LoadXML($source)

		Else

			; An XML string was passed

			$xml = CreateObject("Microsoft.XMLDOM")

			$xml.async = false

			$=$xml.loadXML($source)

		EndIf

	EndIf

	; *** End Overloaded Var Sorting ***

	

	$SelectionTag = $xml.getElementsByTagName($Path)

	If $id=""

		$id=0

	EndIf

	$AttrTag = $SelectionTag.item($id)

	$erase = $AttrTag.removeAttribute($attr)

	

	; Begin Overloaded Var Exit Strategy

	If VarType($source) = 9

		; An object was passed.

		$RemoveXMLAttr = $xml

	Else

		If Instr($source,"<")=0

			

			; A file name was passed, so we write it out and destory the object

			SaveXML($xml, $source)

		Else

			; An XML string was passed. 

			$RemoveXMLAttr = $xml



		EndIf

	EndIf

	; End Overloaded Var Exit Strategy

	

EndFunction



; RemoveXMLElement() - Deletes an XML element (Recursively?)

Function RemoveXMLElement()



EndFunction



;SaveXML() - Saves an XMLDOM object to a file

; Requires: FormatXML()

Function SaveXML($xml, $filename)

	$xml = FormatXML($xml)

 	$SaveXml = $xml.Save($filename)

EndFunction



Function WriteXMLAttr($source, $Path, $Attr, $Value)

	Dim $SelectionTag,$AttrTag,$,$Write,$xml



	; *** Begin Overloaded Var Sorting ***

	If VarType($source) = 9

		; An object was passed

		$xml = $source

	Else

		If Instr($source,"<")=0

			; A file name was passed

			$xml = LoadXML($source)

		Else

			; An XML string was passed

			$xml = CreateObject("Microsoft.XMLDOM")

			$xml.async = false

			$=$xml.loadXML($source)

		EndIf

	EndIf

	; *** End Overloaded Var Sorting ***



	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)

	If @ERROR = "-2147352573"

		$ = WriteXmlValue($xml, $path, "")

		$SelectionTag = $xml.getElementsByTagName($Path)

		$AttrTag = $SelectionTag.item(0)

	EndIf

	$write = $AttrTag.SetAttribute($Attr,$Value)



	; Begin Overloaded Var Exit Strategy

	If VarType($source) = 9

		; An object was passed.

		$WriteXMLAttr = $xml

	Else

		If Instr($source,"<")=0

			

			; A file name was passed, so we write it out and destory the object

			SaveXML($xml, $source)

		Else

			; An XML string was passed. 

			$WriteXMLAttr = $xml



		EndIf

	EndIf

	; End Overloaded Var Exit Strategy

EndFunction



; WriteXMLValue() - Writes a value to an XML element

Function WriteXMLValue($source, $path, $value)

	dim $, $p, $rootNode, $sectionNode, $parentNode, $childNode, $node, $xml

	

	; *** Begin Overloaded Var Sorting ***

	If VarType($source) = 9

		; An object was passed

		$xml = $source

	Else

		If Instr($source,"<")=0

			; A file name was passed

			$xml = LoadXML($source)

		Else

			; An XML string was passed

			$xml = CreateObject("Microsoft.XMLDOM")

			$xml.async = false

			$=$xml.loadXML($source)

		EndIf

	EndIf

	; *** End Overloaded Var Sorting ***



	$sectionNode = $xml.SelectSingleNode($path);



	if not $sectionNode

		$parentNode = $xml



		for each $node in split($path,"/")

			$p = $p + $node

   			$sectionNode = $xml.SelectSingleNode($p)

   			if not $sectionNode

    			$sectionNode = $xml.CreateElement($node)

    			$parentNode = $parentNode.AppendChild($sectionNode)

   			else

    			$parentNode = $sectionNode

   			endif

   			$p = $p + "/"

  		next

	endif



	if $sectionNode

		$sectionNode.Text = $value

	endif



	; Begin Overloaded Var Exit Strategy

	If VarType($source) = 9

		; An object was passed.

		$WriteXMLValue = $xml

	Else

		If Instr($source,"<")=0

			

			; A file name was passed, so we write it out and destory the object

			SaveXML($xml, $source)

		Else

			; An XML string was passed. 

			$WriteXMLValue = $xml



		EndIf

	EndIf

	; End Overloaded Var Exit Strategy



endfunction





; ******************************************************************************

; ApplyXSL() - Applies an XSL template.  (Much potential here for an expanded

; set, see http://www.devguru.com/Technologies/xslt/quickref/xslt_index.html

Function ApplyXSL()



EndFunction



; FilterXML() - Apply a filter to an XMLDOM object.  (Search the db.  XSL related.)

Function FilterXML()



EndFunction





Function EnumXML($source)

	dim $nodelist,$i

	$NodeList = $source.getElementsByTagName("*") 

	For Each $i In $NodeList 

		? "Element " +$i.tagName 

		;? "attributes: "      			$i.attributes

		;? "baseName: "         			$i.baseName

		;? "childNodes: "       			$i.childNodes

		;? "dataType: "         			$i.dataType

		;? "definition: "       			$i.definition

		;? "firstChild: "       			$i.firstChild.nodeName

		;? "lastChild: "        			$i.lastChild.nodeName

		;? "namespaceURI: "     			$i.namespaceURI

		;? "nextSibling: "      			$i.nextSibling.nodeName

		;? "nodeName: "         			$i.nodeName

		;? "nodeType: "         			$i.nodeType

		;? "nodeTypeString: "   			$i.nodeTypeString

		;? "nodeValue: "        			$i.nodeValue

		;? "ownerDocument: "    			$i.ownerDocument

		;? "parentNode: "       			$i.parentNode.nodeName

		;? "parsed: "           			$i.parsed

		;? "prefix: "           			$i.prefix

		;? "previousSibling: "  			$i.previousSibling.nodeName

		;? "specified: "        			$i.specified

		;? "tagName: "          			$i.tagName

		;? "text: "             			$i.text

		? "xml: "              			$i.xml

		?

	Next

EndFunction

Break On
$nul=SetOption("ASCII","On")
$nul=SetOption("Explicit","On")
$nul=SetOption("WrapAtEOL","On")

Dim $filename1, $filename2, $filename3
Dim $xml, $

; This is an example by object
	$filename1 = "C:\KiXtartByObject.xml"

	$xml = LoadXml($filename1)

	$= WriteXmlValue($xml, "korg/shawn/number", 119)
	$= WriteXmlValue($xml, "korg/jose/number", 1772)
	$= WriteXmlValue($xml, "korg/jooel/number", 2087)
	$= WriteXmlValue($xml, "korg/jim/number",3555)

	$= WriteXMLAttr($xml, "korg/jim", "Id", 3555)
	$= WriteXMLAttr($xml, "korg/jim", "Age", 31)
	
	$= WriteXMLAttr($xml, "korg/jose", "Id", 4565)
	$= WriteXMLAttr($xml, "korg/jose", "Age", 22)
	
	$= WriteXMLAttr($xml, "korg/admins/jim", "Id", 1234)
	$= WriteXMLAttr($xml, "korg/admins/jim", "Age", 58)

	SaveXml($xml, $filename1)
	$xml = 0

; This is an example by filename
	$filename2 = "C:\KiXtartByFileName.xml"

	$= WriteXmlValue($filename2, "korg/shawn/number", 119)
	$= WriteXmlValue($filename2, "korg/jose/number", 1772)
	$= WriteXmlValue($filename2, "korg/jooel/number", 2087)
	$= WriteXmlValue($filename2, "korg/jim/number",3555)

	$= WriteXMLAttr($filename2, "korg/jim", "Id", 3555)
	$= WriteXMLAttr($filename2, "korg/jim", "Age", 31)

	? "Jim's age: " ReadXMLAttr($filename2, "korg/jim", "Age")
	? "Jose's Number: " ReadXmlValue($filename2, "korg/jose/number")

	$xml = 0


; This is an example by XML String
	$filename3 = "C:\KiXtartByXMLString.xml"
	Dim $strXML,$objXML

	$strXML = "<korg><jim><E-mail>jim@@foo.com</E-mail></jim></korg>"
	$strXML = WriteXmlValue($strXML, "korg/jim/id",3555)
	; Note that after the initial write, the return becomes an object, therefore
	; capturing the returns isn't necessary, but doesn't hurt either and is consistent.
	$strXML = WriteXmlValue($strXML, "korg/jim/height",6)
	$strXML = WriteXmlValue($strXML, "korg/jim/weight",230)
	$strXML = WriteXmlValue($strXML, "korg/jim/eyes",2)

	$strXML = WriteXMLAttr($strXML, "korg/jim", "Age", 31)
	$strXML = WriteXMLAttr($strXML, "korg/jim", "Drink", "Beer")

	? "Jim's age: " ReadXMLAttr($strXML, "korg/jim", "Age")
	? "Jim's Drink: " ReadXMLAttr($filename3, "korg/jim", "Drink")
	
	SaveXml($strXML, $filename3)

	$ = RemoveXMLAttr($filename3, "korg/jim", "Age")
	? "Jim's Age: " ReadXMLAttr($filename3, "korg/jim", "Age")

	$strXML = 0

; Enumerate elements and attributes
	Dim $colE
	Dim $colXMLElements
	Dim $colAttrs,$colAttr
	
	?? "Enuming All XML Elements"
	; Return all elements in the XML file
	$colXMLElements = EnumXMLElement($filename1,"*")
	For Each $colE In $colXMLElements
		? "XML Element Name : " + $colE.TagName
		;? "XML Element Value: " + $colE.Text
	Next
	
	?? "Enuming Child XML Elements of korg"
	; Return all elements in the XML file
	$colXMLElements = EnumXMLElement($filename1,"korg/*")
	For Each $colE In $colXMLElements
		? "XML Element Name : " + $colE.TagName
		;? "XML Element Value: " + $colE.Text
	Next
	
	?? "Enuming Child XML Elements of korg/shawn"
	; Return all elements in the XML file
	$colXMLElements = EnumXMLElement($filename1,"korg/shawn/*")
	For Each $colE In $colXMLElements
		? "XML Element Name : " + $colE.TagName
		;? "XML Element Value: " + $colE.Text
	Next
	
	?? "Enuming XML Number Elements and their values"
	; Return all "number" elements and their value
	$colXMLElements = EnumXMLElement($filename1,"number")
	For Each $colE In $colXMLElements
		? "XML Element Name : " + $colE.TagName
		? "XML Element Value: " + $colE.Text
	Next
	
	?? "Enuming XML Elements With Attributes and the attribute values (Without EnumXMLAttr)"
	; Return all elements that have attributes and enum the attr the long way
	$colXMLElements = EnumXMLElement($filename1,"*")
	For Each $colE In $colXMLElements
		If $colE.Attributes.length > 0
			? "XML Element Name : " + $colE.TagName
			Dim $strAttr
			For Each $strAttr In $colE.Attributes
				? "   XML Attribute Name : " + $strAttr.Name
				? "   XML Attribute Value: " + $strAttr.Value
			Next
		EndIf
	Next
	
	?? "Enuming XML Elements With Attributes and the attribute values (With EnumXMLAttr)"
	; Return all elements that have attributes and enum the attr the long way
	$colXMLElements = EnumXMLElement($filename1,"*")
	For Each $colE In $colXMLElements
		If $colE.Attributes.length > 0
			? "XML Element Name : " + $colE.TagName
			$colAttrs = EnumXMLAttr($filename1,$colE.parentNode.nodeName+ "/" + $colE.TagName)
			For Each $colAttr In $colAttrs
				? "XML Attribute Name : " + $colAttr.Name
				? "XML Attribute Value: " + $colAttr.Value
			Next
		EndIf
	Next

	?? "Enuming XML Attributes and the attribute values of a specific element (precise path)"
	$colAttrs = EnumXMLAttr($filename1,"korg/admins/jim")
	For Each $colAttr In $colAttrs
		? "XML Attribute Name : " + $colAttr.Name
		? "XML Attribute Value: " + $colAttr.Value
	Next
	
	?? "Enuming XML Attributes and the attribute values of a specific element (parent only path)"
	$colAttrs = EnumXMLAttr($filename1,"admins/jim")
	For Each $colAttr In $colAttrs
		? "XML Attribute Name : " + $colAttr.Name
		? "XML Attribute Value: " + $colAttr.Value
	Next
	
	?? "Enuming XML Attributes and the attribute values of the 1st element found called 'Jim'"
	$colAttrs = EnumXMLAttr($filename1,"jim")
	For Each $colAttr In $colAttrs
		? "XML Attribute Name : " + $colAttr.Name
		? "XML Attribute Value: " + $colAttr.Value
	Next
	
	
	?? "Creating the forums..."
	
	$=CreateXMLElement($filename1,"korg/forums/starters")
	$=CreateXMLElement($filename1,"korg/forums/scripts")
	$=CreateXMLElement($filename1,"korg/forums/General Discussion")
	$=CreateXMLElement($filename1,"korg/forums/COM")
	$=CreateXMLElement($filename1,"korg/forums/UDF")
	$=CreateXMLElement($filename1,"korg/forums/UDFs")
	$=CreateXMLElement($filename1,"korg/forums/Beta")
	$=CreateXMLElement($filename1,"korg/forums/Examples")
	
	?? "Listing forums"
	$colXMLElements = EnumXMLElement($filename1,"korg/forums/*")
	For Each $colE in $colXMLElements
		? "Forum Name : " + $colE.TagName
	Next	
	
	?? "Deleting error"
	$ = RemoveXMLElement($filename1,"forums/UDF")
	
	
	?? "Listing forums again"
	$colXMLElements = EnumXMLElement($filename1,"korg/forums/*")
	For Each $colE in $colXMLElements
		? "Forum Name : " + $colE.TagName
	Next
	
	?? "Deleting all forums"
	$ = RemoveXMLElement($filename1,"forums")
	
	?? "Listing forums again"
	$colXMLElements = EnumXMLElement($filename1,"korg/forums/*")
	For Each $colE in $colXMLElements
		? "Forum Name : " + $colE.TagName
	Next
exit 1


; CreateXMLElement() - Creates an empty element pair
Function CreateXMLElement($source,$path)
	$CreateXMLElement = WriteXMLValue($source,$path,"")
EndFunction

; EnumXMLAttr() - Enums all attributes of an element
Function EnumXMLAttr($source,$path)
	Dim $xml,$
	
	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***
	Dim $colXMLElements,$colE
	$colXMLElements = $xml.getElementsByTagName($path)
	If $colXMLElements.item(0).Attributes.length > 0
		$EnumXMLAttr = $colXMLElements.item(0).Attributes
	EndIf
EndFunction

; EnumXMLElement() - Enums child elements of a given element
Function EnumXMLElement($source,$path)
	Dim $xml,$
	
	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***
	;Select
	;	Case Right($path,1)= "/"
	;		$path = Left($path,Len($path)-1)
	;		;? "path "$path
	;		$EnumXMLElement = $xml.getElementsByTagName($path).Item(0)
	;		$EnumXMLElement = $EnumXMLElement.ChildNodes
	;	Case 1
	;		$EnumXMLElement = $xml.getElementsByTagName($path)
	;EndSelect
	$EnumXMLElement = $xml.getElementsByTagName($path)
EndFunction

;FormatXML() - Formats the output style of an XMLDOM object to the standard
Function FormatXML($objXMLDOM)

	;? "V" vartype($objXMLDOM)

	Dim $,$strXSL,$objXSL
	;Create and Load XSL
	; <?xml version="1.0" encoding="UTF-8"?>
	; <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
	;   <xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>
	;   <xsl:template match="/ | @* | node()">
	;     <xsl:copy>
	; 		<xsl:apply-templates select="@* | node()" />
	; 	</xsl:copy>
	;   </xsl:template>
	; </xsl:stylesheet>

	$strXSL = "<?xml version=" + chr(34) + "1.0" + chr(34) + " encoding=" +
		chr(34) + "UTF-8" + chr(34) + "?>" + @CRLF
	$strXSL = $strXSL + "<xsl:stylesheet version=" + chr(34) + "1.0" + chr(34) +
		" xmlns:xsl=" + chr(34) + "http://www.w3.org/1999/XSL/Transform" +
		chr(34) + ">" + @CRLF
	$strXSL =  $strXSL + "<xsl:output method=" + chr(34) + "xml" + chr(34) +
		" version=" + chr(34) + "1.0" + chr(34) + " encoding=" + chr(34) +
		"UTF-8" + chr(34) + " indent=" + chr(34) + "yes" + chr(34) + "/>" + @CRLF
	$strXSL =  $strXSL + "<xsl:template match=" + chr(34) + "/ | @@* | node()" +
		chr(34) + ">" + @CRLF
	$strXSL =  $strXSL + "<xsl:copy>"+ @CRLF
	$strXSL =  $strXSL + "<xsl:apply-templates select=" + chr(34) +
		"@@* | node()" + chr(34) + " />"+ @CRLF
	$strXSL =  $strXSL + "</xsl:copy>"+ @CRLF
	$strXSL =  $strXSL + "</xsl:template>"+ @CRLF
	$strXSL =  $strXSL + "</xsl:stylesheet>"

	;? "XLM Stylesheet: " + @CRLF + $strXSL

	$objXSL = CreateObject("Microsoft.XMLDOM")
	$objXSL.async = false
	$=$objXSL.loadXML($strXSL)

	;Transform file
	$objXMLDOM.TransformNodeToObject ($objXSL, $objXMLDOM)
	$formatXML = $objXMLDOM
EndFunction

;LoadXML() - Load an existing .XML file, instantiate XMLDOM object for use
;regardless of file existance.
Function LoadXML($filename)
 	dim $, $rootNode, $objNewPI, $strType

 	$loadXml = CreateObject("Microsoft.XMLDOM")
 	$loadXml.async = False
 	$loadXml.preserverwhitespace = True

 	if not $loadXml
  		return
 	endif

 	$ = $loadXml.Load($filename)
EndFunction

; ReadXMLAttr() - Read a specific attribute of an XML element
Function ReadXMLAttr($source, $Path, $Attr)
	Dim $SelectionTag,$AttrName,$,$xml
	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***

	$SelectionTag = $xml.getElementsByTagName($Path)
	$AttrName = $SelectionTag.item(0)
	If @ERROR = "-2147352573"
		$ReadXMLAttr = ""
		Exit @Error
	Else
		$ReadXMLAttr =$AttrName.getAttribute($Attr)
	EndIf

	; Begin Overloaded Var Exit Strategy
		; None needed
	; End Overloaded Var Exit Strategy
EndFunction

;ReadXMLElement() - Reads the value of an XML element
Function ReadXMLValue($source, $key, optional $defaultValue)
 	Dim $sectionNode,$xml,$

 	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***

	 $sectionNode = $xml.SelectSingleNode($key)
 	If not $sectionNode
  		$ReadXmlValue = $defaultValue
 	Else
  		$ReadXmlValue = $sectionNode.FirstChild.Text
 	EndIf
EndFunction

; RemoveXMLAttr() - Deletes an XML element attribute
Function RemoveXMLAttr($source, $Path, $attr, optional $id)
	Dim $SelectionTag,$AttrTag,$erase,$,$xml

	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***
	
	$SelectionTag = $xml.getElementsByTagName($Path)
	If $id=""
		$id=0
	EndIf
	$AttrTag = $SelectionTag.item($id)
	$erase = $AttrTag.removeAttribute($attr)

	; Begin Overloaded Var Exit Strategy
	If VarType($source) = 9
		; An object was passed.
		$RemoveXMLAttr = $xml
	Else
		If Instr($source,"<")=0

			; A file name was passed, so we write it out and destory the object
			SaveXML($xml, $source)
		Else
			; An XML string was passed.
			$RemoveXMLAttr = $xml

		EndIf
	EndIf
	; End Overloaded Var Exit Strategy

EndFunction

; RemoveXMLElement() - Deletes an XML element (Recursively?)
Function RemoveXMLElement($source,$path)
	Dim $SelectionTag,$AttrTag,$,$xml

	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***

	$SelectionTag = $xml.getElementsByTagName($path)
	Dim $i

	For $i=0 To $SelectionTag.Length - 1
		;? "Index "$i
		;? "Removing "$SelectionTag.item($i).TagName
		;? "Parent " $SelectionTag.item($i).ParentNode.TagName
		$=$SelectionTag.item($i).ParentNode.RemoveChild($SelectionTag.item($i))
		;? @Serror
	Next

	; Begin Overloaded Var Exit Strategy
	If VarType($source) = 9
		; An object was passed.
		$RemoveXMLElement = $xml
	Else
		If Instr($source,"<")=0

			; A file name was passed, so we write it out and destory the object
			SaveXML($xml, $source)
		Else
			; An XML string was passed.
			$RemoveXMLElement = $xml

		EndIf
	EndIf
	; End Overloaded Var Exit Strategy
EndFunction

;SaveXML() - Saves an XMLDOM object to a file
; Requires: FormatXML()
Function SaveXML($xml, $filename)
	$xml = FormatXML($xml)
 	$SaveXml = $xml.Save($filename)
EndFunction

Function WriteXMLAttr($source, $Path, $Attr, $Value)
	Dim $SelectionTag,$AttrTag,$,$Write,$xml

	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***

	$SelectionTag = $xml.getElementsByTagName($Path)
	$AttrTag = $SelectionTag.item(0)
	If @ERROR = "-2147352573"
		$ = WriteXmlValue($xml, $path, "")
		$SelectionTag = $xml.getElementsByTagName($Path)
		$AttrTag = $SelectionTag.item(0)
	EndIf
	$write = $AttrTag.SetAttribute($Attr,$Value)

	; Begin Overloaded Var Exit Strategy
	If VarType($source) = 9
		; An object was passed.
		$WriteXMLAttr = $xml
	Else
		If Instr($source,"<")=0

			; A file name was passed, so we write it out and destory the object
			SaveXML($xml, $source)
		Else
			; An XML string was passed.
			$WriteXMLAttr = $xml

		EndIf
	EndIf
	; End Overloaded Var Exit Strategy
EndFunction

; WriteXMLValue() - Writes a value to an XML element
Function WriteXMLValue($source, $path, $value)
	dim $, $p, $rootNode, $sectionNode, $parentNode, $childNode, $node, $xml

	; *** Begin Overloaded Var Sorting ***
	If VarType($source) = 9
		; An object was passed
		$xml = $source
	Else
		If Instr($source,"<")=0
			; A file name was passed
			$xml = LoadXML($source)
		Else
			; An XML string was passed
			$xml = CreateObject("Microsoft.XMLDOM")
			$xml.async = false
			$=$xml.loadXML($source)
		EndIf
	EndIf
	; *** End Overloaded Var Sorting ***

	$sectionNode = $xml.SelectSingleNode($path);

	if not $sectionNode
		$parentNode = $xml

		for each $node in split($path,"/")
			$p = $p + $node
   			$sectionNode = $xml.SelectSingleNode($p)
   			if not $sectionNode
    			$sectionNode = $xml.CreateElement($node)
    			$parentNode = $parentNode.AppendChild($sectionNode)
   			else
    			$parentNode = $sectionNode
   			endif
   			$p = $p + "/"
  		next
	endif

	if $sectionNode
		$sectionNode.Text = $value
	endif

	; Begin Overloaded Var Exit Strategy
	If VarType($source) = 9
		; An object was passed.
		$WriteXMLValue = $xml
	Else
		If Instr($source,"<")=0

			; A file name was passed, so we write it out and destory the object
			SaveXML($xml, $source)
		Else
			; An XML string was passed.
			$WriteXMLValue = $xml

		EndIf
	EndIf
	; End Overloaded Var Exit Strategy

endfunction


; ******************************************************************************
; ApplyXSL() - Applies an XSL template.  (Much potential here for an expanded
; set, see http://www.devguru.com/Technologies/xslt/quickref/xslt_index.html
Function ApplyXSL()

EndFunction

; FilterXML() - Apply a filter to an XMLDOM object.  (Search the db.  XSL related.)
Function FilterXML()

EndFunction


Function EnumXML($source)
	dim $nodelist,$i
	$NodeList = $source.getElementsByTagName("*")
	For Each $i In $NodeList
		? "Element " +$i.tagName
		;? "attributes: "      			$i.attributes
		;? "baseName: "         			$i.baseName
		;? "childNodes: "       			$i.childNodes
		;? "dataType: "         			$i.dataType
		;? "definition: "       			$i.definition
		;? "firstChild: "       			$i.firstChild.nodeName
		;? "lastChild: "        			$i.lastChild.nodeName
		;? "namespaceURI: "     			$i.namespaceURI
		;? "nextSibling: "      			$i.nextSibling.nodeName
		;? "nodeName: "         			$i.nodeName
		;? "nodeType: "         			$i.nodeType
		;? "nodeTypeString: "   			$i.nodeTypeString
		;? "nodeValue: "        			$i.nodeValue
		;? "ownerDocument: "    			$i.ownerDocument
		;? "parentNode: "       			$i.parentNode.nodeName
		;? "parsed: "           			$i.parsed
		;? "prefix: "           			$i.prefix
		;? "previousSibling: "  			$i.previousSibling.nodeName
		;? "specified: "        			$i.specified
		;? "tagName: "          			$i.tagName
		;? "text: "             			$i.text
		? "xml: "              			$i.xml
		?
	Next
EndFunction
  

LoadXML()
FormatXML()

WriteXmlValue()
CreateXMLElement()
WriteXMLAttr()

ReadXMLValue()
ReadXMLAttr()

EnumXMLElement()
EnumXMLAttr()

RemoveXMLAttr()
RemoveXMLElement()

SaveXML()

Quote:

---

Not sure if this is practical, but I'll throw it out there. With .XML becoming more and more prevalent, wouldn't it be nice to have functions to manipulate .XML files like the functions we have to manipulate .INI files?

---

Well...acomplish has been made. A rate is deserved.
Now its time to wait for dear Shawn to speack up about posting as UDF´s. Me going to country side till monday and that makes me happy.

DOC: I dont have Excel 2003 so as to try your links.