1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br

Duvida Leitura de arquivo "dos"

Discussão em 'Progress 4GL' iniciado por Odila, Maio 7, 2014.

  1. Agnaldo

    Agnaldo Membro Ativo

    Faz aquela "gambiarra" clássica de copiar um arquivo com uma linha em branco para o final do arquivo com o texto (concatena aquivos).
  2. lcpaulino

    lcpaulino Membro Participativo

    /*nada como uma boa gambiarra para resolver...*/

    DEF TEMP-TABLE tt-mail-ant
    FIELD tt-mail-old AS CHAR
    INDEX ch-princ tt-mail-old.

    DEFINE VARIABLE c-diretorio AS CHARACTER NO-UNDO.
    DEFINE VARIABLE c-arquivo-original AS CHARACTER NO-UNDO.
    DEFINE VARIABLE c-arquivo-fim-de-linha AS CHARACTER NO-UNDO.
    DEFINE VARIABLE c-novo-arquivo AS CHARACTER NO-UNDO.


    ASSIGN c-diretorio = 'c:\temp\'
    c-arquivo-original = 'ft0513imp99teste.txt'
    c-arquivo-fim-de-linha = 'fim-de-linha.txt'
    c-novo-arquivo = '1-' + c-arquivo-original.

    OUTPUT TO VALUE(c-diretorio + c-arquivo-fim-de-linha).
    DISP ''.
    OUTPUT CLOSE.

    DOS SILENT COPY/Y VALUE(c-diretorio + c-arquivo-original + " + " + c-diretorio + c-arquivo-fim-de-linha) VALUE(c-diretorio + c-novo-arquivo).


    INPUT FROM VALUE(c-diretorio + c-novo-arquivo).
    CREATE tt-mail-ant.
    IMPORT UNFORMATTED tt-mail-ant.


    FOR EACH tt-mail-ant:
    DISP
    tt-mail-ant.tt-mail-old FORMAT 'x(200)'
    WITH STREAM-IO SCROLLABLE.
    END.
    liliane curtiu isso.

Compartilhe esta Página