[Resolvido]importar arquivo texto sem delimitadores

Estou com um problema para importar o texto abaixo e inseri aqui 4 linhas:

Não posso usar a delimitação por espaços pelo motivo das strings serem de tamanhos

diferentes.

Os codigo que eu grifei em vermelho, se puder eliminar na hora de importar, ja seria

de grande ajuda. A string tem mais ou menos uns 150 caracteres onde tenho que criar 17 colunas

e este codigo começa na posição nº 59, e tem sempre o mesmo tamanho, ou seja 9 caracteres.

000003549 26/01/2010 0002256382 AAC3573 438,34 00004011104 001 FRETES LTCC 10/02/2010 438,34
000003569 08/02/2010 0002276653 AAC4887 876,68 00004038504 001 FRETES LTCC 23/02/2010 876,68
453033262 000003491 21/12/2009 0002210825 AAC3573 81,00 00003940455 001 FRETES LTCC 05/01/2010 81,00
453033263 000003495 21/12/2009 0002210839 AAC3573 135,01 00003940451 001 FRETES LTCC 05/01/2010 135,01

Alguem pode me dar uma luz?

Desde já agradeço.

Ola Charles bom dia e seja bem vindo ao fórum;

Não entendi muito bem, a sua duvida, mas vamos lá.

Você quer colocar num campo de uma tabela assim ?

1 000003549 26/01/2010 0002256382 AAC3573 438,34 00004011104 001 FRETES LTCC 10/02/2010 438,34
2 000003569 08/02/2010 0002276653 AAC4887 876,68 00004038504 001 FRETES LTCC 23/02/2010 876,68

etc....

Aguardo

Também não entendi.

Sim, precisava que ficasse desta forma como vc colocou, mas gostaria que este código

de 9 caracteres que está no meio da string, fosse eliminado na hora de importar o

texto. Acho que seria possível, pois ele começa da posição nº 59. Mas como tentei

exemplificar acima, no meio de 500 linhas pode ter por exemplo 100 linhas com este

código.

Desde já agradeço pela a atenção.

Sds,

E começa sempre por 453 ?

Sim, posso usar como referencia até os 4 dígitos. "4530"

Este é um relatorio de pagamentos, que recebo no formato PDF. Tenho

que convertê-lo para texto e jogar para o banco com Tab_Pagamentos.

Dá um trabalho danado, já que tenho que fazer este procedimento a cada 2 ou 3 dias.

Coloque o .txt em C:\ e teste;

http://dl.dropbox.com/u/771097/ImportarTXT.rar

Boa tarde Paulo, a rotina deu o seguinte erro:

"É impossível localizar o projeto ou a biblioteca"

e para justamente na linha da condição:

If Left(LinhaDoTexto, 4) Like "4530" Then

Será que tenho que fazer referência a alguma biblioteca?

Não conheço profundamente estes termos.

Sds,

Charles

Eu tinha nesse exemplo uma referencias do Access 2007, marcadas, pode ser isso.

Faça de novo o Download e teste, já corrigi.

Realmente era isto, antes de ver sua ultima postagem

abri a aba de referencias e tinha duas ausentes, por isso a rotina parava.

Paulo, muito obrigado pela atenção.

Funcionou perfeitamente.

Boa Noite,JPaulo

fiz algumas alterações neste código, e só está

faltando uma coisa. Procurei hoje algum termo

e não achei. Teria como eliminar as linhas em

branco na hora da importação também?

Sds,

Bom dia amigo;

Ae está, se existir linhas em branco ignora e passa à frente;

http://dl.dropbox.com/u/771097/ImportarTXT_II.rar

Bom dia Paulo, muito obrigado pela atenção dispensada.

Sem querer abusar do seu tempo, só pra efeito de estudo,

gostaria de saber se seria possível

fazer uma condição no exemplo que vc me passou a rotina

fizesse o inverso, ou seja :

Código Atual:

'encontrar a linha com o inicio a começar por 4530
If Left(LinhaDoTexto, 4) Like "4530" Then

'aqui deleta onde o texto começar por 4530*
LinhaDoTextoTemp = Mid(LinhaDoTexto, 11, 255)
LinhaDoTexto = LinhaDoTextoTemp
End If

Inverso:
'encontrar a linha com o inicio a começar por 4530

If Left(LinhaDoTexto, 4) Like "4530" Then
???

Condição: 'Importar somente estas linhas que começam com 4530

Desde já agradeço a sua colaboração.

Sds,

Amigão agora que o código está todo feito é o simples, até pode brincar com ele, veja:

http://dl.dropbox.com/u/771097/ImportarTXT_III.rar

Grande JPaulo, como era simples mesmo

Só pra ter uma idéia, como neste texto que eu

importo, os dados começam sempre por uma sequencia de

de números (086868) bastou eu colocar este if, juntamente com

os outros para limpar toda a sujeira do texto, evitando criar uma

consulta pra isso.

Vc me salvou mesmo.

Muito Obrigado mesmo!

Sds,

Valew amigo, se precisar de novo dê um grito.

Apenas concluindo como resolvido