Mega Code Archive

 

Categories / VB.Net / XML

 

Console Validator

Imports System Imports System.Xml Imports System.Xml.Schema     Public Class MainClass         Public Shared Sub Main(ByVal args As String())             Dim xmlValidator As New ConsoleValidator             Dim success As Boolean = xmlValidator.ValidateXML(args(0), args(1))             If Not success Then                 Console.WriteLine("Validation failed.")             Else                 Console.WriteLine("Validation succeeded.")             End If         End Sub     End Class     Public Class ConsoleValidator         Private failed As Boolean         Public Function ValidateXML(ByVal xmlFileName As String, ByVal schemaFileName As String)             Dim settings As New XmlReaderSettings             settings.ValidationType = ValidationType.Schema             Dim schemas As New XmlSchemaSet             settings.Schemas = schemas             schemas.Add(Nothing, schemaFileName)             AddHandler settings.ValidationEventHandler, AddressOf HandleValidationEvents             Dim validator As XmlReader = XmlReader.Create(xmlFileName, settings)             failed = False             Try                 While validator.Read()                 End While             Catch ex As Exception                 Console.WriteLine(ex.Message)                 failed = True             End Try             validator.Close()             Return Not failed         End Function         Private Sub HandleValidationEvents(ByVal sender As Object, ByVal args As ValidationEventArgs)             failed = True             Console.WriteLine(args.Message)         End Sub     End Class