第四十八章 Caché 命令大全 FOR（旧版） 命令

重复执行命令循环，并在每个循环的开始进行测试。

大纲

FOR variable=forparameter,... command
F variable=forparameter,... command

其中forparameter可以是：

expr
start:increment
start:increment:end

命令是同一程序行上的一个或多个CachéObjectScript命令。该命令（或多个命令）基于FOR测试重复执行。

参数

• variable 可选-FOR循环的计数器变量。
• expr 可选-执行循环命令之前变量的值。
• start 可选-FOR循环的第一次迭代中的变量值。
• increment 可选-在FOR循环的每次迭代之后用于递增变量的值。
• end 可选-用于终止FOR循环的值。

描述

注意：此页面描述了FOR命令的旧版本。此版本从Caché4.0开始被认为是旧版本，不应在新的编程中使用。此处仅出于与旧版应用程序兼容的目的对其进行描述。

传统的FOR命令是面向行的。它执行的循环由在同一程序行中跟随它的命令组成。不使用花括号，并且行格式是限制性的。新的FOR命令是块结构的；它执行的循环由在FOR命令后面的花括号中找到的命令组成。行格式（空格，换行符）没有限制。

FOR命令具有两种基本形式：

• 有参数
• 无参数

FOR无参数

不带参数的FOR将无限期地执行跟在其后的命令。 Caché重复这些命令，直到遇到QUIT或GOTO命令为止。

不带参数的FOR关键字必须与后面的命令隔开至少两个空格。

FOR有参数

FOR执行的操作取决于使用的参数形式。

FOR variable = expr在同一行执行一次跟随其后的命令，并将变量设置为expr的值。

FOR variable = start：increment无限期地执行跟在其后的命令。在第一次迭代中，Caché将变量设置为start的值。每次执行FOR命令都会使变量值增加指定的增量值。 Caché重复执行命令，直到遇到QUIT或GOTO命令为止。

FOR variable = start：increment：end将变量设置为start的值。然后，Caché根据此表中描述的条件在同一行上执行紧随其后的命令：

Caché在开始执行命令时会计算起始值，增量值和结束值。在循环中对这些值所做的任何更改都将被忽略，并且对循环执行次数没有影响。

循环终止时，变量包含一个值，该值反映了上一次执行循环所产生的增量。但是，变量永远不会增加超过最终指定的最大值。

参数

variable

变量，用于保存FOR循环的当前计数。它是一个本地变量名称，其中包含由FOR命令的其他参数指定的数值。

expr

在执行循环命令之前，Caché的数字值分配给变量。 expr的值可以指定为文字或任何有效的表达式； Caché计算expr的数值。

start

Caché的数值在FOR循环的第一次迭代中分配给变量。 start的值可以指定为文字或任何有效的表达式； Caché计算其数值的开始。

increment

在FOR循环的每次迭代之后，Caché都使用数值递增变量。如果指定开始，则为必需。增量值可以指定为文字或任何有效的表达式； Caché计算其数值的增量。

end

Caché用来终止FOR循环的数值。当变量等于该值时，FOR循环最后执行一次，然后终止。 end的值可以指定为文字或任何有效的表达式； Caché计算end的数值。

示例

无参数FOR

在以下示例中，演示了无参数FOR，反复提示用户输入一个数字，然后通过DO命令将其传递给Calc子例程。当用户输入空字符串（按ENTER而不输入数字）时，FOR循环终止，这将导致执行QUIT命令。无参数的FOR关键字必须后跟两个（或更多）空格。

FOR  READ !,"Number: ",num QUIT:num=""  DO Calc(num)

使用 FOR variable=expr

当指定variable = expr时，Caché将执行一次FOR命令。 expr中的值可以是文字或任何有效的表达式。如果指定表达式，则它必须计算为单个数值。

在下面的示例中，与FOR命令一起的WRITE命令执行一次，num的值为4。它将数字12写入：

  SET val=4
  FOR num=val WRITE num*3 QUIT

使用 FOR variable=start:increment:end

参数start，increment和end分别指定一个开始值，增量值和结束值。这三个都被评估为数字。它们可以是整数或实数，正数或负数。如果提供字符串值，则在循环开始时将它们转换为等效的数字。

当Caché第一次进入循环时，它将起始值分配给变量并将变量值与结束值进行比较。如果变量值小于最终值（或在负增量值的情况下大于最终值），则Caché执行循环命令。然后，使用增量值更新变量值。 （如果使用负增量，则变量值将递减。）

循环继续执行，直到变量值的增量超过（不只是等于）最终值为止（或直到Caché遇到QUIT或GOTO为止）。在这一点上，为防止变量超出范围，Caché禁止变量分配并结束循环执行。如果增量导致变量值等于最终值，则Caché会最后一次执行FOR循环，然后终止循环。

以下代码重复执行WRITE命令，以按顺序输出string1中的所有字符，最后一个除外。即使将结束值指定为len-2，也只会跳过最后一个字符。这是因为仅当变量值超过（不只是匹配）最终值时，循环才终止。

  SET len=$LENGTH(string1)
  FOR index=1:1:len-2 WRITE $EXTRACT(string1,index)

使用 FOR variable=start:increment

在这种形式的FOR命令中，没有结束值。 FOR之后的命令必须包含QUIT或GOTO命令才能终止循环。在许多情况下，FOR会调用DO循环，该循环包含QUIT或GOTO命令。

