While ...Do 循环示例

erina.pan

下例搜索输入字符串中数字第一次出现的位置。如果发现了数字，则返回该数字的位置，否则返回 -1。在此示例中，输入字符串被显式设置为字符串常量，但它也可被设置为等于“字符串”类型的数据库字段。

例如，对于输入字符串“The 7 Dwarves”，公式返回 5，即数字 7 的位置。

Local StringVar inString := "The 7 Dwarves";

Local NumberVar strLen := Length (inString);

Local NumberVar result := -1;

Local NumberVar i := 1;

While i <= strLen And result = -1 Do

(

   Local StringVar c := inString [i];

   If NumericText (c) Then

      result := i;

   i := i + 1;

);

result