remove words from string if the word length is lower than 4

[Ronein]

Hello

How can I remove words from string if the word length is lower than 4?

For example:

For string "The copmany LLTX inc"  I will get "company LLTX"

[ballardw]

What have you tried so far?

Countw, loop over the string, Scan each word, Length function for each word, build new string with CATX function.

[PeterClemmensen]

data test;
   s = "The copmany LLTX inc";
   n = prxchange("s/\b\w{1,3}\b//", -1, s);
run;

[andreas_lds]

I am almost sure that this problem can be solved by using a regular expression and that is you will find code if you would search for it.

[s_lassen]

The answer supplied by @PeterClemmensen is almost there. Except that you may get leading blanks and double blanks in your output, they can be removed by LEFT and COMPBL:

data _null_;
   s = "The copmany LLTX inc";
   n = left(compbl(prxchange("s/\b\w{1,3}\b//", -1, s)));
   put n $quote.;
run;

I changed the demonstration example to a DATA _NULL_, as this makes it easier to see the result in the log, with quotes so that you can easily see the leading blanks.

The PRX expression looks for a word boundary(\b), followed by one to three "word" characters (letter, numbers and underscores, that's \w) and then another word boundary, and that expression is changed to nothing.

If you also want to get rid of other sets of non-blank characters, such as "f.3" or "1,5", you can change the \w to \S, which means any non-blank character.

[PeterClemmensen]

@s_lassen good catch.