Tempo de leitura: 2 minutos
Olá, no post de hoje iremos aprender como usar a função XmlNode2Arr em ADVPL. Essa função tranforma um objeto (nó) da estrutura do XML em um array.
Ela é uma das funções de tratamento de XML em ADVPL.
Sintaxe:
XmlNode2Arr(oXml,cElem)
Parâmetro(s):
Retorno:
Exemplo da função XmlNode2Arr em ADVPL:
#include 'protheus.ch'
#include 'rwmake.ch'
#INCLUDE "TBICONN.CH"
#INCLUDE "XMLXFUN.CH"
/*{Protheus.doc} User Function fXmlPars
Link de referência:https://tdn.totvs.com/display/tec/XmlNode2Arr
(Essa função tem por finalidade mostrar a função XmlNode2Arr em ADVPL)
@type Function
@author Adilio Costa
@since 26/12/2024
@version 1.0
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos e Formações ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function fXmlN2Ar()
Local cErro := ""
Local cAviso := ""
Local oXml := Nil
//Gera o Objeto XML
oXml := XmlParser(GeraXML(), "_", @cErro, @cAviso)
//Se objeto oXml for igual a Nil será atribuído o erro ou um aviso às variáveis cErro e cAviso
If(oXml == Nil)
MsgStop("Falha ao gerar Objeto XML : "+cErro+" / "+cAviso)
Return
Else
//Converte um nó do XML para um Array
If XmlNode2Arr(oXML:_protheus:_modulos, "_modulo2" )
FWAlertInfo("Conversão bem sucedida!", "Função XmlNode2Arr")
Else
FWAlertError("Erro na conversão do objeto XML para Array","Função XmlNode2Arr")
EndIf
EndIf
Return oXml
Static Function GeraXml()
Local cXml
cXml := '<?xml version="1.0" encoding="ISO-8859-1"?>'
cXml += "<protheus>"
cXml += " <linguagens>"
cXml += " <lin1>ADVPL</lin1>"
cXml += " <lin2>TLPP</lin2>"
cXml += " </linguagens>"
cXml += " <modulos>"
cXml += " <modulo2>Compras</modulo2>"
cXml += " <modulo4>Estoque e Custos</modulo4>"
cXml += " <modulo5>Faturamento</modulo5>"
cXml += " <modulo6>Financeiro</modulo6>"
cXml += " </modulos>"
cXml += "</protheus>"
Return cXml
Bem, finalizamos mais um post aqui no blog. Espero que você tenha entendido, qualquer dúvida nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Grande abraço e fica com Deus.
Links de referência(s):
Link permanente
Hello World聊天翻译助手专注于为出海企业提供高质量的即时聊天翻译服务,专业聊天翻译技术,极速稳定收发,全球畅游,使用邮箱免费注册登录体验,专业翻译技术团队开发,超数百家企业信赖,支持whatsapp Line Tinder Twitter Instagram Telegram Zalo Facebook Badoo Bumble Quora Linkedin googleVoice Crisp Hangouts TextNow VK等软件的实时聊天翻译,无限网页多开。支持facebook群发,whastsapp群发,googleVoice群发 HelloWord翻译 https://www.hiword.cc
Link permanente
convert vhs tapes