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]Importar e Exportar aquivos TXT

    Compartilhe

    toxicsquall
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011

    [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  toxicsquall em Seg 14 Jul 2014, 19:02

    Boa Tarde,
    estava precisando de ajuda e gostaria de saber se alguém consegueria me ajudar. É o seguinte:

    Arrow Temos um equipamento topográfico que exporta os dados coletados das coordenadas para um arquivo txt.
    Porém este arquivo possue os dados de todos os locais aonde foram cadastrados os pontos.
    Neste arquivo txt estão em anexo.
    Eu precisaria importar e exportar em arquivos distintos os dados, dividindo os arquivos em outros txts, separando toda vez que encontrar a palavra EST já seria outro txt.
    Exemplo:


    EST:GP3B105         HI: 1.700 ---------------------------------------------------  E= 652755.662 N= 8365449.270 H=  672.172   DATA:06/07/14 HORA:17:56:58
    RE :J6240           AZRE:177.5741 -----------------------------------------------  E=----------- N=------------ ------------  DATA:06/07/14 HORA:17:56:59
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]
    EST:CM8_730         HI: 1.700 ---------------------------------------------------  E= 652857.264 N= 8365531.284 H=  741.155   DATA:06/07/14 HORA:17:58:13
    RE :J5408           AZRE:83.0008  -----------------------------------------------  E=----------- N=------------ ------------  DATA:06/07/14 HORA:17:58:14
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]
    PV :J5408           HZ=262.5759 VT=103.5203 DI=    5.047 HP= 0.000 PPM= -0 MM=  0  E= 652852.401 N= 8365530.684 H=  741.646   DATA:06/07/14 HORA:17:57:43
    PV :J5409           HZ=323.1345 VT=105.2728 DI=    4.548 HP= 0.000 PPM= -0 MM=  0  E= 652854.640 N= 8365534.795 H=  741.643   DATA:06/07/14 HORA:17:58:09




    E ficaria em cada arquivo assim:

    EST:GP3B105         HI: 1.700 ---------------------------------------------------  E= 652755.662 N= 8365449.270 H=  672.172   DATA:06/07/14 HORA:17:56:58
    RE :J6240           AZRE:177.5741 -----------------------------------------------  E=----------- N=------------ ------------  DATA:06/07/14 HORA:17:56:59
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]


    e exportando outro arquivo txt:

    EST:CM8_730         HI: 1.700 ---------------------------------------------------  E= 652857.264 N= 8365531.284 H=  741.155   DATA:06/07/14 HORA:17:58:13
    RE :J5408           AZRE:83.0008  -----------------------------------------------  E=----------- N=------------ ------------  DATA:06/07/14 HORA:17:58:14
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]
    PV :J5408           HZ=262.5759 VT=103.5203 DI=    5.047 HP= 0.000 PPM= -0 MM=  0  E= 652852.401 N= 8365530.684 H=  741.646   DATA:06/07/14 HORA:17:57:43
    PV :J5409           HZ=323.1345 VT=105.2728 DI=    4.548 HP= 0.000 PPM= -0 MM=  0  E= 652854.640 N= 8365534.795 H=  741.643   DATA:06/07/14 HORA:17:58:09


    Ele tomando base de ver quando aparecer a palavra EST como delimitador para exportar para outro arquivo txt.
    Seria possível realizar este tipo de importação e exportação com VBA?
    Anexos
    06.07_CRS.txt
    Arquivo de referência.
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 17 vez(es)


    .................................................................................
    Gilberto Teles do Vale
    [Você precisa estar registrado e conectado para ver este link.]

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  clebergyn em Ter 15 Jul 2014, 09:17

    é possivel sim, veja em anexo se é mais ou menos isso,
    esta dando erro na segunda vez, mas se fechar e abrir executará certo
    Anexos
    geratopografico.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (684 Kb) Baixado 41 vez(es)

    toxicsquall
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011

    Valeu

    Mensagem  toxicsquall em Ter 15 Jul 2014, 16:14

    Cara ficou perfeito!!!
    Porém eu tenho mais um pedido, é porq cada arquivo gerado TXT, tem de ter a primeira linha com o nome da "obra" gerada, estilo assim:


    OBRA: 2321654 FULANO BELTRANO
    EST:CM1A.RS114      HI: 1.700 ---------------------------------------------------  E= 651587.733 N= 8366327.237 H=  697.531   DATA:15/07/14 HORA:01:34:21
    RE :AUX2            AZRE:342.0631 -----------------------------------------------  E=----------- N=------------ ------------  DATA:15/07/14 HORA:01:34:21
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]
    EST:GP1A115         HI: 1.700 ---------------------------------------------------  E= 652513.378 N= 8365519.371 H=  659.764   DATA:15/07/14 HORA:01:34:56
    RE :J6390           AZRE:324.2531 -----------------------------------------------  E=----------- N=------------ ------------  DATA:15/07/14 HORA:01:34:57
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]
    PV :J6217           HZ= 73.4822 VT= 88.1645 DI=    5.680 HP= 0.000 PPM= -0 MM=  0  E= 652518.831 N= 8365520.955 H=  661.635   DATA:15/07/14 HORA:01:34:31
    PV :J6390           HZ=324.2857 VT= 98.3708 DI=    6.252 HP= 0.000 PPM= -0 MM=  0  E= 652509.787 N= 8365524.403 H=  660.527   DATA:15/07/14 HORA:01:34:52


    Aí deveria ficar assim em cada arquivo:

    OBRA: 2321654 FULANO BELTRANO
    EST:CM1A.RS114      HI: 1.700 ---------------------------------------------------  E= 651587.733 N= 8366327.237 H=  697.531   DATA:15/07/14 HORA:01:34:21
    RE :AUX2            AZRE:342.0631 -----------------------------------------------  E=----------- N=------------ ------------  DATA:15/07/14 HORA:01:34:21
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]

    OBRA: 2321654 FULANO BELTRANO
    EST:GP1A115         HI: 1.700 ---------------------------------------------------  E= 652513.378 N= 8365519.371 H=  659.764   DATA:15/07/14 HORA:01:34:56
    RE :J6390           AZRE:324.2531 -----------------------------------------------  E=----------- N=------------ ------------  DATA:15/07/14 HORA:01:34:57
    COD:[RE      ] [        ] [        ] [        ] [        ] [        ] [        ] [        ]
    PV :J6217           HZ= 73.4822 VT= 88.1645 DI=    5.680 HP= 0.000 PPM= -0 MM=  0  E= 652518.831 N= 8365520.955 H=  661.635   DATA:15/07/14 HORA:01:34:31
    PV :J6390           HZ=324.2857 VT= 98.3708 DI=    6.252 HP= 0.000 PPM= -0 MM=  0  E= 652509.787 N= 8365524.403 H=  660.527   DATA:15/07/14 HORA:01:34:52

    Tem como fazer com que uma variável receba o valor contido em um campo de texto em que eu digitar para cada primeira linha dos arquivos possuirem este nome?


    .................................................................................
    Gilberto Teles do Vale
    [Você precisa estar registrado e conectado para ver este link.]

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  clebergyn em Ter 15 Jul 2014, 17:35

    nao sei se entendi, veja se é isso ai
    Anexos
    geratopografico.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (614 Kb) Baixado 13 vez(es)


    Última edição por clebergyn em Ter 15 Jul 2014, 18:07, editado 1 vez(es)

    toxicsquall
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011

    exatamente

    Mensagem  toxicsquall em Ter 15 Jul 2014, 18:06

    o arquivo já possui este nome de obra dentro dele. mas para mim ele nao seria necessário, porém o outro programa que lerá os arquivos só aceita se cada um vier com este padrão de nome de obra na primeira linha.
    A separaçaão dos arquivos será a mesma, porém cada um deverá vir com esta primeira linha.
    Em anexo estou deixando o arquivo bruto original mesmo. O anterior que eu passei eu tinha editado. Este é o original.
    Anexos
    LEONCIO (2).txt
    Arquivo base original.
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 21 vez(es)


    .................................................................................
    Gilberto Teles do Vale
    [Você precisa estar registrado e conectado para ver este link.]

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  clebergyn em Ter 15 Jul 2014, 18:08

    veja no post acima no anexo se é isso

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  clebergyn em Ter 15 Jul 2014, 18:51

    veja ai com o arquivo bruto, tirei tambem o eof no ultimo registro

    neste entao voce puxa o arquivo bruto ok
    Anexos
    geratopografico arq bruto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (692 Kb) Baixado 48 vez(es)

    toxicsquall
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011

    Deu certo!!

    Mensagem  toxicsquall em Qua 16 Jul 2014, 12:02

    Muito obrigado!!! Deu certinho!!! Valeu mesmo!!!


    .................................................................................
    Gilberto Teles do Vale
    [Você precisa estar registrado e conectado para ver este link.]

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  clebergyn em Qui 17 Jul 2014, 03:31



    Obrigado pelo retorno,
    sou de Goiania, se precisar de mais coisas em Access
    alem deste Forum
    entre em contato: [Você precisa estar registrado e conectado para ver este link.]

    Motar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 143
    Registrado : 03/08/2010

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Motar em Qui 31 Jul 2014, 11:48

    Viva
    Tem como executar uma importação guardada  (TXT) via código?
    Anexos
    Menu Access.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 23 vez(es)

    clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 519
    Registrado : 29/08/2012

    Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  clebergyn em Qui 31 Jul 2014, 17:51

    tem como importar a uma tabela e tem como anexar o txt que fica como uma tabela,
    detalhe o que voce quer fazer, anexe seu banco zipado e o txt tambem

      Data/hora atual: Seg 05 Dez 2016, 04:21