On Error GoTo Handle

'Create the XmlDocument.

Dim objDOMDoc As New DOMDocument30
objDOMDoc.async = False
objDOMDoc.Load ("C:\XMLMigration\books.xml")
Debug.Print ("\n XML Document Loaded")

' Set the root element.
Dim root As MSXML2.IXMLDOMElement
Set root = objDOMDoc.documentElement
 
 ' Select and display the value of all the publicationdate attributes.
Debug.Print ("\n List of Publications")
Dim pbDateList As MSXML2.IXMLDOMNodeList
Set pbDateList = root.selectNodes("/bookstore/book/@publicationdate")
Dim nameList As MSXML2.IXMLDOMNodeList
Set nameList = root.selectNodes("/bookstore/book/title")

Dim i As Integer
For i = 0 To nameList.length - 1 Step i + 1
    Debug.Print ("\n\t\tName: " + nameList(i).Text + ",Published :" + pbDateList(i).Text)
Next

'Select the book node with the matching attribute value.
Dim book As MSXML2.IXMLDOMNode, price As MSXML2.IXMLDOMNode
Set book = root.selectSingleNode("book[@bk:ISBN='1-861001-57-6']")

' Selects the first 'Price' element and modify its value.
Set price = book.selectSingleNode("price")
price.Text = "50.5"
Debug.Print ("\n First Book Price Updated")

' Remove the last element.
root.removeChild root.lastChild
Debug.Print ("\n Last Element Deleted")

'Create a new node.
Dim elem As MSXML2.IXMLDOMElement
Set elem = objDOMDoc.createElement("book")
elem.setAttribute "genre", "novel"
elem.setAttribute "publicationdate", "1982"

' Attribute to the root namespace (another namespace)
Dim objAttribNode As MSXML2.IXMLDOMNode
Set objAttribNode = objDOMDoc.createNode(2, "bk:ISBN", "urn:samples")
objAttribNode.nodeTypedValue = "1-851002-30-1"
elem.Attributes.setNamedItem objAttribNode

'Add the node to the document.
root.appendChild elem
Debug.Print ("\n Element appended to XML Document")
objDOMDoc.save ("C:\XMLMigration\books.xml")
Debug.Print ("\n XML Document Saved")
Exit Sub

Handle:
Debug.Print ("Error: " + Err.Description)

using System;
using System.Xml;

public class CSharpSample
{
	public static void Main()
	{
		//Create the XmlDocument.
		Console.Write ("\n .NET Framework Sample\n");
		XmlDocument doc = new XmlDocument();
		doc.Load(@"C:\XMLMigration\books.xml");

		//Create an XmlNamespaceManager for resolving namespaces.
		XmlNamespaceManager nsmgr = new XmlNamespaceManager(doc.NameTable);
		nsmgr.AddNamespace("bk","urn:samples");
		XmlNode book,price;
		XmlElement root = doc.DocumentElement;

		// Select and display the value of all the publicationdate attributes.
		Console.Write ("\n List of Publications\n");
		XmlNodeList pbDateList = root.SelectNodes("/bookstore/book/@publicationdate");
		XmlNodeList nameList = root.SelectNodes("/bookstore/book/title");
		for(int i=0;i < nameList.Count ;i++)
			Console.WriteLine("\n\t\tName: " +  nameList[i].InnerText + ",Published :" + pbDateList[i].InnerText);

		//Select the book node with the matching attribute value.		
		book = root.SelectSingleNode("descendant::book[@bk:ISBN='1-861001-57-6']", nsmgr);
		
		// Selects the first 'Price' element and modify its value.
		price = book.SelectSingleNode("price");
		price.InnerText = "50.5";
		Console.Write ("\n First Book Price Updated");

		// Remove the first element.
		root.RemoveChild(root.LastChild);
		Console.Write ("\n Last Element Deleted");

		// Create a new node and set its attributes.		
		XmlElement elem = doc.CreateElement("book");		
		elem.SetAttribute("genre","novel");
		elem.SetAttribute("publicationdate","1982");
		elem.SetAttribute("ISBN","urn:samples","1-851002-30-1");

		//Add the node to the document and save the XML.
		root.AppendChild(elem);
		Console.Write ("\n Element appended to XML Document");
		doc.Save(@"C:\XMLMigration\books.xml");
		Console.Write ("\n XML Document Saved");			

		Console.ReadLine();

	}
}

using System;
using System.Xml;
using System.Xml.XPath;

public class XPATHDOC
{
	public static void Main()
	{
		// Creating XPathDocument and XPathNavigator.
		XPathDocument doc = new XPathDocument(@"C:\XMLMigration\books.xml");
		XPathNavigator nav = doc.CreateNavigator();

		// Creating XPathExpression to select all the novels
		XPathExpression expression = nav.Compile("descendant::book[@genre='novel']");
		XPathNodeIterator nodeIterator = nav.Select(expression);

		while (nodeIterator.MoveNext())
		{	
		XPathNavigator nav2 =	nodeIterator.Current;
		Console.Write("\n\t Book Title & Price : " + nav2.Value);  	
		nav2.MoveToNext();
		}			
	}
}

On Error GoTo Handle
' Create a schema cache and add books.xsd to it.
Dim xmlschema As New MSXML2.XMLSchemaCache40
xmlschema.Add "", "C:\XmlMigration\books.xsd"
' Create an XML DOMDocument object.
Dim xmldom As New MSXML2.DOMDocument40
' Assign the schema cache to the DOM document, schemas collection.
Set xmldom.schemas = xmlschema

' Load books.xml as the DOM document.
xmldom.async = False
xmldom.Load ("C:\XMLMigration\books.xml")

