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

Exemplo de Leitura de Arquivo Texto

Discussão em 'Outros/Diversos' iniciado por fdantas, Janeiro 22, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Exemplo de Leitura de Arquivo Texto

    Arquivos Anexados:

    fdantas, Janeiro 22, 2009
    #1
  2. xPaulinhox

    xPaulinhox Membro Participativo

    Desculpa cara mas não retornou nada, não teria alguma material para me indicar para eu ler sobre isso????

    o código que eu estou usando é o seguinte:

    Código:
    DEFINE VARIABLE c-file AS CHARACTER  NO-UNDO. /* nome do arquivo completo diretório + arquivo*/
DEFINE VARIABLE c-linha AS CHARACTER  NO-UNDO. /* linha que está sendo lida*/
DEFINE STREAM s-entrada.
DEFINE STREAM s-saida.
DEFINE VARIABLE i AS INTEGER.

OUTPUT STREAM s-saida TO C:/Temp/testeArq.txt.

ASSIGN c-file = "c:/Temp/testeArq.txt"
       c-linha = "1".

DO i = 1 TO 100:
    DISP STREAM s-saida i.
END.

OUTPUT STREAM s-saida CLOSE.

INPUT STREAM s-entrada FROM VALUE(c-file).

REPEAT:
        IMPORT STREAM s-entrada UNFORMATTED c-linha.
END.
    o que eu estou querendo fazer é guardar as informações lidas no arquivo em variáveis para poder manipula-las.

    abraço
    at+
    xPaulinhox, Março 16, 2009
    #2
  3. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Caro colega,

    Verifique se atende sua necessidade:

    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.
    eduardo.leite, Março 17, 2009
    #3

Compartilhe esta Página