1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Duvida Importação de Arquivo

Discussão em 'Progress 4GL' iniciado por dudabrito, Janeiro 8, 2016.

  1. dudabrito

    dudabrito Membro Participativo

    Boa tarde,

    Preciso fazer importação de um arquivo, como é feito por um programa de importação, porém sem utilizar a {include/i-imarq.i}. Alguém tem algum exemplo ?
    dudabrito, Janeiro 8, 2016
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Você poderia escrever um exemplo do conteúdo do arquivo? que formato é? tem caracter de separação tipo ";" como um CSV?
    rafael.andrade, Janeiro 8, 2016
    #2
    dudabrito curtiu isso.
  3. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Código:
    define variable linha as character no-undo.

input from value('Nome Arquivo').

repeat:
    import unformatted linha.
    /* aqui vc trata a linha como quiser, usando substring, entry, can-do e tudo mais */
end.

input close.
    Ler arquivo txt, esses comandos abrem o arquivo, joga linha por linha na variavel linha, quando chegar na ultima linha, o repeat interrompe automaticamente o loop.

    usando o import unformatted, não interessa o que tem na linha, ele carrega tudo na variavel até achar uma quebra de linha.
    depois do import vc trata a variavel linha como quiser usando os comandos pra "RECORTAR" a string.

    Seria isso que vc quer ?
    bootstrapmaster, Janeiro 8, 2016
    #3
    dudabrito curtiu isso.
  4. dudabrito

    dudabrito Membro Participativo

    Acabei de achar a resta para o que eu precisava num outro tópico.

    Obrigado pela ajuda.

    SYSTEM-DIALOG GET-FILE c-arq-rateio-cont-ax
    FILTERS "*.lst" "*.lst",
    "*.*" "*.*"
    DEFAULT-EXTENSION "lst"
    INITIAL-DIR 'M:/spool/ems'
    /*USE-FILENAME*/
    UPDATE l-ok.
    if l-ok = yes then do:
    assign c-arq-rateio-cont = replace(c-arq-rateio-cont-ax, "\", "/").
    display c-arq-rateio-cont with frame {&FRAME-NAME}.
    end.
    dudabrito, Janeiro 8, 2016
    #4

Compartilhe esta Página