Язык процедур 2-REXX для OS-2

ABBREV


Функция ABBREV возвращает результат 1, если значение инфо совпадает с первыми символами значения информации и длина инфо не меньше, чем длина. Функция ABBREV возвращает результат 0, если вышеперечисленные условия не выполняются.

Длина, если она указана, должна представлять собой целое неотрицательное число. Длина, принимаемая по умолчанию, равна количеству символов в значении инфо.

Ниже приведено несколько примеров: ABBREV('Print','Pri') -> 1 ABBREV('PRINT','Pri') -> 0 ABBREV('PRINT','PRI',4) -> 0 ABBREV('PRINT','PRY') -> 0 ABBREV('PRINT','') -> 1 ABBREV('PRINT','',1) -> 0

Прим.Если указана длина, равная 0, то это соответствует пустой строке (или значению по умолчанию). Поэтому при желании можно автоматически выбирать ключевые слова, принимаемые по умолчанию. Например: say 'Введите режим:'; pull option . select /* keyword1 принимается по умолчанию */ when abbrev('keyword1',option) then ... when abbrev('keyword2',option) then ... ... otherwise nop; end;



Содержание раздела