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