2. Функции выполнения циклов

В R 6 появились четыре @-функции, которые реализуют соответственно организацию циклов по счетчику, циклов с пред и постусловием и цикл по элементам списка.

 @For( инициализация_цикла; условие_цикла;

изменение_счетчика; оператор1

[; …; операторN] )

Область применения: нельзя использовать в формулах отбора, колонок, видимости объекта, редактируемой секции, заголовка окна, всплывающих окон и области размещения.

Осуществляет выполнение цикла по счетчику. Выражение инициализация_цикла определяет начальное значение счетчика цикла, условие_цикла – выражение, значение которого должно быть 1 (TRUE) – для продолжения вычислений, и 0 (FALSE) – для выхода из цикла, изменение_счетчика – выражение, в котором изменяется счетчик цикла, оператор1, …, операторN – операторы тела цикла. Общее число операторов цикла не должно превышать 252. Возвращаемое суммарное значение оператора @For есть 1 (TRUE), если ошибок при выполнении не произошло, и ситуация ошибки «unexpected data type» («неожидаемый тип данных»), если условие_цикла на каком-либо шаге вернет нечисловое значение.

Пример 1. Вычисление суммы чисел от 1 до 100.

summa := 0;

rez := @For(i := 1; i <= 100; i := i + 1; summa := summa + i);

@Prompt([OK]; "Инфо"; "Сумма чисел от 1 до 100 = " + @Text( summa ));

REM {выдаст Сумма чисел от 1 до 100 = 5050};

@Prompt([OK]; "Инфо"; @Text( rez ));

REM {выдаст 1}

Из опыта: в теле цикла можно самостоятельно менять переменную цикла; по выходу из цикла значение счетчика сохраняется; если изначально условие цикла не выполняется, то операторы цикла не выполняются. В случае написания бесконечного цикла, система автоматически выполнит выход из «зацикливания», либо по таймауту, либо по переполнению памяти.

В документации сказано, что циклы не предназначены для работы в формулах колонках видов и отбора документов. Однако, опять же из опыта (по крайней мере в R 6.0.1), в этих контекстах они работают. Перед использованием циклов в формулах отбора и колонок (особенно в серверных БД) следует очень хорошо подумать, дабы не «повесить» сервер.

Пример 2. Приведенная ниже формула используется в колонке вида. В документах вида присутствует поле my_num, которое может принимать множественные значения типа число. В формуле колонки вида считается среднеарифметическое значение поля my_num для каждого документа. Следует заметить, что формула работает и при задании для этого столбца сортировок и категоризаций.

summa := 0;

@For(i:=1; i <= @Elements(my_num); i := i + 1; summa := summa + my_num[i]);

summa/@Elements(my_num)

Пример 3. Несколько видоизмененный пример 2. Формула используется в формуле отбора, и отбирает только те документы, у которых среднеарифметическое значение поля my_num больше 10.

summa := 0;

@For(i:=1; i <= @Elements(my_num); i := i + 1; summa := summa + my_num[i]);

select summa/@Elements(my_num) > 10

 @While( условие_цикла; оператор1

[; …; операторN] )

Область применения: нельзя использовать в формулах отбора, колонок, видимости объекта, редактируемой секции, заголовка окна, всплывающих окон, формы и области размещения.

Осуществляет выполнение цикла с предусловием. Выражение условие_цикла должно принимать значение 1 (TRUE) – для продолжения вычислений, и 0 (FALSE) – для выхода из цикла, оператор1, …, операторN – операторы тела цикла. Общее число операторов цикла не должно превышать 254. Возвращаемое суммарное значение оператора @While есть 1 (TRUE), если ошибок при выполнении не произошло, и ситуация ошибки «unexpected data type» («неожидаемый тип данных»), если условие_цикла на каком-либо шаге вернет нечисловое значение. Если условие цикла неверно изначально – цикл не выполнится ни разу.

Пример. Вычисление суммы чисел от 1 до 100.

summa := 0;

i := 0;

rez := @While(i < 100; i := i + 1; summa := summa + i);

