FiveTech Software tech support forums

#include "Fivewin.ch"
#include "hbxml.ch"
#include "xbrowse.ch"

FUNCTION Testxml()

    local aCods, aNoms, i, cTexto := hb_memoread( 'producto.xml') , aProd

     aCods = sacavalvariostag( "<ProductCode>", "</ProductCode>", cTexto  )
     aNoms = sacavalvariostag( "<ProductDesc>", "</ProductDesc>", cTexto  )

     aProd = {}



     for i = 2 to len( aCods )
         aadd( aProd, { 'ProductCode' => aCods[i], ;
                        'ProductDesc' => aNoms[i] } )
     next

    xbrowser aProd

RETURN

function sacavaltag( cTag, cUnTag, cTexto )

    local cVal
    local nAt1 //:= at( cTag   , cTexto )
    local nAt2 //:= at( cUnTag , cTexto )

    //cTexto = fe_pharsehtml( cTexto )
    nAt1 := at( cTag   , cTexto )
    nAt2 := at( cUnTag , cTexto )

    /*
    if '&lt;' $ ctexto
        cTag   = '&lt;'  + substr( cTag, 2   )
        cUnTag = '&lt;/' + substr( cUnTag, 3 )
        nAt1   = at( cTag   , cTexto )
        nAt2   = at( cUnTag , cTexto )
    end
    */

    //veaXml( cTexto, 'como se ve xml' )

    cVal = substr( cTexto, nAt1 + len( cTag ) , nAt2 - nAt1 - len( cTag ) )

return cVal


function sacavalvariostag( cTag, cUnTag, cTexto )


    local cTg       := cTag
    local cuTg      := cUnTag
    local aTokens
    local aLineas   := {}
    local i

    aTokens = hb_atokens( cTexto, cuTg )
    for i = 1 to len( aTokens )
        if at( cTg, aTokens[i] ) > 0
            aTokens[i] = substr( aTokens[i], at( cTg, aTokens[i] ) + len( cTg ) )
            aadd( aLineas, aTokens[i] )
        end
    next

return aLineas