$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()