[Resolvido]Ignorar primeira linha ao importar TXT

Amigos,

Ja revirei todos os códigos que achei aqui mas nao consegui adaptar nenhum, alguem consegue me dar uma luz?
Preciso importar um artuivo txt ignorando a primeira linha.

O arquivo ta em anexo, pois não consegui explicar melhor o que preciso.
Preciso criar uma rotinha que busque em uma pasta determinada qualquer arquivo txt (pois todos os dias o banco envia um arquivo com nome diferente), e faca essa importacao ignorando a primeira linha...
Depois da importação pode dar um "kill"...

Obrigado

Não, o arquivo não está em anexo...

Bom dia,

Com permissão do amigo Cláudio,

Veja este Link Aqui

Sds,

chsestrem, muito obrigado pela dica, vou dar uma fuçada nos códigos para tentar adaptar,
contudo estou enviando o txt em anexo para o caso de alguem ter uma luz.

Desculpe, é que sou muito amador ainda com esse assunto!!!

Valeu

Amigo, seu txt pelo que eu vi é

de tamanho fixo.

Após retirar a primeira linha você pode importar os campos

pelo assistente ou fazer a rotina de importação usando a

função Mid().

Abaixo tem a função pra retirar a primeira linha

Cole esta função em um módulo.

Vai retirar a primeira linha do seu arquivo

e salvar com o nome saída.

Coloque nos argumentos o caminho de Origem e de destino

Código:


Option Compare Database
Option Explicit

Public Function LimpaTexto(CaminhoOrigem As String, CaminhoDestino As String)
Dim Linha As String

'Caminho Origem para Teste
'  "C:\Documents and Settings\Usuario\Desktop\C130206A.TXT"
'
'Caminho Destino para Teste
'  "C:\Documents and Settings\Usuario\Desktop\SAIDA.TXT"

Open CaminhoOrigem For Input As #1

Do While Not EOF(1)

    Line Input #1, Linha
        If Len(Linha) > 0 Then ' Se existir linhas
        If Left(Linha, 1) <> "" Then 'Linhas em branco
        If Left(Linha, 9) <> "01REMESSA" Then 'Critério da primeira linha
            Open CaminhoDestino For Append As #2
            Print #2, Linha
            Close #2
        End If
        End If
        End If
Loop
Close #1

End Function

'Para usar a função

'Call LimpaTexto("C:\Documents and Settings\Usuario\Desktop\C130206A.TXT", _
"C:\Documents and Settings\Usuario\Desktop\SAIDA.TXT")


Sds,

Vejam este tópico e a mensagem Nº 5, onde eu digo:

"Utilizamos o Line Input #1, LinhaDoTexto para saltar a primeira linha"

http://maximoaccess.forumeiros.com/t9538-retirar-aspas-na-importacao-txt-e-ler-linha-unica

Amigos,

Muito obrigado pela dica e desculpe a demora no retorno, fiquei fora fds e não consegui fazer os devidos testes.

Agora, vamos lá!

Perfeito, muito bom mesmo!

Funcionou, só gostaria que me ajudassem com algo.

O Nome do arquivo que eu importo muda todos os dias, tem como eu inserir no código pra ele tratar "Qualquer" arquivo txt que estiver dentro da pasta, e depois de tratar excluir o arquivo original?

Utilize o Dir e o Kill

Dir("C:\suapasta\*.txt")

Desculpem o meu amadorismo mas não estou chegando a um resultado esperado, msa estou "quase la", alguem pode me apontar onde está o erro?


Penso em, como o JPaulo citou, usar "Dir: C:\*.txt e depois o Kill:, mas não rolou.

Vou explicar o que eu fiz com o código chsestrem, e está dando um erro.

Criei um Módulo com esse código.


Public Function LimpaTexto(CaminhoOrigem As String, CaminhoDestino As String)
Dim Linha As String

Open CaminhoOrigem For Input As #1

Do While Not EOF(1)

Line Input #1, Linha
If Len(Linha) > 0 Then ' Se existir linhas
If Left(Linha, 1) <> "" Then 'Linhas em branco
If Left(Linha, 9) <> "01REMESSA" Then 'Critério da primeira linha
Open CaminhoDestino For Append As #2
Print #2, Linha
Close #2
End If
End If
End If
Loop
Close #1

End Function



Depois disso crie um botao com evento "ao clicar" e colei isso.

Private Sub Comando0_Click()

'Call LimpaTexto("C:\Users\Thiago\Drive Google\Google Drive\Sistema\Arquivos Banco\Remessa\C130206A.TXT", _
'"S:\My SugarSync\SAIDA.TXT")

end Sub

JPaulo,

Eu usei (Ja havia usado) aquele código que vc citou em outro artigo do forum, mas esta dando o erro que printei no arquivo em anexo.

Acho que é isso aqui...

SQLError:
MsgBox "Erro na execusão do SQL '" & _
InstrucaoSQL & "'"
Close fnum
DB.Close

Mantenha o código do Amigo "chsestrem", no modulo e não altere nada, deixe como está;

No evento ao pressionar do seu botão, cole este código e altere apenas a origem e o destino;


Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim strOrigem As String
Dim strDestino As String
Dim strFicheiros As String
Dim strCaminho As String
Dim strCaminhoCopia As String

