Code des fonctions d'extension XSD de Visual Basic
L'extrait de code suivant montre comment vous pouvez utiliser les fonctions d'extension XSD pour retourner des nœuds d'après leur type de données XSD. Cet exemple de code utilise la fonction type-is pour retourner le premier type de données string dans le document et la fonction type-local-name pour retourner une liste de nœuds de type de données string.
Le code Visual Basic crée un objet XMLSchemaCache60, ajoute la déclaration de l'URI d'espace de noms (urn:books) et le schéma (books.xsd) à l'objet, puis référence le schéma à l'aide de la propriété schemas de l'objet DOMDocument. Dans le code, notez que la propriété SelectionLanguage est définie sur XPath et que la propriété SelectionNamespaces est définie sur "xmlns:ms='urn:schemas-microsoft-com:xslt", ce qui permet d'utiliser le préfixe d'espace de noms ms:. La validation est effectuée lorsque le fichier books.xml est chargé dans l'objet DOMDocument. Des erreurs de validation sont retournées via la propriété parseError de l'objet DOMDocument.
Pour exécuter l'exemple
Copiez le code ci-dessous dans la procédure Command1_Click. Lorsque vous avez terminé, le code doit ressembler à l'extrait ci-dessous.
Dans la barre d'outils Visual Basic, cliquez sur Démarrer, puis sur le bouton Command1 de form1.
Lors de l'exécution de l'exemple, l'instruction Set objNodeList = xmldom.selectNodes "//*[ms:type-is('http://www.w3.org/2001/XMLSchema','string')]") retourne une liste de nœuds de type de données string. La boucle For/Next effectue une itération dans les nœuds et affiche le texte de chaque nœud dans une zone de message.