Kbase 36453: Programa para ler arquivos maiores de 32000 caracteres
| Autor |
Adriano Correa - CAT |
| Acesso |
Público |
| Publicação |
26/09/2007 |
|
O exemplo abaixo lê o arquivo em modo binário e mostra faixas de caracteres dentro da string lida.
DEF VAR v-mem AS MEMPTR.
INPUT FROM D:\workarea\arquivo.txt BINARY.
FILE-INFO:FILE-NAME = "D:\workarea\arquivo.txt".
MESSAGE FILE-INFO:FILE-SIZE.
SET-SIZE(v-mem) = FILE-INFO:FILE-SIZE.
IMPORT v-mem.
INPUT CLOSE.
DISP GET-STRING(v-mem, 60000, 3).