PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Exemplo de leitura de XML
WX - Exemplo de leitura de XML
Iniciado por BOLLER ADRIANO, ago., 10 2016 10:38 PM - Sem resposta
Membro registado
2.962 mensagems
Popularité : +89 (91 votes)
Publicado em agosto, 10 2016 - 10:38 PM
//Leitura de XML
NameXMLFile is string
NameXMLFile = fSelect("*.*", "File.xml", "Arquivo XML", "Xml file (*.xml)"+TAB+"*.xml"+CR+"All"+TAB+"*.*")

// Carregando o arquivo XML
XMLSource is string = fLoadText(NameXMLFile)
Result1 is string
i is int = 1

// Extraindo a TAG <CAMPO NOME> para uma variavel
Result1 = XMLExtractString(XMLSource, "<CAMPO NOME", i)
Info(Result1)

// Percorrendo o XML em busca de outra TAG
WHILE Result1 <> ""
Trace(Result1)
i = i + 1
Result1 = XMLExtractString(XMLSource, "<CAMPO NOME", i)
END


:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/