import.css=/download/attachments/327912/newLayout.css |
Função: XmlNode2Arr
|
| 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 |
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