Rexx - 行数

此函数返回 1 或输入流中剩余的行数。文件名作为函数的输入给出。

语法

lines(filename)  

参数

• filename − 这是文件名。

返回值

此函数返回 1 或输入流中剩余的行数。

示例

/* Main program */ 
do while lines(Example.txt) > 0 
   line_str = linein(Example.txt) 
   say line_str 
end  

在上面的程序中，需要注意以下几点。

• lines 函数读取 Example.txt 文件。

• while 函数用于检查 Example.txt 文件中是否存在更多行。

• 对于从文件中读取的每一行，line_str 变量都保存当前行的值。然后将其发送到控制台作为输出。

输出 − 当我们运行上述程序时，我们将得到以下结果。

Example1 
Example2 
Example3

lines 命令还有另一种变体，如下所示：

语法

lines(filename,C)

参数

• filename − 这是文件名。

• C − 这是提供给函数的常数值。此值指定要从文件中读取的剩余行数。

返回值

返回值是从文件中剩余要读取的行数。

示例

/* Main program */ 
count = lines(Example.txt,C) 
say count 
line_str = linein(Example.txt) 

say line_str 
count = lines(Example.txt,C) 
say count 

当我们运行上述程序时，我们将得到以下结果。

输出

3 
Example1 
2