DESCRIPTION.

La procédure PROC_exitXML() ferme un fichier .xml ouvert par l'appel de la fonction .

SYNTAXE.

PROC_exitXML( structure{} )

REMARQUES

structure{} doit être l'identifiant de la structure de données qui a été retourné par l'appel de la procédure PROC_initXML().

Voir l'instruction DIM{} pour plus de détails sur les structures de données.

Rappel : La procédure PROC_initXML() doit toujours être appelée avant toute autre procédure ou fonction définie dans le module xmllib.bbc.

La procédure PROC_exitXML() est importée depuis le module xmllib.bbc.

EXEMPLE.

INSTALL @lib$ + "xmllib.bbc"

PROC_initXML( XML_donnees{} , "monfichier.xml" )

REPEAT

kbalise = FN_isTag( XML_donnees{} )

kjeton$ = FN_nextToken( XML_donnees{} )

IF ASC( LEFT$( kjeton$ , 1 ) ) > 31 THEN

PRINT "Niveau : " ; FN_getLevel( XML_donnees{} ) ; 

PRINT "Le prochain jeton est : " ; kjeton$ ; 

IF kbalise THEN PRINT " (c'est une balise)." ELSE  PRINT "(c'est une donnee)."

ENDIF

UNTIL EOF#XML_donnees.chan% 

PROC_exitXML( XML_donnees{} )

END