Validation xml

Télécharger le projet
Commenter

Description

Simple outil de validation de Documents XML .

Source / Exemple : 


Dim docXML As DOMDocument 'New doc XML
Set docXML = New DOMDocument 'Nouvelle instance d'un doc XML
cd.Filter = "*.xml|*.xml" 'filtre de la dlg
cd.DialogTitle = "Choisisser l'XML a valider"
cd.ShowOpen 'Boite de dlg Ouvrie
If cd.FileName <> "" Then 'Si un fichier a été choisi'
    docXML.validateOnParse = True 'Validaiton du parseur sur le fichier
    
    If docXML.Load(cd.FileName) Then
        txtErr.Text = "::Fichier Validé"
    Else
        txtErr.Text = "Le fichier n'est pas conforme a son DTD" & vbCrLf
        With docXML.parseError
            txtErr.Text = txtErr.Text & vbCrLf _
             & "Erreur " & .errorCode & ":" & .reason & vbCrLf _
             & "Fichier : " & .url & vbCrLf _
             & "Ligne : " & .Line & vbCrLf _
             & "Charactere : " & .linepos & vbCrLf & vbCrLf _
             & "Extrait : " & .srcText & vbCrLf
        End With
    End If
End If

Conclusion :


Allez voir le zip vous vous ferait moins chier a deviner les controls
N'oubliez pas la reference a microsoft XML 2.0
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TheSaib)