Soyez le premier à donner votre avis sur cette source.
Vue 10 870 fois - Téléchargée 2 009 fois
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
31 août 2007 à 08:43
Par contre, je rejoint un peu RockmanX:
Moi je désirerai utiliser un schéma XSD pour valider mes XML.
J'avais trouvé sur le site de Microsoft une doc qui expliquait comment faire ... mais je n'ai jamais réussi ( sans avoir eu de temps pour beaucoup chercher ) à faire fonctionner la validation...
Quelqu'un aurai des infos voire un code source ?
En tout cas, jolie boulot. Simple et efficace.
15 déc. 2003 à 21:11
C'est normal?
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.