Função: XmlNode2Arr
Transforma em array um objeto (nó) da estrutura do XML - EXtensible Markup Language (Linguagem extensível de formatação).
XmlNode2Arr ( < oRoot>, < cNode2arra> ) --> lRet
Nome | Tipo | Descrição | Obrigatório | Referência |
oRoot | Objeto | Indica o elemento (nó) que será utilizado como raiz para iniciar a busca do elemento a ser transformado em array. | X | |
cNode2arra | Caracter | Indica o elemento procurado que será transformado em array na estrutura. | X |
-
lRet(logico)
- Retorna verdadeiro (.T.), se transformar em array; caso contrário, falso (.F.).
Ao informar um elemento (nó) da estrutura XML, através de parâmetro como raiz, a função irá procurar pelo nome do nó que será transformado em array.
/*No exemplo seguinte, é demonstrado o simples uso da função XmlNode2Arr, em que pegamos o objetoXml e o tranformamos em um array.Em seguida gravamos esse objeto em arquivo .xml propriamente dito.*/#INCLUDE "TOTVS.CH"#INCLUDE "XMLXFUN.CH"User Function ExeXML() Local cError := "" Local cWarning := "" Local oScript //Gera o Objeto XML ref. ao script oScript := XmlParser( GeraXML(), "_", @cError, @cWarning ) // Transforma node em uma array, no caso tranforma a estrutura para array XmlNode2Arr( oScript:_PEDIDO, "_PEDIDO" ) // Tranforma o Objeto XML em arquivo // Grava o arquivo em um diretório \xml a partir do rootPath SAVE oScript XMLFILE "\teste.xml" Return .T.Static Function GeraXML() Local cScript := '' cScript += "" cScript += " Microsiga Software" cScript += " Av. Braz Leme" cScript += " 1361" cScript += " 22-03-2005" cScript += " " cScript += " " cScript += " Prothues" cScript += " 1" cScript += " 100.00" cScript += " " cScript += " " cScript += " ERP" cScript += " 0" cScript += " 0" cScript += " " cScript += " " cScript += ""Return cScript
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Protheus 10
,
TOTVS Application Server 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas