Rexx —— 字元

此函式返回 1 或檔案本身中剩餘可讀字元數。檔名作為函式的引數提及。

語法

chars(filename)  

引數

• filename - 這是需要確定其檔案結束的檔案的名稱。

返回值

此函式返回 1 或檔案本身中剩餘可讀字元數。

示例

/* Main program */ 
str = '' 
do j = 1 while chars(Example.txt) > 0 
   str = ' ' (charin(Example.txt)) 
   call charout ,str 
end  

例如：`Rexx_file_eof.rexx`——

• 上述程式中需要注意以下事項 -

• 首先，一個字串變數被分配為一個空值。

• 然後使用“do loop”一次讀取一個字元。

每個字元被讀取併發送到控制檯。

當我們執行上面的程式時，將得到以下結果。

E x a m p l e 1 
E x a m p l e 2 
E x a m p l e 3