MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Preciso Juntar dois arquivos TXT

    avatar
    caiovini
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Preciso Juntar dois arquivos TXT Empty [Resolvido]Preciso Juntar dois arquivos TXT

    Mensagem  caiovini 20/12/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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Preciso Juntar dois arquivos TXT Empty Re: [Resolvido]Preciso Juntar dois arquivos TXT

    Mensagem  ahteixeira 20/12/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:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Abraço
    avatar
    caiovini
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Preciso Juntar dois arquivos TXT Empty Re: [Resolvido]Preciso Juntar dois arquivos TXT

    Mensagem  caiovini 20/12/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!!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Preciso Juntar dois arquivos TXT Empty Re: [Resolvido]Preciso Juntar dois arquivos TXT

    Mensagem  ahteixeira 20/12/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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Preciso Juntar dois arquivos TXT Empty Re: [Resolvido]Preciso Juntar dois arquivos TXT

    Mensagem  ahteixeira 21/12/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: 5/3/2021, 22:34