Manipulação de arquivos (txt)

Discussão em 'Progress 4GL' iniciado por xPaulinhox, Fevereiro 13, 2009.

Página 2 de 2
  1. xPaulinhox

    xPaulinhox Membro Participativo

    faça esse código como exemplo pra mim por favor:

    em um arquivo txt tem o testo "teste".

    qual é o código para eu colocar esse "teste" em uma váriavel "a" por exemplo????

    vlw

    abraço

    at+
    xPaulinhox, Março 18, 2009
    #7
  2. betopac

    betopac Sem Pontuação

    na veerdade é fazer o que eu fiz ali, jogando para uma variável char e depois procurar teu texto dentro da linha...
    com lookup ou um substr ou matches...
    dá uma olhada no help que sempre dá uma ajuda
    betopac, Março 18, 2009
    #8
  3. xPaulinhox

    xPaulinhox Membro Participativo

    Consegui vlw.

    Código:
    DEFINE VARIABLE teste AS CHAR.
INPUT FROM "c:\temp\cod.txt".
REPEAT:
IMPORT teste.
END.
INPUT CLOSE.
DISP teste.
    xPaulinhox, Março 19, 2009
    #9
  4. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Caro colega, em outra mensagem havia colocado um exemplo mais detalhado, veja:

    Código:
    def var c-file      as char                 no-undo.
def var c-linha     as char format "x(20)"  no-undo.

def var c-coluna-1  as char format "x(10)"  no-undo.
def var c-coluna-2  as char format "x(10)"  no-undo.

def stream s-entrada.
def stream s-saida.

def var i           as int  no-undo.

assign c-file = "c:/Temp/testeArq.txt".

/***** Exportando para o Arquivo *****/
output stream s-saida to value(c-file).

    do i = 1 TO 15:
        put stream s-saida 
            unformatted 
            "Nr Linha " i 
            ";"
            time skip.
    end.

output stream s-saida close.

/***** Importando do Arquivo - Para apenas uma variável - conteúdo total da linha *****/
input stream s-entrada from value(c-file).

    repeat:
    
        import stream s-entrada 
               unformatted c-linha.

        assign c-coluna-1 = entry(1,c-linha,";")
               c-coluna-2 = entry(2,c-linha,";").

        disp c-linha c-coluna-1 c-coluna-2.
    
    end.

input close.

/***** Importando do Arquivo - Delimitado e inserindo em mais de uma variável *****/
input stream s-entrada from value(c-file).

    repeat:
    
        import stream s-entrada 
               delimiter ";"
               c-coluna-1 c-coluna-2.
        
        disp c-coluna-1 c-coluna-2.
    
    end.

input close.
    No código que você montou tome o cuidado para o seguinte: Se no arquivo tiver mais de 01 linha, no disp você verá somente o ultimo registro, pois está fora do repeat.
    eduardo.leite, Março 20, 2009
    #10
  5. denek

    denek Membro Participativo

    100% Reinaldo, obrigado!
    denek, Junho 26, 2015
    #11
Página 2 de 2

Compartilhe esta Página