Since I am working with Open Office and has plenty of config files stored in xml I have found a very used feature wich is the attrib propertie. This propertie holds values within the XML tag.
Wrote two small UDFs for reading adn writting attributes by its path. WriteXMLattrib() and RearXMLattrib() .

Just run this code wich creates the xml file, if exist c:\temp.
Code:
  

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

Open the file and take a look at the values Id and Age, they are attributes of Shawn.

Run this script to see those values.
Code:
 

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


Functions:
Code:

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


I think we are getting to an intresting point, this is very fast and looks good to me.

BTW: I cannot paste XML code cause we "Newbyes" dont have ATTRIBUTES !!! for that sort of pleasures.
_________________________
Life is fine.