Connaitre la ligne ou se trouve un XmlReader

Version imprimable

Bonjour,

Dans le cadre de l'écriture d'un parser XML qui contrôle également les caractères autorisés dans mes fichiers, j'aimerai savoir comment récupérer les lignes ou se situent les erreurs (dans le callback et dans CheckChars ).

Pouvez vous m'aider j'ai pas trouvé sur la doc msdn de XmlReader

Cordialement,

Mckilleron

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub ValidateXml(ByVal xmlPath As String, ByVal xsdPath As String, ByVal xmlns As String)
 
        Dim schemaSet As New XmlSchemaSet()
        schemaSet.Add(xmlns, xsdPath)
 
        Dim ReaderSettings As New XmlReaderSettings()
        ReaderSettings.ValidationType = ValidationType.Schema
        ReaderSettings.Schemas = schemaSet
 
        AddHandler ReaderSettings.ValidationEventHandler, AddressOf ValidationCallBack
 
        Dim xmlReader As XmlReader = xmlReader.Create(xmlPath, ReaderSettings)
 
        While xmlReader.Read()
 
            If Me.caracteresInterdits.Checked Then
                If CheckChars(xmlReader.Value) = False And xmlReader.Value.Length > 0 Then
 
                    SetText("la chaine """ + xmlReader.Value + """contient des caractères interdits" + Chr(10))
 
                End If
 
            End If
        End While
        If Me.ResultTextBox.TextLength = 0 Then
            SetText("Aucune Erreur de validation")
        End If
        SetTextLabelEtat("Etat : Prêt")
 
    End Sub
 
    Private Sub ValidationCallBack(ByVal sender As Object, ByVal e As ValidationEventArgs)
        SetText("Erreur de validation" + e.Message + Chr(10))
    End Sub
 
 
    Function CheckChars(ByVal chaine As String)
 
        Dim myRegex = New Regex("^(?:\w|\d|[""&'+_-]|[\(\)\,\.\/\\\<\>;\:\s\=\?\@])+$", RegexOptions.IgnoreCase)
 
        Return myRegex.IsMatch(chaine)
 
    End Function

28/05/2013, 14h25
ebastien

Bonjour,

Une piste peut-être en regardant du côté de la classe XmlTextReader. Cette classe a une propriété LineNumber. Elle indique le numéro de ligne en cours.
A tester ...

Eb.
28/05/2013, 14h48
mckilleron

Avec le XmlTextReader je ne peux apparemment pas passer de reader settings, donc je peux pas faire de validation XSD, la méthode Create n'est pas accessible.

Sinon ca implique que je boucle une fois pour parser, et une fois pour controler les caractères interdit.

Effectivement ! Mais en utilisant la propriété Settings de XmlTextReader, est-ce que ça fonctionnerait ? Je ne peux pas tester, je n'ai pas de XSD sous la main ...

Un truc du genre :
Code:

1 2 3 4 5 6 Dim schemaSet As New XmlSchemaSet() schemaSet.Add(xmlns, xsdPath) Dim xmlReader As XmlTextReader = New XmlTextReader(xmlPath) AddHandler xmlReader.Settings.ValidationEventHandler, AddressOf ValidationCallBack xmlReader.Settings.ValidationType = ValidationType.Schema xmlReader.Settings.Schemas = schemaSet
Ou bien comme tu le dis, 2 passes ...

28/05/2013, 15h07
mckilleron

xmlReader.Settings.ValidationType = ValidationType.Schema déclenche une exception : la référence d'objet n'est pas définie à une instance d'un objet

Ok, j'ai trouvé un article sur Msdn où il est indiqué qu'on peut envelopper une instance de lecteur dans un autre lecteur, ça donnerait quelque chose du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim ReaderSettings As New XmlReaderSettings()
        Dim schemaSet As New XmlSchemaSet()
        schemaSet.Add(xmlns, xsdPath)
        Dim aXmlTextReader As XmlTextReader = New XmlTextReader(xmlPath)
        ReaderSettings.ValidationType = ValidationType.Schema
        ReaderSettings.Schemas = schemaSet
        AddHandler ReaderSettings.ValidationEventHandler, AddressOf ValidationCallBack
        Dim aXmlReader = XmlReader.Create(aXmlTextReader, ReaderSettings)
        While aXmlReader.Read()
            If aXmlTextReader.Value.Trim.Length > 0 Then
                ListBox1.Items.Add(aXmlTextReader.LineNumber & "-" & aXmlTextReader.Value)
            End If
        End While

Tu remplaces bien entendu la partie Listbox1.items.add ...
Est-ce que ce serait concluant ?

28/05/2013, 16h08
mckilleron

Yes ca marche du tonerre !

Encore merci
28/05/2013, 16h39
ebastien

Cool. N'oublie pas le d'indiquer que le problème est résolu.
eb.