ValidaCFD

Código: Seleccionar todo

    ''' <summary>
    ''' Return true if CFD is valid and well formmed XML.
    ''' </summary>
    ''' <param name="XSDPath"></param>
    ''' <param name="XMLPath"></param>
    ''' <param name="ResultMessage"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function IsCFDXmlValid(ByVal XSDPath As String, ByVal XMLPath As String, ByRef ResultMessage As String) As Boolean
        Try
            ' 0- Initialize variables...
            _IsValid = True
            _ResultMessage = ""
            If Not (File.Exists(XMLPath)) Then
                ResultMessage = String.Format("Archivo '{0}' no existe.", XMLPath)
                Return False
            End If

            ' 1- Read XML file content
            Reader = New XmlTextReader(XMLPath)

            ' 2- Read Schema file content
            Dim SR As New StreamReader(XSDPath)

            ' 3- Create a new instance of XmlSchema object
            Dim Schema As New XmlSchema

            ' 4- Set Schema object by calling XmlSchema.Read() method
            Schema = XmlSchema.Read(SR, New ValidationEventHandler(AddressOf ReaderSettings_ValidationEventHandler))

            ' 5- Create a new instance of XmlReaderSettings object
            Dim ReaderSettings As New XmlReaderSettings

            ' 6- Set ValidationType for XmlReaderSettings object
            ReaderSettings.ValidationType = ValidationType.Schema

            ' 7- Add Schema to XmlReaderSettings Schemas collection
            ReaderSettings.Schemas.Add(Schema)

            ' 8- Add your ValidationEventHandler address to
            ' XmlReaderSettings ValidationEventHandler
            AddHandler ReaderSettings.ValidationEventHandler, New ValidationEventHandler(AddressOf ReaderSettings_ValidationEventHandler)

            ' 9- Create a new instance of XmlReader object
            Dim objXmlReader As XmlReader = XmlReader.Create(Reader, ReaderSettings)

            ' 10- Read XML content in a loop
            While objXmlReader.Read
                ' empty loop
            End While

            'Se cierra el validador
            objXmlReader.Close()

            ResultMessage = _ResultMessage

            Return _IsValid
        Catch AccessEx As UnauthorizedAccessException
            Throw AccessEx
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Private Sub ReaderSettings_ValidationEventHandler(ByVal Sender As Object, ByVal args As ValidationEventArgs)
        ' 11- Implement your logic for each validation iteration
        Dim strTemp As String = "Line: " & Reader.LineNumber & " - Position: " & Reader.LinePosition & " - " & args.Message
        _ResultMessage &= strTemp
        _IsValid = False
    End Sub