Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Buscar llinhas do txt com critério [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
d.ribeiro
Colaborador
Colaborador
Mensagens: 15
Registrado em: Sex Ago 08, 2014 11:08 am

Buscar llinhas do txt com critério [RESOLVIDO]

Mensagem por d.ribeiro »

Bom dia a todos!

Por favor, preciso da ajuda de vocês. Eu fiz uma planilha onde eu busco informações de um arquivo "txt" e coloco os dados linha a linha no Excel conforme Critério.

Fiz o código, mas não está buscando as informações do txt e não sei o que está acontecendo.


Alguém pode me ajudar?

Está anexo a planilha e o txt.

Agradeço Muito

Douglas
Anexos
Arquivo Teste.zip
(66.21 KiB) Baixado 179 vezes
Editado pela última vez por d.ribeiro em Seg Ago 25, 2014 11:18 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Buscar llinhas do txt com critério

Mensagem por Mikel Silveira Fraga »

d.ribeiro, boa tarde. Seja bem vindo ao fórum.

Estou vendo seu código aqui e a seguinte linha esta incorreta:

Código: Selecionar todos

Do While Trim(Mid(LinhaDeTexto, 1, 48)) = "| TOTAL" And Not EOF(1)
O que esta acontecendo é o seguinte, quando você estrai da linha as informações, usando a Função Mid, você esta extraindo a seguinte informação:
| TOTAL

Até aqui, tudo bem, mas quando você utiliza a Função Trim, ela elimina todos os espaços antes e depois da informação, mas neste caso você não tem nenhum, pois o primeiro caractere que você possui é o | e o último é o L.

Neste caso, mude a informação da Função Mid para a seguinte situação:

Código: Selecionar todos

Do While Trim(Mid(LinhaDeTexto, 2, 47)) = "TOTAL" And Not EOF(1)
Iniciando do caractere 2 e buscando apenas os próximos 47 caracteres, você vai possuir o seguinte resultado:
TOTAL

Dessa forma a Função Trim vai funcionar de forma correta e você poderá fazer a comparação, apenas com "TOTAL".

Se tiver alguma dúvidas, estou a disposição.

Abraços.


d.ribeiro
Colaborador
Colaborador
Mensagens: 15
Registrado em: Sex Ago 08, 2014 11:08 am

Re: Buscar llinhas do txt com critério

Mensagem por d.ribeiro »

Bom dia Mikel!


Deixa eu te perguntar. Eu conseguir trazer as linhas do txt para a planilha mas tenho 2 problemas a resolver.

1 - Fazer o critério para o ICMS/IPI 1, 2 e 3.

2 - O código buscou as linhas, com exceção de 2 linhas: 453 e 454 do txt. Não estou conseguindo encontrar o problema.

Você consegue me ajudar?

atenciosamente,

Douglas Ribeiro
Anexos
Temp.zip
(61.7 KiB) Baixado 181 vezes


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Buscar llinhas do txt com critério

Mensagem por Mikel Silveira Fraga »

Douglas, boa noite.

Conforme fomos trocando ideia via email, segue planilha com as rotinas acertadas.

Veja se era isso que você estava precisando.

Abraços!!!!
Anexos
Temp_Resolvido.zip
(105.81 KiB) Baixado 182 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


d.ribeiro
Colaborador
Colaborador
Mensagens: 15
Registrado em: Sex Ago 08, 2014 11:08 am

Re: Buscar llinhas do txt com critério

Mensagem por d.ribeiro »

Obrigado Mikel!

Conforme nos falamos, há situação que o ICMS 1, 2 ou 3 se repetem para a mesma NF.

Segue o arquivo que você me solicitou. O caso está na linha 1464 do txt anexo.

Desde já agradeço pela ajuda.

atenciosamente,
Anexos
Entradas.zip
(31.02 KiB) Baixado 181 vezes


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Buscar llinhas do txt com critério

Mensagem por Mikel Silveira Fraga »

Douglas, bom dia.

Agora ta redonda a rotina. Aproveitei para acrescentar também a extração dos documentos cancelados, pois o primeiro relatório que você havia me passado não tinha.

Deixei todas as partes da rotina com cometários bem explicativos, para que não apenas tenha o problema resolvido, mas que possa compreender a lógica utilizada nesse caso.

Abraços e bom final de semana!!!
Anexos
Teste_Duplicidade_Entradas.zip
(146.27 KiB) Baixado 191 vezes


d.ribeiro
Colaborador
Colaborador
Mensagens: 15
Registrado em: Sex Ago 08, 2014 11:08 am

Re: Buscar llinhas do txt com critério

Mensagem por d.ribeiro »

Mikel, Muito obrigado!!

Ficou Show.

Te agradeço muito.

atenciosamente,


Douglas Ribeiro


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder