Utilisation des XML schémas avec 4D (2/2)

<?xml version="1.0" encoding="UTF-8"?>
<CD xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
   xsi:noNamespaceSchemaLocation="file:/Users/ckeromen/Altair/
   CKTI_Informatique/4D_NT_CK/XML%20schemas/4DXMLschema/CD_root.XSD">
      
   <CD.ID_CD></CD.ID_CD>
   <CD.Titre></CD.Titre>
   <CD.Interprète></CD.Interprète>
   <CD.Genre></CD.Genre>
   <CD.Pochette></CD.Pochette>
   <CD.Description></CD.Description>
   <CD.Prix></CD.Prix>
   <CD.Date_saisie></CD.Date_saisie>
   <CD.Durée_totale></CD.Durée_totale>
   <CD.CD_Double></CD.CD_Double>
</CD>

var x = new ActiveXObject("MSXML2.DOMDocument.4.0");
x.async = false;
x.validateOnParse = true;
x.load("Adresse_xsd.xml");
if (x.parseError.errorCode != 0) 
   {
      WScript.Echo("errorReason=" + x.parseError.reason); 
   }
else 
   WScript.Echo("===NO PARSE ERROR===\n");//+ x.xml

   ` ----------------------------------------------------

   ` Nom utilisateur (OS) : christophe Keromen
   ` Date et heure : 07/07/05, 11:18:06
   ` ----------------------------------------------------
   ` Méthode : XSD_validate_MSXML
   ` Description
   ` validation du document XML $1 par exécution d’un script VBS appelant MSXML
   `
   ` Paramètres
   ` $1:TEXTE:chemin d’accès vers le doc XML
   ` $0:TEXTE:resultat, si vaut "ok" le doc est valide, contient le texte de l’erreur ` sinon
   `
   ` Version : 3
   ` le 22/11/05, 08:42:27
   ` on tient compte de la version de msxml dll
   `
   ` Appel : resultat:=demo_XSD_valide (chemin d’accès vers le doc XML)
   ` ----------------------------------------------------

C_TEXTE($1;$_vt_docXML)
$_vt_docXML:=Caractere(Guillemets )+$1+Caractere(Guillemets )

C_TEXTE($0)
$0:=""

Si (<>XML_msxml_dll_version#"")

   Si (Vrai)   `Ex. de script à générer :
      `Dim WshShell
      `Set WshShell=CreateObject("WScript.Shell")
      `
      `
      `Dim xmlDoc
      `set xmlDoc=CreateObject("Msxml2.DOMDocument.5.0")
      `
      `xmlDoc.async=false
      `xmlDoc.validateOnParse=true
      `
      `xmlDoc.load"C:\\CK_Bureau\\2004-AtelierTechWebService\\SchemaValidate\\Adresse_xs `d.xml"
      `
      `Set myErr=xmlDoc.parseError
      `If(myErr.errorCode<>0)Then
      `WScript.Echo("errorReason="+myErr.reason)
      `else
      ` WScript.Echo("ok")
      `End If
   Fin de si

   Si (Vrai)   `--- Génération du script VBS

      C_TEXTE($_vt_pathScript)   `le fichier est volontairement placé hors de dossier temporaire
         `pour pouvoir le consulter en debug
      $_vt_pathScript:="C:\\msxmlvalidate.vbs"

      Si (Tester chemin acces($_vt_pathScript)=Est un document )
         SUPPRIMER DOCUMENT($_vt_pathScript)
      Fin de si

      C_HEURE($_vh_RefDoc)
      $_vh_RefDoc:=Creer document($_vt_pathScript;"vbs")

      C_TEXTE($_vt_script)

      $_vt_script:="Dim WshShell"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="Set WshShell=CreateObject(\"WScript.Shell\")"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="Dim xmlDoc"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

         `<modif> christophe Keromen (22/11/2005)
         `on tient compte de la version de msxml dll
      $_vt_script:="set xmlDoc=CreateObject(\"Msxml2.DOMDocument."+<>XML_msxml_dll_version+".0\")"
         +Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)
         `</modif>

      $_vt_script:="xmlDoc.async=false"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="xmlDoc.validateOnParse=true"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="xmlDoc.load"+$_vt_docXML+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="Set myErr=xmlDoc.parseError"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="If(myErr.errorCode<>0)Then"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="WScript.Echo(\"errorReason=\"+myErr.reason)"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="else"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="WScript.Echo(\"ok\")"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      $_vt_script:="End If"+Caractere(Retour chariot )
      ENVOYER PAQUET($_vh_RefDoc;$_vt_script)

      FERMER DOCUMENT($_vh_RefDoc)
   Fin de si

   Si (Vrai)   `--- Exécution du script

      C_TEXTE($_vt_result)
      $_vt_result:=LPE_Play ("cscript //Nologo "+$_vt_pathScript)

      $0:=Sous chaine($_vt_result;1;Longueur($_vt_result)-2)   `pour éliminer CRLF
   Fin de si

Sinon
   ok:=0
   $0:="msxml*.dll n’est pas installée sur ce Système !"
Fin de si

FIXER VARIABLE ENVIRONNEMENT("_4D_OPTION_HIDE_CONSOLE";"true")

   ` ----------------------------------------------------
   ` Nom utilisateur (OS) : christophe Keromen
   ` Date et heure : 22/11/05, 08:34:45
   ` ----------------------------------------------------
   ` Methode : XML_get_MSXML_version
   ` Description :
   ` retourne la version de la dll msxml installée dans le système
   `
   ` Parametres :
   ` $0:TEXTE:version de la dll
   `
   ` Version : 1
   ` Appel : version de la dll :=XML_get_MSXML_version
   ` ----------------------------------------------------

C_TEXTE($0)
$0:=""   `renvoie vide si DLL non installée

