EOFEOL 的範例代碼

以下範例代碼應在「編輯」視窗的命令模式下輸入,而非在檔案 I/O 對話方塊內輸入。

以下代碼可開啓 test.txt 並讀取檔案。祇要尚未到達檔案的末尾(指派了代碼 WHILE/!EOF,PC-DMIS 即會逐字元讀取此檔案,並爲 V1 指派一個字元。

若 PC-DMIS 到達檔案中某一行的末尾,PC-DMIS 將顯示該行的最後一個字元。

如此重復,直至 PC-DMIS 到達檔案末尾。然後 PC-DMIS 會顯示文字「已到達檔案末尾…」。

FPTR=FILE/OPEN,D:\temp\test.txt,READ

WHILE/!EOF("FPTR")

V1=FILE/READ_CHARACTER,FPTR

IF/EOL("FPTR")

COMMENT/OPER,NO,"已到達行末。最後的字元爲:"

,V1

END_IF/

END_WHILE/

COMMENT/OPER,NO,"已到達檔案末尾…"