Option Strict
Option Explicit
Imports System
Imports System.IO
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Xml.XPath
Public Class Sample
Private Shared filename1 As String = "books.xml"
Private Shared stylesheet1 As String = "output.xsl"
Public Shared Sub Main()
Dim xslt As New XslTransform()
xslt.Load(stylesheet1)
Dim doc As New XPathDocument(filename1)
Dim writer As New XmlTextWriter(Console.Out)
xslt.Transform(doc, Nothing, writer, Nothing)
writer.Close()
End Sub
End Class
|