VB.Net/XML/XML Transform

Save Transformed XML into a HTML file

 
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

Using XslCompiledTransform to do the transformation

  
Public Class Example11
    Shared Sub Main()
        Dim xslt As System.Xml.Xsl.XslCompiledTransform
        xslt = New System.Xml.Xsl.XslCompiledTransform()
        xslt.Load("pubs.xslt")
        xslt.Transform("pubs.xml", "output.html")
    End Sub
End Class

XML Transform: Applying a sytle to an XML document

 
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)
      output.Close()
   End Sub " ValidationError
End Class

XML XSL transformation

 
Imports System.Xml.Xsl
Public Class SymEnc
    Public Shared Sub Main(ByVal CmdArgs() As String)
        Dim myXslTransform As XslTransform = New XslTransform()
        Dim destFileName As String = "ShowIt.html"
    
        myXslTransform.Load("xsltFile.xslt")
        myXslTransform.Transform("xmlFile.xml", destFileName)
        System.Diagnostics.Process.Start(destFileName)
    End Sub
End Class