While ... Do 循环示例（Crystal 语法）

下例搜索输入字符串中数字第一次出现的位置。如果发现了数字，则返回该数字的位置，否则返回 -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

Crystal Reports for Rational Application Developer 设计员指南

While ... Do 循环示例（Crystal 语法）