strOrigem = "C:\SuaPastaOrigem\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
strDestino = "C:\SuaPastaDestino\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
strFicheiros = dir$(strOrigem & "*.txt") 'Extrai o nome dos ficherios na pasta
strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro

'Chama a função
Call LimpaTexto(strCaminho, strCaminhoCopia)
'Deleta o .txt de origem
Call Kill(strCaminho)
End Sub

Perfeito Mestres JPaulo e Chsestrem!!!

Funcionou perfeitamente o tratamento do arquivo!!!

Muito Obrigado Mesmo!

Agora, sem querer abusar, mas já abusando, quero criar uma rotina para importar esse arquivo tratado para uma tabela.

Eu posso importar e salvar as etapas de importação, mas, no cliente não será assim.

Alguém me sugere um código que faça essa importação? Vou Colocar num evento "Ao carregar", pois quero que esse processo aconteça sem intervenção do usuário.

Do Professor OsmarJr;

Uau!

Excelente arquivo!

Vou estudar e ja posto a resposta aqui...

Excelente!!!

Perfeito!

Baseado no arquivo que você me mandou do Professor Osmar Junior, fiz algumas adaptações aqui e deu certinho!

Só esta havendo um erro no modúlo.
Quando não tem arquivo na pasta ele da um erro.

Como faço para caso a pasta esteja vazia não fazer nenhum procedimento?

Tentei o On error, mas bati cabeça aqui!

Acrescentado um IF para validar a existencia do ficheiro;

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim strOrigem As String
Dim strDestino As String
Dim strFicheiros As String
Dim strCaminho As String
Dim strCaminhoCopia As String
strOrigem = "C:\SuaPastaOrigem\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
strDestino = "C:\SuaPastaDestino\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
strFicheiros = dir$(strOrigem & "*.txt") 'Extrai o nome dos ficherios na pasta
strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro

If IsNull(strFicheiros) Or strFicheiros = "" Then
'se não existir ficheiro, o código morre aqui
Exit Sub
'se existir passa para a função
Else
'Chama a função
Call LimpaTexto(strCaminho, strCaminhoCopia)
'Deleta o .txt de origem
Call Kill(strCaminho)
End If
End Sub

Maravilha!!!

Grandes mestres!!!

Tudo perfeito!!!

Coloquei esses códigos no "ao carregar" do meu formulário "Menu".
Sendo assim, toda vez que o usuário abrir o sistema ele faz a verificação se existe aquivo no diretório. Sem intervenção do usuário!!!

Perfeito!!

Muito Obrigado

Obrigado pelo retorno o forum agradece.

Voltei... rsrs

Mestres!

Seguinte, entendi a lógica do processo e estou "me divertindo" aqui, mas surgiu outra necessidade.
Esse arquivo que tratamos aqui, é um arquivo remessa gerado pelo banco e está ok, contudo arqruivo retorno vem num formato *.ret.

Fiz todo o processo de criando um novo módulo, deu certo, contudo na hora de importar o Acess não traz esse arquivo, preciso mudar a extrensão desse arquivo para txt.

Fiz isso e não deu certo, ele continua salvando formato ret, alguem consegue me dar uma luz?

strOrigem = "C:\Itau\Retorno\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
strDestino = "C:\Itau\Retorno\Tratado\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
strFicheiros = Dir$(strOrigem & "*.ret") 'Extrai o nome dos ficheiros na pasta
StrImport = Dir$(strDestino & "*.txt")
strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro

Faça o teste com o FileCopy para ver se funfa, se funfar adapta-se ao seu codigo;


FileCopy "C:\SeuFicheiro.ret","C:\SeuFicheiro.txt"

Jpaulo

Eu ja fiz um teste com o FIlecopy assim, mas não funfou, countinou com extensão .ret.
Sabe me dizer se tem algum erro nesse comando que eu fiz?

strOrigem = "C:\Itau\Retorno\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
strDestino = "C:\Itau\Retorno\Tratado\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
strFicheiros = Dir$(strOrigem & "*.ret") 'Extrai o nome dos ficheiros na pasta
StrImport = Dir$(strDestino & "*.txt")
strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro
StrBackupCaminho = "C:\Itau\Retorno\Backup\"
StrBackup = StrBackupCaminho & strFicheiros


FileCopy strCaminho, StrBackup

Eu gostaria de despistar erros, então gostaria que o amigo corre-se somente esta instrução;

FileCopy "C:\SeuFicheiro.ret","C:\SeuFicheiro.txt"

Teste assim;

FileCopy strCaminho, Replace(StrBackup, ".ret", ".txt")

É JPaulo, você tem razão!!

Testei assim e deu certo!!!

Mas, agora eu fiquei com uma pulga atras da orelha.

Tenho que tratar esses arquivos e importar para o Access, e cada dia um arquivo novo, com nome diferente.

Como faço pra renomear esses arquivos em massa e independente do nome?

Acho que to abusando, já, né?

Perfeito!!!

Usei o
FileCopy strCaminho, Replace(StrBackup, ".ret", ".txt")
E Deu certinho!!!

Muito Obrigado mesmo!!

Acho que não volto mais, pelo menos nesse tópico não... rsrsr

Obrigado, obrigado, muito obrigado!

Obrigado pelo retorno, o forum agradece.

Volte sempre.