[Resolvido]Importar dados de um arquivo TXT irregular

Pessoal, estou com um arquivo em txt e preciso criar uma tabela com campos destintos, porém as informações que preciso estão em linha diferentes, ou seja, o nome do empregado esta na linha x, os dados estão depois de 5 linhas, e assim vai até o final do relatório!
Preciso do campo da Data, Nome e ocorrencia!
Arquivo anexo.

Alquem pode me dar uma luz??

Abraços!

Olá!

Então existe um material excelente escrito pelo OsmarJr que me ajudou muito quando comecei a trabalhar com txt.

Baixe o artigo aqui

O nome do arquivo é Importando Arquivos Texto Via VBA.

Bom estudo!

Qualquer dúvida, poste aqui.

Olá Osmar, seja bem vindo ao nosso fórum.

Já existe alguns tópicos aberto sobre esse problema. Sugiro que você utilize o nosso sistema de busca.

Alguns exemplos:

clique aqui
clique aqui
clique aqui

Bom dia Le_lo28....não notei que você respondeu, pois estava anexando os links do nosso fórum.

Bom dia e um bom trabalho para você.

Valeu galera!

Vocês são os melhores!

Abraços!

O Fórum agradece o retorno!

Silvio, estamos num fórum e quanto mais compartilharmos nossos conhecimentos, melhor!

Abraços,

Pessoal, fiz conforme explicação..., montei a estrutura e td mais. Ao fazer a importação ele dá a mensagem de concluído, porém na tabela "Clientes", não adiciona os registros...

OLhem o código, fiz alguma besteira..??

Private Sub Comando0_Click()
Dim I As Integer
Dim linha(2) As String
Dim db As Database
Dim rs As Recordset

Open "c:/Importar_TXT/Empresas.txt" For Input As #1
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Clientes", dbOpenTable)

Do While Not EOF(1)

Line Input #1, linha(1)
Nome = Mid(linha(1), 1, 40)

Line Input #1, linha(2)
Endereco = Mid(linha(2), 1, 50)

rs.AddNew

rs(0) = Nome
rs(1) = Endereco

Loop

MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close

Close #1

End Sub

Tardes.....não testei....mas se funfar....

rs.AddNew

rs(0) = Nome troque para rs(1)
rs(1) = Endereco troque para rs(2)

Vou tentar...

Pessoal achei o que faltava ... rs.update, antes do Loop

Agora resolveu!

Abraços!

Outro problema pessoal, no arquivo txt, tenho algumas linhas em branco. Como faço para pular estas linhas...??? Enquanto não tinha espaços legal, mas agora dá erro....

Opa! Altere conforme abaixo:

Código:


Do While Not EOF(1)

Line Input #1, linha(1)
Nome = Mid(linha(1), 1, 40)

Line Input #1, linha(2)
Endereco = Mid(linha(2), 1, 50)

If len(Nome)>0 then

rs.AddNew

rs(0) = Nome
rs(1) = Endereco
rs.update

end if

Loop



Falow,

Valeu, Le!

Mas agora ta dando este erro " Erro de compilação, loop sem Do"...


O arquivo esta assim, neste caso ele da erro "entrada depois do fim do arquivo", devido aos espaços no txt, para começar os dados. E assim vai até o final do arquivo...

Gilberto B Varela
Tel: (84) 3211-39
Rua Quinho Chaves, 1556
Lagoa Nova
Natal
RN
59076-670
Espaço em branco (esta linha não possui dados)
Granito Acessoria Contábil
Tel: (84) 3211-10
Avenida Bernardo Vieira, 3778 AN1
Lagoa Nova
Natal
RN
59051-005
Espaço em branco (esta linha não possui dados)
Michelle Cristina
Tel: (84) 3211-10
Avenida Bernardo Vieira, 3778 AN1
Lagoa Nova
Natal
RN
59051-005
Espaço em branco (esta linha não possui dados)

E o código abaixo:

Private Sub Comando0_Click()

'Estrutura do banco de dados Access
'Nome (40)
'Tel (15)
'Endereco (50)
'Bairro (20)
'Cidade (15)
'UF (2)
'CEP (10)
'-----------------------------
Dim I As Integer
Dim linha( As String
Dim db As Database
Dim rs As Recordset
Open "C:/Importar_TXT/Empresas.txt" For Input As #1
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Clientes", dbOpenTable)

Do While Not EOF(1)

Line Input #1, linha(1)
Nome = Mid(linha(1), 1, 40)

Line Input #1, linha(2)
Tel = Mid(linha(2), 1, 15)

Line Input #1, linha(3)
Endereco = Mid(linha(3), 1, 50)

Line Input #1, linha(4)
Bairro = Mid(linha(4), 1, 20)

Line Input #1, linha(5)
Cidade = Mid(linha(5), 1, 15)

Line Input #1, linha(6)
UF = Mid(linha(6), 1, 2)

Line Input #1, linha(7)
CEP = Mid(linha(7), 1, 10)

Line Input #1, linha(7)
Teste = Mid(linha(7), 1, 10)


rs.AddNew

rs(0) = Nome
rs(1) = Tel
rs(2) = Endereco
rs(3) = Bairro
rs(4) = Cidade
rs(5) = UF
rs(6) = CEP
rs(7) = Teste


rs.Update

End If



Loop


MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close


Close #1

End Sub

Pergunta:

A quebra de um bloco de registro para o outro é espaço?

Porque esse modelo que vc postou para download está diferente do que você escreveu no seu último post ?

I'm sorry! Aquele outro deu certo, mas quando tenho "espaço", ele da erro...

Peguei este outro exemplo, para facilitar o entendimento que está ocorrendo...

No post para download, é a mesma situação.

Tem solução???

Abraços!!!!

Você pode fazer o seguinte se o código que vc fez está importando os dados corretamente, após a importação faça uma varredura na tbl e exclua os registros em branco.

Exemplo:

Código:



Loop

'Aqui vai o código para excluir
db.Execute "Delete Nome From Clientes"

MsgBox "Importação Concluída com Sucesso!!"
rs.Close
db.Close


Close #1


Como o seu arquivo tem dados em linhas diferentes que compôe um único registro, fica mais complicado fazer um tratamento na importação com IF, dá para fazer mas é mais complicado.

Na esperança que ajude.

Falow,

Valeu pessoal pelas dicas!