Página 1 de 1

VBA Extrair algumas palavras de um Texto

Enviado: 16 Ago 2018 às 22:08
por wesleyribeiro123
Pessoal
Boa noite

Vou precisar de uma ajuda!!!
Tenho um TXT que já importei para o Excel e estou trabalhando para descriptografá-lo. Porém esta parece ser uma tarefa mais complexa do que imaginei.
Eu estou utilizando a instrução InStg() para retornar a posição inicial do texto que desejo extrair, porém, não quero retornar apenas 1 texto e sim vários dentro do String original e o pior é que o identificador deles todos é o mesmo.

Vou tentar exemplificar que acredito ficar mais compreensivo.
Este é apenas um trecho do TXT já importado:
Código: Selecionar todos
<rt_pesquisa><![CDATA[ [{"Survey":[{"showIfChecked":{"option0":["input-002","input-003","input-004","input-005","input-007","input-008","input-009","input-010","input-011","input-012","input-013","input-014","input-015","input-016","input-017","input-019","input-020","input-022"],"option1":["input-020"]},"options":["SIM","NÃO"],"label":"O CLIENTE ACEITA RESPONDER À PESQUISA?","required":1,"type":"radiogroup","id":"input-001","value":["SIM"]},{"options":["MASCULINO","FEMININO"],"label":"SEXO DO ENTREVISTADO","required":false,"type":"radiogroup","id":"input-022","value":["MASCULINO"]}
O que preciso é identificar a String "label" e retornar a sequencia de caracteres sequencial "O CLIENTE ACEITA RESPONDER À PESQUISA?", isto será o meu título da coluna e ai identificar a String "value" e o texto entre [" "] será a resposta que deverá ficar em linhas!

Se observarmos, podemos ter algo em torno de 20 a 30 "label" dentro da célula "A1", depois iríamos para a segunda pesquisa e teremos mais 20 a 30 "label" dentro da célula "A2" e ai por diante... Isto resolveria fácil com um laço!

Meu maior problema é identificar todos os "label" e todos os "value"...

Em anexo uma cópia do modelo de exemplo!

Re: VBA Extrair algumas palavras de um Texto

Enviado: 17 Ago 2018 às 00:20
por gfranco
Boa noite.
Veja se o que fiz te ajuda.
*Nota:
Eu observei uma estrutura que aparenta ter sido retirada de uma página HTML portanto pergunto: Já pensou na possibilidade de usar o power query?
De qualquer forma, veja se a rotina que escrevi pode te ajudar.

Re: VBA Extrair algumas palavras de um Texto

Enviado: 17 Ago 2018 às 02:48
por gfranco
Neste outro modelo eu já trago os valores para a aba "relatório".

VBA Extrair algumas palavras de um Texto

Enviado: 17 Ago 2018 às 11:00
por wesleyribeiro123
gfranco

Muito obrigado, vou ter que fazer uns pequenos ajustes, pois nas opções onde a pesquisa olha os meses ele ta puxando o Options ao invés do Value... Mas isto é o de menos, vc já conseguiu abrir minha mente aqui para utilizar matriz (apesar de não dominar tão bem quanto gostaria as matrizes), vou estudar mais e finalizar aqui!!!

Muito obrigado mesmo, me ajudou mais do que eu esperava...