Mega Code Archive

 

Categories / VB.Net / XML

 

Creates an XPathNavigator for navigating this object

Option Explicit On Option Strict On Imports System Imports System.IO Imports System.Xml Imports System.Xml.XPath Imports System.Xml.Xsl Public Class Sample     Public Shared Sub Main()         Dim doc As XmlDocument = New XmlDocument()         doc.Load("books.xml")         Dim root As XmlElement = doc.DocumentElement         root.FirstChild.LastChild.InnerText = "12.95"         Dim nav As XPathNavigator = root.CreateNavigator()         Dim xslt As XslCompiledTransform = New XslCompiledTransform()         xslt.Load("output.xsl")         Dim writer As XmlTextWriter = New XmlTextWriter("books.html", Nothing)         xslt.Transform(nav, Nothing, writer, Nothing)     End Sub 'Main End Class 'Sample