Imports System.Xml
Public Class Example2
Shared Sub Main()
Dim reader As XmlReader
Dim writer As XmlWriter
Dim readerSettings As New XmlReaderSettings()
Dim writerSettings As New XmlWriterSettings()
readerSettings.IgnoreComments = True
readerSettings.Schemas.Add(Nothing, "pubs.xsd")
readerSettings.ValidationType = ValidationType.None
writerSettings.OmitXmlDeclaration = True
writerSettings.Indent = True
writerSettings.NewLineOnAttributes = True
reader = XmlReader.Create("pubs.xml", readerSettings)
writer = XmlWriter.Create("output.xml", writerSettings)
While reader.Read()
writer.WriteNode(reader, True)
End While
reader.Close()
writer.Close()
End Sub
End Class
|