Si (ENV_siWindows )

      `--- chemin d’accès au système
   C_TEXTE($_vt_system)
   $_vt_system:=Dossier systeme

   C_TEXTE($_vt_nomDLL)   `C:\WINDOWS\system32
   $_vt_nomDLL:=$_vt_system+"\\System32\\msxml"

   TABLEAU TEXTE($_Tt_version;3)
   $_Tt_version{1}:="5"   `"6"
      `on évite la version 6 qui retourne à tort une erreur de variation sur les nil
   $_Tt_version{2}:="4"
   $_Tt_version{3}:="3"

   C_ENTIER($i)
   Boucle ($i;1;Taille tableau($_Tt_version))

      Si (Tester chemin acces($_vt_nomDLL+$_Tt_version{$i}+".dll")=Est un document )
         $0:=$_Tt_version{$i}
         $i:=Taille tableau($_Tt_version)+1
      Fin de si

   Fin de boucle

Fin de si

   ` Methode : XSD_validate_OSX

   ` Description :
   ` valider un document XML / à un schéma
   ` utilise XMLmind Xsdvalid Toolset
   ` http://www.xmlmind.com/xsdvalid.html
   `
   ` Parametres :
   ` $0:TEXTE:Résultat
   ` $1:TEXTE:chemin d’accès au format 4D
   ` $2:TEXTE:chemin vers le schéma si non interne
   ` $3:TEXTE:options à passer en ligne de commande
   `
   ` Version : 1
   ` Appel : resultat:=XSD_validate_OSX(chemin d’accès version 4D)
   ` ----------------------------------------------------

C_TEXTE($1;$_vt_path_XML)
$_vt_path_XML:=$1

C_TEXTE($2;$_vt_Path_XSD)   `non traité
$_vt_Path_XSD:=$2

C_TEXTE($3;$_vt_options)
$_vt_options:=$3

C_TEXTE($0)

C_TEXTE($_vt_folderBin)   `"Dossier 'xsdvalid-210' "
$_vt_folderBin:=zdoc_get_dossier_Structure +"xsdvalid-210:"

FIXER VARIABLE ENVIRONNEMENT("_4D_OPTION_CURRENT_DIRECTORY";$_vt_folderBin+"bin/")

$_vt_path_XML:=ZDOC_pathClassicTopathOSX ($_vt_path_XML)

C_TEXTE($_vt_command)
$_vt_command:="xsdvalid "
Si ($_vt_options#"")
   $_vt_command:=$_vt_command+$_vt_options+" "+$_vt_path_XML
Sinon
   $_vt_command:=$_vt_command+$_vt_path_XML
Fin de si

$0:=LPE_Play ($_vt_command)

C_TEXTE($_vt_options)

Si (Majuscule enfoncee)
   $_vt_options:="-v"   `verbose -> resultat ds l’appel de la fonction

Sinon   `écrit le résultat ds un fichier
   $_vt_options:="-o "+ZDOC_pathClassicTopathOSX (XSD_OSX_get_log_path )
Fin de si

$_vt_result:=XSD_validate_OSX ($_vt_docXML;"";$_vt_options)

Si ($_vt_result="")   `pas d’erreur d’exécution de l’utilitaire
   $_vt_result:=XSD_validate_OSX_get_result    `on relit le résultat ds le journal
   $_vt_docXML:=zdoc_get_NomCourt ($_vt_docXML)

   Si ($_vt_result="")
      ALERTE("Document '"+$_vt_docXML+"' valide")
   Sinon
      ALERTE("Document '"+$_vt_docXML+"'Non valide, résultat ds 'logXSD.txt'\net dans le presse-papiers")
   Fin de si
Sinon   `erreur d’exécution de l’utilitaire
   ALERTE("Erreur d’exécution : \n"+$_vt_result)
Fin de si

ECRIRE TEXTE DANS PRESSE PAPIERS($_vt_result)