Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 27
Program
Remove duplicate characters

---

DATA _NULL_;
   CHARS = 'aeelmpx';

   DO C = 2 TO VLENGTH(CHARS);
      IF C > LENGTH(CHARS) THEN LEAVE;
      DO WHILE (SUBSTR(CHARS, C - 1, 1) = SUBSTR(CHARS, C, 1));
         IF C + 1 > VLENGTH(CHARS) THEN SUBSTR(CHARS, C) = ' ';
         ELSE SUBSTR(CHARS, C) = SUBSTR(CHARS, C + 1);
         IF C > LENGTH(CHARS) THEN LEAVE;
         END;
      END;
      
   PUT CHARS;
RUN;