Imports System.Xml
Imports System.Xml.XPath
Imports System.Xml.Xsl
Imports System.IO
Public Class MainClass
Shared Sub Main()
Dim document As XmlDocument ' Xml document root
Dim navigator As XPathNavigator ' navigate document
Dim transformer As XslTransform ' transform document
Dim output As StringWriter
document = New XmlDocument()
document.Load("games.xml")
' create navigator
navigator = document.CreateNavigator
' load style sheet
transformer = New XslTransform()
transformer.Load("games.xsl")
' transform XML data
output = New StringWriter()
transformer.Transform(navigator, Nothing, output)
' display transformation in text box
Console.WriteLine(output.ToString)
' write transformation result to disk
Dim stream As FileStream = _
New FileStream("games.html", FileMode.Create)
Dim writer As StreamWriter = New StreamWriter(stream)
writer.Write(output.ToString)
' close streams
writer.Close()
output.Close()
End Sub ' ValidationError
End Class
|
