[Resolvido]Importar dados específicos de .XML

Preciso importar para uma tabela, determinados dados de uma XML.

O que preciso é de um código que me retorne os dados entre os delimitadores:

Código:

Exemplo XML:
<tpAmb>2xx</tpAmb><verAplic>v3708d</verAplic>

<verAplic>v3708d</verAplic> 
      Delimitadores:<verAplic> e </verAplic>  Me retorne: v3708

<tpAmb>2xx</tpAmb> 
      Delimitadores:<tpAmb> e </tpAmb>        Me retorne: 2xx

Estou usando desta forma:

Código:

Posicao1 = InStr(strLinha, "<verAplic>")
                AplicStr = (Mid(strLinha, Posicao1 + 10, 6))

Mas o problema é que tenho que especificar a quantidade de caracteres à retornar e a quantidade de caracteres entre as tags variam de um ficheiro para outro, por isso é que preciso de um código que retorne o conteúdo entre os delimitadores.

Já li mais de 100 tópicos sobre o assunto e não encontrei nada que pudesse aplicar, então recorro aos membros deste fórum em busca de ajuda.

Abraços.

Dê uma olhada no exemplo do Osmar, em resposta à dúvida desse tópico: http://maximoaccess.forumeiros.com/t1943-ler-arquivo-em-txt-extrato-da-caixa

É para txt mas acredito que conseguirás adaptar.

Criquio,

Pelo exemplo estar para importar texto, nenhum problema,
caso seja necessário, faço a adaptação aqui.

O Artigo do Osmar, pelo que entendi, usa para especificar a parte do texto a ser importada: Mid$(Linha, 33, 4))
aonde 33 é a localização(início) e 4 é a quantidade de caracteres a ser importada.

O que preciso é um código que retorne o texto localizado entre dois delimitadores especificados.

Abraços

Voce quer retirar o que está entre as tags?

Use esta função:

Aqui

Sds,

Charles,

Preciso importar somente o texto que está entre dois delimitadores específicos.

Mas é excelente o seu exemplo, guardei-o aqui no meu baú, pois dá muitas possibilidades para o uso no meu sistema.

Abraços,

O critério para tirar todas as tags desta função está na linha abaixo:

With RegularExpressionObject
.Pattern = "<[^>]+>"
.IgnoreCase = True
.Global = True
End With

Procure saber mais sobre estas funções e adaptar para seu uso.

Sds,

Charles,

Para que vc. entenda minha necessidade, veja o Arquivo como TXT normal onde as tags funcionam como delimitadores.

O que preciso é um código que retorne o conteúdo que está entre dois delimitadores especificados -
Exemplo: acp texto a ser retornado \acp
Aonde: acp e \acp são os delimitadores

Abraços,

Amigo, só uma pequena observação

Você disse que este arquivo é XML

Arquivos XML tem um modelo estrutural com "Nós", onde no momento da importação podem gerar várias tabelas, dependendo do documento.

Você ja tentou importar este xml pelo assistente do Access?

Talvez fosse a forma mais simples, já que podemos salvar a especificação de importação e extrair o que necessitamos diretamente.

Sds,

Charles,

Posso sim importa-lo para uma tabela temporária, mas teria que usar de Campos memorando (textos extremamente longos) e repetir o processo inúmeras vezes ao dia.

Como eu só preciso de 3 informações do arquivo (em torno de 40 caracteres mais ou menos cada uma), se eu conseguir importa-los pelos delimitadores, terei sem dúvida um ganho na performace.

Abraços

Amigão boa noite!!!

Tem como disponibilizar uma copia de seu XML, se possível manda pelo meu e-mail, vou tentar dar uma olha pois acho que o processo de leitura pode ser facilitado pelo controle webbrowser...

Fico no aguardo...

Boa Noite Pablo,

Vou preparar um pequeno exemplo do que preciso e posto aqui com o XML
Acho que assim fica mais fácil para poderem me ajudar.

Abraços e agradeço pela atenção

Amigos,

Infelizmente meu prazo para a instalação do Aplicativo já está estourado e não posso mais ficar me atendo a uma só rotina. Tenho que concluir o projeto para ontem.
Vou deixar o código em questão do jeito que está (conforme coloquei no primeiro post), mal e porcamente mas está funcionando.
Agradeço aos amigos que postaram as respostas e espero poder continuar contando com vossas ajuda.

Um grande abraço a todos