F_EOF

Аргументы:

ID INT номер файла: возвращенный функциями F_ROPEN или F_WOPEN

ok BOO индикатор конца файла

TRUE если конец файл был достигнут при последнем чтении или записи

FM_READ последнее сообщение прочитанное из файла может быть неверным, если последний символ -

не символ окончания строки

Описание:

Проверяет достигнут ли конец файла. Эта функция не включена в симулятор ISaGRAF.

(*FBD программа, использующая блоки управления файлом*)

(* ST Эквивалент: *)

file_id := F_ROPEN('data.bin');

WHILE not(F_EOF(file_id))

VAL := FA_READ(file_id);

END_WHILE;

MESSAGE := 'last val = ' + msg(VAL);

ok := F_CLOSE(file_id);

(* IL Эквивалент: *)

LD 'data.bin'

F_ROPEN

ST file_id

LD file_id

F_EOF

JMPC END_OF_FILE

NOT_EOF: LD file_id

FA_READ

ST VAL

LD file_id

F_EOF

JMPNC NOT_EOF (* если не eof, то читать*)

END_OF_FILE: LD VAL

MSG

ST val_msg (* превращение VAL в строку *)

LD 'last val = '

ADD val_msg

ST MESSAGE

LD file_id

F_CLOSE

ST ok