DESCRIPTION.

La fonction FN_getLevel() retourne le niveau hiérarchique du jeton exploré.

SYNTAXE.

kniveau = FN_getLevel( 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().

L'appel de la fonction FN_getLevel() va retourner le niveau actuel dans la hiérarchie. A chaque niveau d'imbrication , la valeur renvoyée est incrémentée de un. 

Le niveau de base, de la première balise, est 1. Si la procédure PROC_exitXML() a été appelée, la valeur renvoyée sera zéro.

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 fonction FN_getLevel() 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