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 構文）