Kbase P10777: How to eliminate spaces in a variable or field string
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
14/11/2008 |
|
Status: Unverified
GOAL:
How to eliminate spaces in a variable or field string
FIX:
DEF VAR a AS CHAR INIT "MARY HAS A LITTLE LAMB".
DEF VAR b AS CHAR INIT "".
DEF VAR i AS INT.
DO i = 1 TO LENGTH(a):
IF SUBSTRING(a,i,1) = "" THEN b = b.
IF SUBSTRING(a,i,1) NE "" THEN b = b + SUBSTRING(a,i,1).
END.
MESSAGE a b VIEW-AS ALERT-BOX.