' Return validation results in message to the user.
If xmldom.parseError.errorCode <> 0 Then
    Debug.Print (xmldom.parseError.errorCode + xmldom.parseError.reason)
Else
    Debug.Print ("No Validation Errors")
End If
Exit Sub
Handle:
Debug.Print ("Validation Errors " + Err.Description)

using System;
using System.Xml;
using System.Xml.Schema;
using System.IO;

public class CSharpSchemaValidation
{
	private static string validationErrors = String.Empty;
	// the ValidationCallBack method is called when a Validation error occurs
	public static void ValidationCallBack(object sender, ValidationEventArgs e) 
	{
		validationErrors += e.Message + ";";
	}

	public static void Main()
	{
		try
		{
			// looking for the element tags.
			string nodeNames = String.Empty;
			
			// Read the xml file, and send this to validator.
			XmlTextReader xmlReader = new XmlTextReader(@"C:\XMLMigration\books.xml");			

			// load the schema file into an XmlTextReader object
			XmlTextReader xsdReader = new XmlTextReader(@"C:\XMLMigration\books.xsd");			
			XmlSchemaCollection sc = new XmlSchemaCollection();
			
			// add the ValidationEventHandler to the schema collection
			sc.ValidationEventHandler += new ValidationEventHandler(ValidationCallBack);				
			
			// add the schema to the XmlSchemaCollection object
			sc.Add("", xsdReader);				
			
			// create an XmlValidatingReader object based on the Xml document
			XmlValidatingReader rdr = new XmlValidatingReader(xmlReader);
	
			// set the ValidationType to a schema
			rdr.ValidationType = ValidationType.Schema;
			rdr.Schemas.Add(sc);
			rdr.ValidationEventHandler += new ValidationEventHandler(ValidationCallBack);			
			while (rdr.Read())
			{
				if (rdr.NodeType == XmlNodeType.Element)
					nodeNames += rdr.Name + " ";
			}
					
			if (validationErrors != String.Empty) 
			{
				// errors were added during the ValidationEventHandler
				char[] delimiter = new Char[1];
				delimiter[0] = Convert.ToChar(";");
				string[] errors = validationErrors.Split(delimiter);
				for(int i=0; i<errors.Length; i++)
					Console.WriteLine(errors[i]);				
			}
			else
			{
				// there were no validation errors, so display that message, or use the 'nodeNames'
				Console.WriteLine("No validation errors.");
			}
		}
		catch (Exception ex)
		{
			validationErrors += ex.Message + ";";
		Console.WriteLine( validationErrors);
			}
	}
}

<?xml version='1.0'?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="bookstore">
<table><xsl:attribute name="border">1</xsl:attribute>
<TR><Td>Book Title</Td><td>Price</td></TR>
<xsl:apply-templates select="*" />
</table>
</xsl:template>
<xsl:template match="book">
<TR>
<xsl:apply-templates select="*" />
</TR>
</xsl:template>
<xsl:template match="title">
<TD>
<xsl:value-of select="."/>
</TD>
</xsl:template>
<xsl:template match="price">
<TD>
<xsl:value-of select="."/>
</TD>
</xsl:template>	
</xsl:stylesheet>

 
On Error GoTo Handle
' Create FreeThreadedDOMDocument
Dim oXSLT As New MSXML2.XSLTemplate
Dim oStyleSheet As New MSXML2.FreeThreadedDOMDocument
Dim oXSLTProc As MSXML2.IXSLProcessor
Dim oXMLSource As New MSXML2.DOMDocument30

' Load the XSLT Stylesheet
oStyleSheet.async = False
oStyleSheet.Load ("C:\XMLMigration\books.xsl")

' Create the XSLTemplate object
Set oXSLT.stylesheet = oStyleSheet

' Create the XSLProcessor object;
Set oXSLTProc = oXSLT.createProcessor()

' Load XML source in DOMDocument
oXMLSource.async = False
oXMLSource.Load ("C:\XMLMigration\books.xml")

' Add a global paramter.
oXSLTProc.addParameter "TableOnly", "Yes", ""

' Assign XML source to XSLProcessor object
oXSLTProc.input = oXMLSource

' Invoke the transformation
oXSLTProc.Transform

' Use output of transformation.
Debug.Print (oXSLTProc.output)
Exit Sub
Handle:
Debug.Print ("Error : " & Err.Description)

using System;
using System.IO;
using System.Xml;
using System.Xml.Xsl;
using System.Xml.XPath;

public class NETXSL
{
	public static void Main()
	{
		//Load the xml file into XPathDocument object.
		XPathDocument doc = new XPathDocument(@"C:\XMLMigration\books.xml");
		
		//Create the XslTransform object.
		XslTransform xslt = new XslTransform();

		//Load the stylesheet.
		xslt.Load(@"c:\temp\books.xsl");
		
		FileStream stream = File.Open(@"C:\XMLMigration\books.html", FileMode.OpenOrCreate);		
		xslt.Transform(doc, null, stream);
	}
}

	using System;
	using System.Xml;
	using System.Net;
	
	public class CSharpHttpExample	
	{
		public static void Main()		
		{
			// Change the Microsoft Internet Information Server (IIS) name in following URL.
			HttpWebRequest request = (HttpWebRequest)WebRequest.Create("http://[ServerName]/[virtualdir]/[filename.xml]");

			// Change Username and password.
			request.Credentials = new NetworkCredential("[username]", "[password]");

			// Downloads the XML file from the specified server.
			HttpWebResponse response = (HttpWebResponse)request.GetResponse();
			
			// Loads the XmlDocument.
			XmlDocument doc = new XmlDocument();			
			doc.Load(response.GetResponseStream());
			doc.Save(Console.Out);

			// Releases the resources of the response.
			response.Close();
		}
	}