@Prompt([OK]; "Инфо"; "Сумма чисел от 1 до 100 = " +

@Text( summa ));

REM {выдаст Сумма чисел от 1 до 100 = 5050};

@Prompt([OK]; "Инфо"; @Text( rez ));

REM {выдаст 1}

 @DoWhile( оператор1 ; [ …; операторN;]

условие_цикла )

Область применения: нельзя использовать в формулах отбора, колонок, видимости объекта, редактируемой секции, заголовка окна, всплывающих окон и области размещения.

Осуществляет выполнение цикла с постусловием. Выражение условие_цикла должно принимать значение 1 (TRUE) – для продолжения вычислений, и 0 (FALSE) – для выхода из цикла, оператор1, …, операторN – операторы тела цикла. Общее число операторов цикла не должно превышать 254. Возвращаемое суммарное значение оператора @DoWhile есть 1 (TRUE), если ошибок при выполнении не произошло, и ситуация ошибки «unexpected data type» («неожидаемый тип данных»), если условие_цикла на каком-либо шаге вернет нечисловое значение. Если условие_цикла неверно изначально – цикл выполнится один раз.

Пример. Вычисление суммы чисел от 1 до 100.

summa := 0;

i := 0;

rez := @DoWhile(i := i + 1; summa := summa + i; i < 100);

@Prompt([OK]; "Инфо"; "Сумма чисел от 1 до 100 = " + @Text( summa ));

REM {выдаст Сумма чисел от 1 до 100 = 5050};

@Prompt([OK]; "Инфо"; @Text( rez ));

REM {выдаст 1}

 @Transform( список; ссылка_на_элемент_списка;

функция )

Область применения: нельзя использовать в формулах отбора, колонок, видимости объекта, редактируемой секции, заголовка окна, всплывающих окон и области размещения.

Осуществляет выполнение цикла по всем элементам списка. Ссылка_на_элемент_списка позволяет в теле функции обратиться к конкретному элементу списка. Функция должна возвращать значение для каждого элемента списка. Суммарное возвращаемое значение @Transform и есть список, получившийся поэлементным применением функции к списку. Тип возвращаемого значения @Transform определяется на первой итерации, по типу возвращаемого значения функции на первом элементе списка. Все последующие значения должны быть такого же типа. Если на какой-то итерации функция вернет список, то этот список так же добавится в возвращаемое значение. @Transform возвращает состояние ошибки если на какой-то итерации таковая произошла при выполнении функции. Если на какой-то итерации функция вернет в качестве значения @Nothing, то этим самым на данной итерации в результирующий список не добавится значения на этой итерации.

Пример. Выровняет все элементы по правому краю, если длина строки больше 5, произойдет усечение до 5-ти символов слева, иначе недостающие слева символы дополнятся символом тире. Переменной b присвоится значение “12345” : ”123--” : ”12---” : ”12345”.

a := " 1234567 ": " 123" : " 12 " : " 12345 ";

b := @Transform( a; "x" ; @If(@Length(@Trim(x)) > 5;

@Left(@Trim(x);5); @Trim(x) +

@Repeat("-"; 5 - @Length(@Trim(x)))));

 @Nothing

Область применения: нельзя использовать в формулах отбора, колонок, видимости объекта, редактируемой секции, заголовка окна, всплывающих окон, формы и области размещения.

В контексте функции @Transform возвращает значение, которое не добавляется в результирующий список. Во всех остальных контекстах возвращает пустую строку.

Пример 1. Изменим пример, относящийся к функции @Transform, таким образом, чтобы в случае, когда исходный элемент списка имел длину больше 5, то такие значения в выходной список не должны попадать. Переменной b присвоится значение ”123--” : ”12---” : ”12345”.

a := " 1234567 " : " 123" : " 12 " : " 12345 ";

b := @Transform( a; "x" ; @If(@Length(@Trim(x)) > 5;

@Nothing; @Trim(x) +

@Repeat("-"; 5 - @Length(@Trim(x)))));

Пример 2. Возвращает 1 (TRUE).

@IsNull(@Nothing);