http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FXML%2FXML_Transform
VB.Net/XML/XML Transform - История изменений
2026-04-05T08:01:04Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/XML/XML_Transform&diff=302&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/XML/XML_Transform&diff=303&oldid=prev
Admin: 1 версия
2010-05-26T12:42:34Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Save Transformed XML into a HTML file==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Xml<br />
Imports System.Xml.XPath<br />
Imports System.Xml.Xsl<br />
Imports System.IO<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim document As XmlDocument " Xml document root<br />
Dim navigator As XPathNavigator " navigate document<br />
Dim transformer As XslTransform " transform document<br />
Dim output As StringWriter<br />
<br />
document = New XmlDocument()<br />
document.Load("games.xml")<br />
" create navigator<br />
navigator = document.CreateNavigator<br />
" load style sheet<br />
transformer = New XslTransform()<br />
transformer.Load("games.xsl")<br />
<br />
" transform XML data<br />
output = New StringWriter()<br />
transformer.Transform(navigator, Nothing, output)<br />
" display transformation in text box<br />
Console.WriteLine(output.ToString)<br />
" write transformation result to disk<br />
Dim stream As FileStream = _<br />
New FileStream("games.html", FileMode.Create)<br />
Dim writer As StreamWriter = New StreamWriter(stream)<br />
writer.Write(output.ToString)<br />
" close streams<br />
writer.Close()<br />
output.Close()<br />
End Sub " ValidationError<br />
End Class<br />
<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==Using XslCompiledTransform to do the transformation==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Public Class Example11<br />
Shared Sub Main()<br />
Dim xslt As System.Xml.Xsl.XslCompiledTransform<br />
xslt = New System.Xml.Xsl.XslCompiledTransform()<br />
xslt.Load("pubs.xslt")<br />
xslt.Transform("pubs.xml", "output.html")<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==XML Transform: Applying a sytle to an XML document==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Xml<br />
Imports System.Xml.XPath<br />
Imports System.Xml.Xsl<br />
Imports System.IO<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim document As XmlDocument " Xml document root<br />
Dim navigator As XPathNavigator " navigate document<br />
Dim transformer As XslTransform " transform document<br />
Dim output As StringWriter<br />
<br />
document = New XmlDocument()<br />
document.Load("games.xml")<br />
" create navigator<br />
navigator = document.CreateNavigator<br />
" load style sheet<br />
transformer = New XslTransform()<br />
transformer.Load("games.xsl")<br />
<br />
" transform XML data<br />
output = New StringWriter()<br />
transformer.Transform(navigator, Nothing, output)<br />
" display transformation in text box<br />
Console.WriteLine(output.ToString)<br />
output.Close()<br />
End Sub " ValidationError<br />
End Class<br />
<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==XML XSL transformation==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Xml.Xsl<br />
Public Class SymEnc<br />
Public Shared Sub Main(ByVal CmdArgs() As String)<br />
Dim myXslTransform As XslTransform = New XslTransform()<br />
Dim destFileName As String = "ShowIt.html"<br />
<br />
myXslTransform.Load("xsltFile.xslt")<br />
myXslTransform.Transform("xmlFile.xml", destFileName)<br />
System.Diagnostics.Process.Start(destFileName)<br />
End Sub<br />
End Class<br />
<br />
<br />
<br />
</source></div>
Admin