Imports System.Xml Imports System.Xml.XPath Imports System.Xml.Xsl Imports System.IOPublic 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 ' ValidationErrorEnd Class
Imports System.Xml.XPath
Imports System.Xml.Xsl
Imports System.IOPublic 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 ' ValidationErrorEnd Class