quarta-feira, 1 de fevereiro de 2017

Aula 1053 - WinDev json 2/... - Ler Jason e Adicionar Tabela - JSONVersVariant









Video no Youtube Se Gostou clique aqui para dar joinha



http://doc.pcsoft.fr/fr-FR/?1000021296&name=jsonversvariant_fonction



//Nessa aula vou mostrar como ler dados Json e colocar Tabela

s_json_dados is string=[
{"status": true,"valores":
{
"USD": {"nome": "Dolar","valor": 2.333,"ultima_consulta": 1386349203,"fonte": "UOL Economia - http://economia.uol.com.br/cotacoes/"},
"EUR": {"nome": "Euro","valor": 3.195,"ultima_consulta": 1386349203,"fonte": "UOL Economia - http://economia.uol.com.br/cotacoes/"},
"BTC": {"nome": "Bitcoin","valor": 2620,"ultima_consulta": 1386352803,"fonte": "Mercado Bitcoin - http://www.mercadobitcoin.com.br/"
}
}
}
]
let jz=JSONToVariant(s_json_dados)
TableDeleteAll(TABLE_indices)
FOR EACH _m OF jz..Member
    TableAddLine(TABLE_indices,_m..Name+TAB+" = "+_m..Value)
    TableAddLine(TABLE_indices,"=========================")
    mebros(_m)   
END
    INTERNAL PROCEDURE mebros(x)   
    FOR EACH _m2 OF x..Member
        TableAddLine(TABLE_indices,_m2.nome,_m2.valor,_m2.fonte,_m2.ultima_consulta)
    END          
    END
   
   



Deserialise - Aula 1050 - WinDev Json - 001/...
JSONVersVariant - Aula 1053 - WinDev Json - 002/...






















Aula 1054 - WinDev Xml - 8/... Ler Xml e Colocar Tabela









Video no Youtube Se Gostou clique aqui para dar joinha





s_xml_string is string=[
    <?xml version="1.0"?>
    <Root><status>1</status>
    <valores>
    <USD><nome>Dolar</nome><valor>3,1519</valor><ultima_consulta>1485888302</ultima_consulta>
    <fonte>UOL Economia - http://economia.uol.com.br/</fonte>    </USD>
    <EUR><nome>Euro</nome><valor>3,4012</valor><ultima_consulta>1485888302</ultima_consulta>
    <fonte>UOL Economia - http://economia.uol.com.br/</fonte></EUR>
    <ARS><nome>Peso Argentino</nome><valor>0,1983</valor><ultima_consulta>1485888302</ultima_consulta>
    <fonte>UOL Economia - http://economia.uol.com.br/</fonte></ARS>
    </valores>
    </Root>
]
TableDeleteAll(TABLE_indices) // Elimina Dados da Tabela
XMLDocument("XML1",s_xml_string)
_status is string=XMLRead("XML1","/Root/status")
TableAddLine(TABLE_indices,"Status",_status)
s_nome is string=""
s_valor is string=""
s_fonte is string=""
s_ultima_consulta is string=""
s_nome_tag is string=""  
XMLFind("XML1",Null,XMLElément+XMLChildItem,XMLStartWith)
WHILE XMLFound("XML1")   //Percorrer xml       
    SWITCH XMLElementType("XML1") 
        CASE XMLTag :
            s_nome_tag = XMLElementName("XML1") // vou pegar nome da tag
            IF s_nome_tag="nome" THEN
                s_nome=XMLData("XML1")
            END
            IF s_nome_tag="valor" THEN
                s_valor=XMLData("XML1")
            END
            IF s_nome_tag="ultima_consulta" THEN
                s_ultima_consulta=XMLData("XML1")
            END
            IF s_nome_tag="fonte" THEN s_fonte=XMLData("XML1")
        OTHER CASE
    END
    IF s_fonte<>"" THEN
        TableAddLine(TABLE_indices,s_nome,s_valor,s_fonte,s_ultima_consulta)       
        s_nome=""
        s_valor=""
        s_fonte=""
        s_ultima_consulta=""       
    END
    XMLNext("XML1")
END
XMLClose("XML1")






WinDev - Xml - 001/... Criar um Xml
WinDev - Xml - 002/... Ler Xml Aula 1/...
WinDev - Xml - 003/... Ler Xml Aula 2/...
WinDev - Xml - 004/... Ler Xml Aula 3
WinDev - Xml - 005/... XmlRead - Retirar Tag
WinDev - Xml - 006/... Sefaz Gratuito-Ler Xml Cliente/Gravar
WinDev - Xml - 007/... Utf8ToString
Ler Xml e Colocar Tabela - WinDev - Xml - 008/...
Ler Xml Nfe - WinDev - Xml 009




















Teste

Teste
teste