MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Unir Arquivos Texto (.txt) fora do Banco de Dados

    Compartilhe

    Julio Ramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 05/09/2014

    [Resolvido]Unir Arquivos Texto (.txt) fora do Banco de Dados

    Mensagem  Julio Ramos em Sab 07 Mar 2015, 06:10

    Caros Amigos!
            Estou com dificuldades para Unir diversos arquivos de Texto q estão fora do meu Banco de Dados,
    Mantendo em todos as suas especificações e separando-os por linhas, sendo que cada um arquivo originará
    uma nova linha no arquivo resultante.

    Se puder contar com vossas costumeiras colaboração agradeço antecipadamente.


    Última edição por Julio Ramos em Sab 07 Mar 2015, 19:59, editado 1 vez(es)

    TorresForte
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 18/05/2010

    Re: [Resolvido]Unir Arquivos Texto (.txt) fora do Banco de Dados

    Mensagem  TorresForte em Sab 07 Mar 2015, 16:17

    Código:

    Sub lerArquivoEscreverTxt()
    Dim varLinhaDoArquivo
    'abri o arquivo e fica armazenado dentro de #1
    'CurrentProject.Path = nome da pasta onde se encontra o arquivo do access (ex. C:\MeuPrograma)
    Open CurrentProject.Path & "\NomeDoArquivoOrigem.txt" For Input As #1
     
        While Not EOF(1) 'executar do inicio até o fim do arquivo
            'ler linha do arquivo e armazena na variavel varLinhaDoArquivo
            Line Input #1, varLinhaDoArquivo
            
            'aqui e onde pede colocar os dados no arquivo gerado (Resultante)
            Close #3 ' se o arquivo já tiver aberto fecha
            'cria o arquvio para lançar as linhas
            'se o arquivo já existir apenas adiciona as novas linhas no final do arquivo (For Append As #3)
            Open CurrentProject.Path & "\ArquivoResultante.txt" For Append As #3
            
            'escreve no arquivo ArquivoResultante.txt armazenado em #3
            'as informações da linha obtida no arquivo NomeDoArquivoOrigem.txt
            Print #3, varLinhaDoArquivo
            'fecha o arquivo Resultante
            Close #3
        Wend
        
    'fecha o arquivo que foi aberto
    Close #1

    segue esse exemplo ai! só adaptar!!

    Julio Ramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 05/09/2014

    Unir Arquivos txt

    Mensagem  Julio Ramos em Sab 07 Mar 2015, 19:58

    Caro Amigo Torres
    Já resolvi meu problema, recorrendo ao velho DOS, pq em todas as tentativas pelo VB esbarrava no mesmo problema
    as especificações da linha de arquivo, porque para cada linha(Arquivo) eu tenho uma especificação, e o método append, seque
    as especificações da primeira linha anexada.
    Dai então resolvi exportando todos os arquivos para um diretório fora do Banco de Dados, com suas especificações corretas,
    e dentro deste diretório criei um arquivo de Lotes do MSDOS (.bat) com a seguinte instrução:

    cd C:\Diretorio
    copy Arquivo_ModeloA1.txt + Arquivo_ModeloB1.txt + Arquivo_ModeloC1.txt + Arquivo_ModeloZ1.txt ArqResultant.txt

    e Então no final da exportação executo o .bat pelo Shell:

    Docmd.SetWarnings off
    Dim stAppName as String

    stAppName = "C:\Diretorio\JuntaTudo.bat"
    Call Shell(stAppName, 1)



    Fico grato por vossa atenção e se precisar da gente, estamos as ordens.


    Abraços

      Data/hora atual: Dom 04 Dez 2016, 12:16