XmlNode2Arr

XmlNode2Arr ( < oRoot>, < cNode2arra> ) --> lRet

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