MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    Julio Ramos
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Unir Arquivos Texto (.txt) fora do Banco de Dados

    Mensagem  Julio Ramos 7/3/2015, 01: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 7/3/2015, 14:59, editado 1 vez(es)
    avatar
    TorresForte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  TorresForte 7/3/2015, 11: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!!
    avatar
    Julio Ramos
    Novato
    Novato


    Respeito às regras : 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 Empty Unir Arquivos txt

    Mensagem  Julio Ramos 7/3/2015, 14: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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:33