MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Preciso Juntar dois arquivos TXT

    Compartilhe

    caiovini
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 20/12/2016

    Preciso Juntar dois arquivos TXT

    Mensagem  caiovini em Ter 20 Dez 2016, 14:51

    Boa Tarde,

    Preciso juntar 2 arquivo .txt  sendo que cada arquivos esta em um diretório especifico, e salvar em um terceiro lugar.

    Exemplo

    C:/01.txt --- (primeiro arquivo)

    C:/01.txt ---- (Segundo Arquivo)

    z:/01.txt ---- (Junção do arquivo 1 com arquivo 2)


    Fui um modelo usando Bat, porém Não consegui salvar. Agora estou tentando em VBA mais não consigo.

    Desculpa minha burrice esta area.


    Modelo em .bat que estava tentando.


    Copy C:/01.txt + d:/01.txt


    Agradeço a ajuda
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4111
    Registrado : 15/03/2013

    Re: Preciso Juntar dois arquivos TXT

    Mensagem  ahteixeira em Ter 20 Dez 2016, 15:52

    Olá Caio, Bem-vindo ao MaximoAccess.

    Tente assim, com estas duas linhas de comando, pode ser em BAT
    Código:
    Type C:\01.txt > z:\01.txt
    Type C:\02.txt >> z:\01.txt

    Em VBA também será possivel, já temos diversos exemplos, efetue uma busca aqui no fórum, veja como fazer no link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    caiovini
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 20/12/2016

    Re: Preciso Juntar dois arquivos TXT

    Mensagem  caiovini em Ter 20 Dez 2016, 16:25

    Obrigado ahteixeira,

    Então este comando ficou bom porém se eu apagar o arquivo 1 que esta no outro diretório o arquivo que fez a junção vai dar errado. quando eu rodar novamente o .bat

    Vou tentar ver se acho em algum lugar pois com .bat parece ser mais fácil.

    Muito Obrigado!!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4111
    Registrado : 15/03/2013

    Re: Preciso Juntar dois arquivos TXT

    Mensagem  ahteixeira em Ter 20 Dez 2016, 16:31

    Olá se apagar qualquer arquivo de origem, logicamente não vai dar certo.
    Tenha atenção que na primeira linha está apenas com um sinal > , caso exista o ficheiro vai colocar de novo.
    Na segunda está com dois sinais (>>), para adicionar.
    Abraço
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4111
    Registrado : 15/03/2013

    Re: Preciso Juntar dois arquivos TXT

    Mensagem  ahteixeira em Qua 21 Dez 2016, 15:56

    Olá Caio,
    para fazer o mesmo em código VBA, segue abaixo exemplo:

    Código:
    Sub JuntarDoisTXT()
    'Álvaro Teixeira (ahteixeira) 2016 para MaximoAccess
        
        Dim sTXT$
        fDestino = "d:\Destino.txt"
        
        
        Open "d:\Destino.txt" For Output Access Write As #2 'abrir ficheiro destino
        
        Open "d:\Origem1.txt" For Input Access Read As #1 ' abrir ficheiro origem nº 1
        Do While Not EOF(1)
            Input #1, sTXT 'le para variavel
            Print #2, sTXT 'grava da variavel
        Loop
        Close #1 'fechar ficheiro origem 1
        
        
        Open "d:\Origem2.txt" For Input Access Read As #1 ' abrir ficheiro origem nº 2
        Do While Not EOF(1)
            Input #1, sTXT
            Print #2, sTXT
        Loop
        Close #1 'fechar ficheiro origem 2
        
        Close #2 'fechar ficheiro destino
        
        MsgBox "Efetuado.", vbInformation, ""
    End Sub

    Ajustando o nome dos ficheiros e caminho, pode testar na janela Imediate (imediata do VBA).
    Abraço

      Data/hora atual: Dom 25 Jun 2017, 06:27