Break on
;
$sourcefile = "c:\sourcexmlfile.xml"
$newfile = "c:\newxmlfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
If InStr ($line, "C:\windows\folderName\")
$line = Split($line, "C:\windows\folderName\")
$line = Join ($line, "G:\NEWfolderName\")
$rc = WriteLine (2, $line + @CRLF)
Else
$rc = WriteLine (2, $line + @CRLF)
EndIf
;
$rc = Close(1)
$rc = Close(2)

Break on
;
$sourcefile = "c:\XMLfile.xml"
$newfile = "c:\newXMLfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
If InStr ($line, "This is too cool")
$line = Split($line, "This is too cool")
$line = Join ($line, "Dude")
$rc = WriteLine (2, $line + @CRLF)
Else
$rc = WriteLine (2, $line + @CRLF)
EndIf
;
$rc = Close(1)
$rc = Close(2)

Break on
;
$sourcefile = "d:\XMLfile.xml"
$newfile = "d:\newXMLfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
While @ERROR = 0
If InStr ($line, "This is too cool")
$line = Split($line, "This is too cool")
$line = Join ($line, "Dude")
$rc = WriteLine (2, $line + @CRLF)
Else
$rc = WriteLine (2, $line + @CRLF)
EndIf
$line = ReadLine (1)
Loop
;
$rc = Close(1)
$rc = Close(2)

Break on
;
$sourcefile = "d:\XMLfile.xml"
$newfile = "d:\newXMLfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
While @ERROR = 0
If InStr ($line, "This is too cool")
$line = Split($line, "This is too cool")
$line = Join ($line, "Dude")
EndIf
$rc = WriteLine (2, $line + @CRLF)
$line = ReadLine (1)
Loop
;
$rc = Close(1)
$rc = Close(2)

Break on
;
$sourcefile = "d:\XMLfile.xml"
$newfile = "d:\newXMLfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
While @ERROR = 0
If $line = "<test>This is cool</test>"
$line = "<test>This is hot</test>"
EndIf
$rc = WriteLine (2, $line + @CRLF)
$line = ReadLine (1)
Loop
;
$rc = Close(1)
$rc = Close(2)
Code:

Doc,

That's just where I based my xml writing scrip on.

An example from the posts referred to that shows how to write an entirely new XML file.
If you know the new structure and values of the xml file you could do something like this (thanx to Shawn, Jose and Jim).

Remember that reading this XML stuff is very, VERY, VERY , case sensitive. I learned the hard way and that s#cked.

Code:


Break on
;
$filename = "d:\xmltest\test.xml" 
;
$xml = LoadXml($filename) 
;
$rc = WriteXmlValue($xml, "Test1a/Test1b/Test1c", Test1) 
$rc = WriteXmlValue($xml, "Test2a/Test2b/Test2c", Test2) 
$rc = WriteXmlValue($xml, "Test3a/Test3b/test3c", Test3) 
;
?"Value=" ReadXmlValue($xml, "Test1a/Test1b/Test1c")
;
SaveXml($xml, $filename) 
;
$xml = 0 
;
Exit 1 
;
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 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

Break on
;
$sourcefile = "d:\XMLfile.xml"
$newfile = "d:\newXMLfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
While @ERROR = 0
If $line = "This is cool"
$line = "This is hot"
EndIf
$rc = WriteLine (2, $line + @CRLF)
$line = ReadLine (1)
Loop
;
$rc = Close(1)
$rc = Close(2)

Break on
;
$sourcefile = "d:\XMLfile.xml"
$newfile = "d:\newXMLfile.xml"
;
$rc = Open (1, $sourcefile, 2)
$rc = Open (2, $newfile, 5)
;
$line = ReadLine (1)
While @ERROR = 0
If InStr($line, "{test}") AND InStr($line, "{/test}")
$line = "{test}The new stuff should be here{/test}"
EndIf
$rc = WriteLine (2, $line + @CRLF)
$line = ReadLine (1)
Loop
;
$rc = Close(1)
$rc = Close(2)