起始值和增量值被计算为数字。它们可以是整数或实数，正数或负数。如果提供了字符串值，则在循环开始时将它们转换为等效的数字。 Caché在开始执行循环时会评估起始值和增量值。在循环内对这些值所做的任何更改都将被忽略。

当Caché首次进入循环时，它将起始值分配给变量并执行循环命令。然后，使用增量值更新变量值。 （如果使用负增量，则变量值将递减。）继续执行循环，直到Caché在循环内遇到QUIT或GOTO为止。

以下示例说明了使用FOR variable = start：increment形式来计算一系列用户提供的数字的平均值。当用户输入空字符串（即，按ENTER键而不输入值）时，包含后置条件QUIT来终止循环的执行。当后置条件表达式（num =“”）测试为TRUE时，Caché执行QUIT并终止DO循环。

循环计数器（i变量）用于跟踪输入了多少个数字。 i初始化为0，因为在用户输入数字后计数器增加。当用户输入空值时，Caché终止循环。循环终止后，SET命令引用i（作为局部变量）以计算平均值。

  SET sum=0
  FOR i=0:1 DO Averageloop
  SET average=sum/i
Averageloop
    READ !,"Number: ",num 
    QUIT:num="" 
    SET sum=sum+num

带增量语法的FOR的其他示例

下面的FOR variable = start：increment表单示例提示用户输入数字，然后将数字和x的当前值传递给DO命令调用的Calc子例程。 x的值初始化为1，并在每次执行循环时加1。当用户按下ENTER时，FOR循环终止，这将导致执行QUIT命令。

  FOR x=1:1 READ !,"Number: ",num QUIT:num="" DO Calc(num,x)
Calc(a,b)

下面的FOR variable = start：increment：end表单示例提示用户输入数字，然后将数字传递给DO调用的Calc子例程。 x的值初始化为1，并在每次执行循环时加1。当x的值超过最终值（3）或用户按下ENTER导致QUIT命令执行时，FOR循环终止。

Mainloop
  FOR x=1:1:3 READ !,"Number: ",num QUIT:num="" DO Calc(num)
Calc(a)

下面的FOR variable = start：increment：end表单示例显示了一个FOR循环，在该循环中从不执行WRITE命令，因为i（10）的第一个值已经大于结束值（1）减去增量值（ 1）。

   FOR i=10:1:1 WRITE i

下面的示例显示一个FOR循环，该循环执行WRITE命令10次，然后以i = 10结束。

   FOR i=1:1:10 WRITE i

下面的示例显示一个FOR循环，该循环执行WRITE命令10次，然后以i = 11结束。

  SET i=1 
  FOR i=1:0:10 WRITE i,! SET i=i+1

将FOR与多个FOR参数一起使用

单个FOR命令可以包含两种类型的参数语法。以下是具有多个for参数的FOR的示例。第一个参数是expr语法。第二个参数是start：increment：end语法。两个参数用逗号隔开。第一次通过FOR，Caché使用expr语法，并调用x等于y值的Test子例程。在第二个（及后续）迭代中，Caché使用start：increment：end语法。它将x设置为1，然后设置为2，以此类推。在最后一次迭代中，x = 10。

Mainloop
  FOR x=y,1:1:10 DO Test
Test

使用无参数FOR递增

无参数的FOR操作与FOR variable = start：increment形式相同。唯一的区别是，它没有提供跟踪循环执行次数的方法。在无参数的FOR命令中，FOR关键字之后需要两个（或更多）空格。

下面的示例说明如何使用无参数FOR重写前面的循环计数器示例。分配i = i + 1替换了循环计数器。请注意，无参数FOR关键字后面的两个空格。

Average2loop
  SET sum=0
  SET i=0
  FOR  READ !,"Number: ",num QUIT:num="" SET sum=sum+num,i=i+1
  SET average=sum/i
  WRITE !!,"Average is: ",average
  QUIT

注意

FOR和观察点

只能在FOR中使用监视点。如果为FOR命令的控件（索引）变量建立监视点，则Caché仅在对每个FOR命令参数进行初始求值时触发特定监视点操作。此限制是出于性能方面的考虑。

以下示例包含用于监视变量X的三种FOR命令参数：范围，具有初始值，增量和限制（最终值）；单一价值；以及具有初始值，增量和无限制的范围。当X的初始值为1、20和50时，会发生中断。

DHC-APP>ZBREAK *X
 
DHC-APP>FOR X=1:1:10,20,50:2 SET T=X QUIT:X>69
 
FOR X=1:1:10,20,50:2 SET T=X QUIT:X>69
^
<BREAK>
DHC-APP 2f0>w
 
X=1
i=10
num=5
DHC-APP 2f0>g
 
FOR X=1:1:10,20,50:2 SET T=X QUIT:X>69
^
<BREAK>
DHC-APP 2f0>w
 
T=10
X=20
i=10
num=5
DHC-APP 2f0>g
 
FOR X=1:1:10,20,50:2 SET T=X QUIT:X>69
^
<BREAK>
DHC-APP 2f0>w
 
T=20
X=50
i=10
num=5
DHC-APP 2f0>g
 
DHC-APP>w
 
T=70
X=70
i=10
num=5
DHC-APP>

使用QUIT或GOTO终止FOR循环

仅当QUIT出现为循环命令之一时，QUIT才会终止FOR循环。如果Caché在由DO命令调用的子例程中遇到QUIT，则它将仅终止该子例程，而不终止FOR循环本身。

FOR循环由出现在循环内任何位置的GOTO终止。如果GOTO从DO命令调用的子例程中退出，则Caché会终止该子例程和FOR循环。