Manipulação de arquivos (txt)

Daew pessoal gostaria de saber alguns comandos de manipulação de arquivo txt.
por exemplo gerar um arquivo e depois ler esse arquivo.
queria saber como funciona isso no progress, tipo como eu coloco os valores do arquivo em variaveis e tudo mais..


at+

Leitura: viewtopic.php?f=19&t=25

Para escrever tu pode fazer direto ou usando stream.

Direto

Código:

output to c:\temp\teste.txt.
disp "abbbbb".
output close.

Com stream

Código:

def stream str-rp.
output stream str-rp to c:\temp\teste.txt.
disp stream str-rp "abc".
output stream str-rp close.

A diferença é que com stream tu pode manipular mais arquivos de uma vez, enquanto sem tu só poderá ter um arquivo aberto por vez.

Ajuste de problemas de leitura na ultima linha arquivo texto

/*
Este include garante que o arquivo texto de INPUT tenha no final um ENTER
para evitar o problema na importacao da ultima linha do arquivo.

Parametros: 1- Nome do arquivo que serah lido
OBS: o arquivo texto de leitura deve ter permissao de gravacao
Autor : Reinaldo Arthur Laganaro
*/

DEFINE VARIABLE zz-posicao AS INTEGER NO-UNDO.

INPUT FROM {1} NO-ECHO.
SEEK INPUT TO END.
ASSIGN zz-posicao = SEEK(INPUT).
SEEK INPUT TO zz-posicao - 1.
READKEY.
INPUT CLOSE.
IF LASTKEY <> 13 THEN DO:
OUTPUT TO {1} APPEND NO-ECHO.
PUT SKIP(1).
OUTPUT CLOSE.
END.

Olá Paulinho,

Também se quiser você pode abrir o arquivo gerado ao final do programa com o linha de código abaixo:

Código:

DOS SILENT START VALUE(c-arquivo).  /* c-arquivo é o endereço do arquivo gerado */

NOTA: Ele deve ter sido fechado [OUTPUT STRTEAM s-saida CLOSE] pra não acusar erro ao tentar abri-lo.

Poh pessoal vlw pelas dicas aew.

foi de grande utilidade.

at+

E ai tche, tenho um exemplo aqui barbadenha...


/**** export *****/
output to "p:\temp\cidadesprod.txt".
for each cidade no-lock.
export delimiter ";" cidade.
end.
output close.


/*** import ****/
disable triggers for load of cidade.
input from "p:\temp\cidadesprod.txt".
repeat:
create cidade.
import delimiter ";" cidade
except cidade.fil-cod
cidade.pst-cod no-error.
assign cidade.fil-cod = 1
cidade.pst-cod = 1.
end.
input close.