Forum AtoutFox : Re: STREXTRACT()   

sam. 16 juin 2012, 11h37
Gregory
atoutfox.public.association

Re: STREXTRACT()

> && on parse (découpe ?) le XML

Il existe une grammaire (de XML)
Parsing (syntax analysis) est essayer de trouver la correspondance entre la
grammaire et un exemple (ici un fichier xml)

S'il n'y a pas de correspondance - le compilateur dit q'il y a une faute

http://en.wikipedia.org/wiki/Parsing
http://fr.wikipedia.org/wiki/D%C3%A9composition_analytique



On en a parle a Reims



______
Gregory
______
"Jean à Grenoble" wrote in message news:jrh8tp$17ng$1@news.niouzes.net...

Une suggestion vue sur Profox pour la conversion XML vers un cursor utilise
la
fonction STREXTRACT. L'aide VFP de cette fonction donne un exemple de code
récursif pour le 'parsing' d'un XML. Je l'ai trouvé 'extraordinaire' !! Je
l'ai
un peu commenté et vous le livre ci-dessous :
Question : c'est quoi une balise <toto/> ?


CLEAR
SET PATH TO (HOME(2) + 'Data\')   && Set path to the customer table
USE customer && n'importe quelle table
?cursortoxml(0,"x",1,0,2)   && La variable X
* contient le code XML des 2 premiers enregistrements
?x         && on montre le XML
? "début"
xmlproc(x,0)      && on parse (découpe ?) le XML
? "fin"

PROCEDURE xmlproc(x as String, nLev as Integer)   as void
    * cette procédure est récursive
    LOCAL cTagName, cContents, mterm
    DO WHILE .t.
       * on cherche la première balise
       cTagName = STREXTRACT(x,"<",">")
       IF LEN(cTagName) = 0   && no tag found
          * on n'a pas trouvé de balise : c'est la fin
          * ATTENTION c'est la fin de la boucle pour le niveau de
          * récursivité en cours et non pour l'ensemble du XML
          ??' ',x   && on imprime la chaine telquel : c'est le contenu
          EXIT
       ENDIF
       IF RIGHT(cTagName,1) = '/'   && like "<region/>"
          cTagName = LEFT(cTagName, LEN(cTagName)-1)
          cContents=""
          mterm = "<"+cTagName+"/>"   && "<region/>"
       ELSE
          * mterm est la balise de fin correspondant à la balise que
          * l'on vient de trouver
          mterm = "</"+cTagName+">"   && "</region>"
          * on cherche le texte entre la balise trouvée plus haut et
          * la balise de fin que l'on vient de construire :
          * c'est le contenu !
          cContents = STREXTRACT(x,"<"+cTagName+">", mterm,1,2)
       ENDIF
       * on imprime la balise; le contenu sera imprimé dans le
       * niveau récursif suivant
       ?REPLICATE(" ",nLev),nLev+1,PADR(cTagName,20)
       * on parse le contenu dans un nouveau niveau de récursivité.
       * Soit on n'y trouve pas de balise et c'est un 'vrai' contenu.
       * Soit on y trouve une balise et
       * on traite un niveau d'imbrication XML supplémentaire
       xmlproc(cContents, nLev+1)
       x = STREXTRACT(x, mterm)   && on traite le reste du XML
    ENDDO

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000009223