CONDENSE

CONDENSE — оператор, удаляющий избыточные пробелы в текстовой строке.

Синтаксис
CONDENSE c [NO-GAPS]. Оператор CONDENSE удаляет ведущие пробелы в строке c и заменяет любые последовательности пробелов ровно одним пробелом. В результате формируется выровненная влево последовательность, слова в которой отделены друг от друга ровно одним пробелом.

Дополнительный оператор NO-GAPS удаляет все пробелы в текстовой строке.

Пример
DATA: string(25) TYPE c VALUE ' one two   three    four', len TYPE I. len = strlen( string ). WRITE: string, '!'. WRITE: / 'Length: ', len. CONDENSE string. len = strlen( string ). WRITE: string, '!'. WRITE: / 'Length: ', len. CONDENSE string NO-GAPS. len = strlen( string ). WRITE: string, '!'. WRITE: / 'Length: ', len. Результат: one two   three    four  ! Length:         25 one two three four       ! Length:         18 onetwothreefour          ! Length:         15 Обратите внимание, что длина текстового поля string не изменилась — удаленные пробелы выведены справа.