項目内容の圧縮
文字項目内にある余分な空白を削除するには、
CONDENSE 令を次のように使用します。構文
CONDENSE <c> [NO-GAPS].
この命令では、項目
<c> ある左側の空白文字がすべて削除され、その他の空白文字列は空白１個だけに置換されます。結果は左詰めされた単語列になり、それぞれはひとつの空白で区切られます。 NO-GAPS を追加指定すると、すべての空白が削除されます。
DATA: STRING(25) 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:
25one two three four !
Length:
18onetwothreefour !
Length:
15項目
STRING の合計長は変わらずに（感嘆符を見てください）、削除された空白は右側に移っています。