Commande FILEREAD

Permet de lire le contenu d’un fichier texte (ANSI ou UTF8 sans BOM) ouvert avec la commande FILEOPEN.

Syntaxe

CHGVAR	VAR(&CMD) VALUE('FILEREAD')
CHGVAR	VAR(&PARM1) VALUE('StartBegin=true/false')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

Paramètres

Parm1

StartBegin :
- True : commence la lecture au début du fichier.
- False : commence la lecture au début de la ligne qui suit la ligne retournée par la dernière commande FILEREAD.

La commande FILEREAD retourne chaque ligne terminée par CR LF (Carriage Return Line Feed).
Si la dernière ligne a été lue, et qu’on arrive à la fin du fichier, ou bien si le fichier est vide, la commande FILEREAD retourne : %EOF%.

Exemple

Cet exemple ouvre le fichier « C:\temp\test.txt », et lit son contenu.

Chaque ligne retournée par la commande FILEREAD est contenue dans la variable &RES, et est affichée avec la commande NOP.

On sait qu’on a parcouru tout le fichier dès lors que la commande FILEREAD retourne %EOF%.

PGM

DCL VAR(&RES) TYPE(*CHAR) LEN(2000)

LNCOPEN

LNCCMD CMD(FILEOPEN) +

PARM1('File="c:\temp\test.txt"')

LNCCMDR CMD(FILEREAD) PARM1('StartBegin=true') +

RESULT(&RES)

LNCCMD CMD(NOP) PARM1(&RES)

DOWHILE COND(&RES *NE '%EOF%')

LNCCMDR CMD(FILEREAD) PARM1('StartBegin=false') +

RESULT(&RES)

LNCCMD CMD(NOP) PARM1(&RES)

ENDDO

LNCCMD CMD(FILECLOSE)

LNCCLOSE

ENDPGM

Voir aussi

• FILEWRITE

• FILECLOSE