MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Extrair rem/destinatário XML

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 02/09/2016

    Extrair rem/destinatário XML Empty Extrair rem/destinatário XML

    Mensagem  ictsp 16/1/2019, 21:18

    Prezados colegas,

    Por favor, gostaria de saber como pegar (diferenciar) o remetente e o destinatário de um arquivo xml.
    O nosso amigo anteixeira me auxiliou de forma excelente no desenvolvimento do código. Porém, conforme fui acrescentando campos, surgiu essa dificuldade.
    Código:
    Open meuFicheiro For Input As #1 'abre ficheiro para leitura
                Do Until EOF(1) 'ler ficheiro até ao fim linha a linha
                    Line Input #1, textoLinha
                     textoXml = textoXml & textoLinha
                Loop
                'atribuir às variaveis temporarias os campos do XML
                tmp_nNF = separaEntreDuasStringsXML(textoXml, "<nNF>", "</nNF>") 'remetente
                tmp_xNome = separaEntreDuasStringsXML(textoXml, "<xNome>", "</xNome>") 'remetente
                tmp_dhEmi = separaEntreDuasStringsXML(textoXml, "<dhEmi>", "</dhEmi>") 'remetente
                tmp_CNPJ = separaEntreDuasStringsXML(textoXml, "<CNPJ>", "</CNPJ>") 'remetente
                tmp_CFOP = separaEntreDuasStringsXML(textoXml, "<CFOP>", "</CFOP>") 'remetente
                 tmp_dNome = separaEntreDuasStringsXML(textoXml, "<xNome>", "</xNome>") 'destinatário
            Close #1 'fechar ficheiro
    Achei algo parecido nesse tópico do amigo Fabio Paes, mas confesso que não tenho entendimento para adaptar à minha necessidade.
    https://www.maximoaccess.com/t29919-resolvidoimportar-dados-do-destinatario-da-nf-e-xml#207920

    Da forma como está, repete o nome do remetente .

    Desde já, agradeço imensamente a ajuda dos caros colegas!

      Data/hora atual: 28/7/2021, 23:25