Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| Imports System | |
| Imports System.IO | |
| Imports System.Text | |
| Imports System.Xml | |
| Imports System.Xml.Xsl | |
| Imports System.Xml.Schema | |
| Imports System.Xml.XPath | |
| Imports System.Net | |
| Class XML_Migration_Samples | |
| Shared Sub Main() | |
| End Sub 'Main | |
| Public Sub XmlReader_Creation_Old() | |
| '<snippet1> | |
| ' Supply the credentials necessary to access the Web server. | |
| Dim resolver As New XmlUrlResolver() | |
| resolver.Credentials = CredentialCache.DefaultCredentials | |
| ' Create the XmlTextReader. | |
| Dim reader As New XmlTextReader("http://serverName/data/books.xml") | |
| reader.WhitespaceHandling = WhitespaceHandling.None | |
| reader.XmlResolver = resolver | |
| '</snippet1> | |
| End Sub 'XmlReader_Creation_Old | |
| '============================== | |
| ' | |
| Shared Sub XmlReader_Creation_New() | |
| '<snippet2> | |
| ' Supply the credentials necessary to access the Web server. | |
| Dim resolver As New XmlUrlResolver() | |
| resolver.Credentials = CredentialCache.DefaultCredentials | |
| ' Create the XmlReader. | |
| Dim settings As New XmlReaderSettings() | |
| settings.IgnoreWhitespace = True | |
| settings.XmlResolver = resolver | |
| Dim reader As XmlReader = XmlReader.Create("http://serverName/data/books.xml", settings) | |
| '</snippet2> | |
| End Sub 'XmlReader_Creation_New | |
| '============================== | |
| ' | |
| Shared Sub XML_Validation_Old() | |
| '<snippet3a> | |
| Dim reader As New XmlValidatingReader(New XmlTextReader("books.xml")) | |
| reader.ValidationType = ValidationType.Schema | |
| reader.Schemas.Add("urn:books", "books.xsd") | |
| AddHandler reader.ValidationEventHandler, AddressOf ValidationCallBack | |
| While reader.Read() | |
| End While | |
| '</snippet3a> | |
| End Sub 'XML_Validation_Old | |
| '<snippet3b> | |
| Private Shared Sub ValidationCallBack(ByVal sender As Object, ByVal e As ValidationEventArgs) | |
| Console.WriteLine("Validation Error: {0}", e.Message) | |
| End Sub 'ValidationCallBack | |
| '</snippet3b> | |
| '============================== | |
| ' | |
| Shared Sub XML_Validation_New() | |
| '<snippet4a> | |
| Dim settings As New XmlReaderSettings() | |
| settings.ValidationType = ValidationType.Schema | |
| settings.Schemas.Add("urn:books", "books.xsd") | |
| AddHandler settings.ValidationEventHandler, AddressOf ValidationCallBack | |
| Dim reader As XmlReader = XmlReader.Create("books.xml", settings) | |
| While reader.Read() | |
| End While | |
| '</snippet4a> | |
| End Sub 'XML_Validation_New | |
| '<snippet4b> | |
| Private Shared Sub ValidationCallBack1(ByVal sender As Object, ByVal e As ValidationEventArgs) | |
| Console.WriteLine("Validation Error: {0}", e.Message) | |
| End Sub 'ValidationCallBack1 | |
| '</snippet4b> | |
| '============================== | |
| ' | |
| Shared Sub XmlWriter_Creation_Old() | |
| '<snippet5> | |
| Dim writer As New XmlTextWriter("books.xml", Encoding.Unicode) | |
| writer.Formatting = Formatting.Indented | |
| '</snippet5> | |
| End Sub 'XmlWriter_Creation_Old | |
| '============================== | |
| ' | |
| Shared Sub XmlWriter_Creation_New() | |
| '<snippet6> | |
| Dim settings As New XmlWriterSettings() | |
| settings.Indent = True | |
| settings.Encoding = Encoding.Unicode | |
| Dim writer As XmlWriter = XmlWriter.Create("books.xml", settings) | |
| '</snippet6> | |
| End Sub 'XmlWriter_Creation_New | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Old() | |
| Dim filename As String = "books.xml" | |
| '<snippet7> | |
| ' Create the XslTransform. | |
| Dim xslt As New XslTransform() | |
| ' Create a resolver and set the credentials to use. | |
| Dim resolver As New XmlUrlResolver() | |
| resolver.Credentials = CredentialCache.DefaultCredentials | |
| ' Load the style sheet. | |
| xslt.Load("http://serverName/data/xsl/sort.xsl", resolver) | |
| ' Transform the file. | |
| Dim doc As New XPathDocument(filename) | |
| Dim writer As New XmlTextWriter("output.xml", Nothing) | |
| xslt.Transform(doc, Nothing, writer, Nothing) | |
| '</snippet7> | |
| End Sub 'XSLT_Old | |
| '============================== | |
| ' | |
| Shared Sub XSLT_New() | |
| '<snippet8> | |
| ' Create the XslCompiledTransform object. | |
| Dim xslt As New XslCompiledTransform() | |
| ' Create a resolver and set the credentials to use. | |
| Dim resolver As New XmlUrlResolver() | |
| resolver.Credentials = CredentialCache.DefaultCredentials | |
| ' Load the style sheet. | |
| xslt.Load("http://serverName/data/xsl/sort.xsl", XsltSettings.Default, resolver) | |
| ' Transform the file. | |
| Dim writer As XmlWriter = XmlWriter.Create("output.xml") | |
| xslt.Transform("books.xml", writer) | |
| '</snippet8> | |
| End Sub 'XSLT_New | |
| '============================== | |
| ' | |
| Shared Sub XSLT_URI_Old() | |
| '<snippet9> | |
| Dim xslt As New XslTransform() | |
| xslt.Load("output.xsl") | |
| xslt.Transform("books.xml", "books.html") | |
| '</snippet9> | |
| End Sub 'XSLT_URI_Old | |
| '============================== | |
| ' | |
| Shared Sub XSLT_URI_New() | |
| '<snippet10> | |
| Dim xslt As New XslCompiledTransform() | |
| xslt.Load("output.xsl") | |
| xslt.Transform("books.xml", "books.html") | |
| '</snippet10> | |
| End Sub 'XSLT_URI_New | |
| '============================== | |
| ' | |
| Shared Sub Stylesheet_Credentials_Old() | |
| '<snippet11> | |
| Dim xslt As New XslTransform() | |
| Dim resolver As New XmlUrlResolver() | |
| resolver.Credentials = CredentialCache.DefaultCredentials | |
| xslt.Load("sort.xsl", resolver) | |
| '</snippet11> | |
| End Sub 'Stylesheet_Credentials_Old | |
| '============================== | |
| ' | |
| Shared Sub Stylesheet_Credentials_New() | |
| '<snippet12> | |
| Dim xslt As New XslCompiledTransform() | |
| Dim resolver As New XmlUrlResolver() | |
| resolver.Credentials = CredentialCache.DefaultCredentials | |
| xslt.Load("sort.xsl", XsltSettings.Default, resolver) | |
| '</snippet12> | |
| End Sub 'Stylesheet_Credentials_New | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Param_Old() | |
| Dim filename As String = "books.xml" | |
| '<snippet13> | |
| Dim xslt As New XslTransform() | |
| xslt.Load("order.xsl") | |
| 'Create the XsltArgumentList. | |
| Dim argList As New XsltArgumentList() | |
| 'Create a parameter which represents the current date and time. | |
| Dim d As DateTime = DateTime.Now | |
| argList.AddParam("date", "", d.ToString()) | |
| 'Create the XmlTextWriter. | |
| Dim writer As New XmlTextWriter("output.xml", Nothing) | |
| 'Transform the file. | |
| xslt.Transform(New XPathDocument(filename), argList, writer, Nothing) | |
| '</snippet13> | |
| End Sub 'XSLT_Param_Old | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Param_New() | |
| Dim filename As String = "books.xml" | |
| '<snippet14> | |
| Dim xslt As New XslCompiledTransform() | |
| xslt.Load("order.xsl") | |
| ' Create the XsltArgumentList. | |
| Dim argList As New XsltArgumentList() | |
| ' Create a parameter which represents the current date and time. | |
| Dim d As DateTime = DateTime.Now | |
| argList.AddParam("date", "", d.ToString()) | |
| ' Create the XmlWriter. | |
| Dim writer As XmlWriter = XmlWriter.Create("output.xml", Nothing) | |
| ' Transform the file. | |
| xslt.Transform(New XPathDocument(filename), argList, writer) | |
| '</snippet14> | |
| End Sub 'XSLT_Param_New | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Script_Old() | |
| '<snippet15> | |
| Dim xslt As New XslTransform() | |
| xslt.Load("output.xsl") | |
| xslt.Transform("books.xml", "books.html") | |
| '</snippet15> | |
| End Sub 'XSLT_Script_Old | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Script_New() | |
| '<snippet16> | |
| ' Create the XsltSettings object with script enabled. | |
| Dim settings As New XsltSettings(False, True) | |
| ' Execute the transform. | |
| Dim xslt As New XslCompiledTransform() | |
| xslt.Load("calc.xsl", settings, New XmlUrlResolver()) | |
| xslt.Transform("books.xml", "books.html") | |
| '</snippet16> | |
| End Sub 'XSLT_Script_New | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Roundtrip_Old() | |
| '<snippet17> | |
| ' Execute the transformation. | |
| Dim xslt As New XslTransform() | |
| xslt.Load("output.xsl") | |
| Dim reader As XmlReader = xslt.Transform(New XPathDocument("books.xml"), Nothing, New XmlUrlResolver()) | |
| ' Load the results into an XPathDocument object. | |
| Dim doc As XPathDocument = New XPathDocument(reader) | |
| '</snippet17> | |
| End Sub 'XSLT_Roundtrip_Old | |
| '============================== | |
| ' | |
| Shared Sub XSLT_Roundtrip_New() | |
| '<snippet18> | |
| ' Execute the transformation. | |
| Dim xslt As New XslCompiledTransform() | |
| xslt.Load("output.xsl") | |
| Dim ms As MemoryStream = New MemoryStream() | |
| xslt.Transform(New XPathDocument("books.xml"), Nothing, ms) | |
| ' Load the results into an XPathDocument object. | |
| ms.Seek(0, SeekOrigin.Begin) | |
| Dim doc As XPathDocument = New XPathDocument(ms) | |
| '</snippet18> | |
| End Sub 'XSLT_Roundtrip_New | |
| '============================== | |
| ' | |
| Shared Sub XSLT_DOM_Old() | |
| '<snippet19> | |
| ' Execute the transformation. | |
| Dim xslt As New XslTransform() | |
| xslt.Load("output.xsl") | |
| Dim reader As XmlReader = xslt.Transform(New XPathDocument("books.xml"), Nothing, New XmlUrlResolver()) | |
| ' Load the results into a DOM object. | |
| Dim doc As XmlDocument = New XmlDocument() | |
| doc.Load(reader) | |
| '</snippet19> | |
| End Sub 'XSLT_DOM_Old | |
| '============================== | |
| ' | |
| Shared Sub XSLT_DOM_New() | |
| '<snippet20> | |
| ' Execute the transformation. | |
| Dim xslt As New XslCompiledTransform() | |
| xslt.Load("output.xsl") | |
| xslt.Transform("books.xml", "output.xml") | |
| ' Load the results into a DOM object. | |
| Dim doc As XmlDocument = New XmlDocument() | |
| doc.Load("output.xml") | |
| '</snippet20> | |
| End Sub 'XSLT_DOM_New | |
| End Class 'XML_Migration_Samples |