VB.Net/XML/XML Transform

Материал из VB Эксперт
Перейти к: навигация, поиск

Save Transformed XML into a HTML file

<source lang="vbnet"> 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



 </source>


Using XslCompiledTransform to do the transformation

<source lang="vbnet"> 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


 </source>


XML Transform: Applying a sytle to an XML document

<source lang="vbnet"> 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



 </source>


XML XSL transformation

<source lang="vbnet"> 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


 </source>