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


3 participantes

    [Resolvido]Importar e Exportar aquivos TXT

    toxicsquall
    toxicsquall
    toxicsquall
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011
    • Mensagem nº1

    [Resolvido]Importar e Exportar aquivos TXT Empty [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  toxicsquall 14/7/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
    [Resolvido]Importar e Exportar aquivos TXT Attachment06.07_CRS.txt
    Arquivo de referência.
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 18 vez(es)


    .................................................................................
    Gilberto Teles do Vale
    www.about.me/toxicsquall
    • Ir para o topo
    Clebergyn
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012
    • Mensagem nº2

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Clebergyn 15/7/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
    [Resolvido]Importar e Exportar aquivos TXT Attachmentgeratopografico.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (684 Kb) Baixado 48 vez(es)
    • Ir para o topo
    toxicsquall
    toxicsquall
    toxicsquall
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011
    • Mensagem nº3

    [Resolvido]Importar e Exportar aquivos TXT Empty Valeu

    Mensagem  toxicsquall 15/7/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
    www.about.me/toxicsquall
    • Ir para o topo
    Clebergyn
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012
    • Mensagem nº4

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Clebergyn 15/7/2014, 17:35

    nao sei se entendi, veja se é isso ai
    Anexos
    [Resolvido]Importar e Exportar aquivos TXT Attachmentgeratopografico.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (614 Kb) Baixado 18 vez(es)


    Última edição por clebergyn em 15/7/2014, 18:07, editado 1 vez(es)
    • Ir para o topo
    toxicsquall
    toxicsquall
    toxicsquall
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011
    • Mensagem nº5

    [Resolvido]Importar e Exportar aquivos TXT Empty exatamente

    Mensagem  toxicsquall 15/7/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
    [Resolvido]Importar e Exportar aquivos TXT AttachmentLEONCIO (2).txt
    Arquivo base original.
    Você não tem permissão para fazer download dos arquivos anexados.
    (115 Kb) Baixado 26 vez(es)


    .................................................................................
    Gilberto Teles do Vale
    www.about.me/toxicsquall
    • Ir para o topo
    Clebergyn
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012
    • Mensagem nº6

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Clebergyn 15/7/2014, 18:08

    veja no post acima no anexo se é isso
    • Ir para o topo
    Clebergyn
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012
    • Mensagem nº7

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Clebergyn 15/7/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
    [Resolvido]Importar e Exportar aquivos TXT Attachmentgeratopografico arq bruto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (692 Kb) Baixado 64 vez(es)
    • Ir para o topo
    toxicsquall
    toxicsquall
    toxicsquall
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011
    • Mensagem nº8

    [Resolvido]Importar e Exportar aquivos TXT Empty Deu certo!!

    Mensagem  toxicsquall 16/7/2014, 12:02

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


    .................................................................................
    Gilberto Teles do Vale
    www.about.me/toxicsquall
    • Ir para o topo
    Clebergyn
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012
    • Mensagem nº9

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Clebergyn 17/7/2014, 03:31



    Obrigado pelo retorno,
    sou de Goiania, se precisar de mais coisas em Access
    alem deste Forum
    entre em contato: Cleberaccessgo@gmail.com
    • Ir para o topo
    Motar
    avatar
    Motar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 150
    Registrado : 03/08/2010
    • Mensagem nº10

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Motar 31/7/2014, 11:48

    Viva
    Tem como executar uma importação guardada  (TXT) via código?
    • Ir para o topo
    Clebergyn
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012
    • Mensagem nº11

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Clebergyn 31/7/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
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº12

    [Resolvido]Importar e Exportar aquivos TXT Empty Re: [Resolvido]Importar e Exportar aquivos TXT

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 7/11/2024, 13:17