VB.Net/XML/XML Transform
Содержание
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>