Please try this: data test_1; set test; length word $32. Observation_1 $72.; delims = " =;,.()<>/'"; /* delimiters: space, comma, period, ... */ numWords = countw(Observation, delims); /* determining how many words in the text */ Observation_1=''; do i = 1 to numWords; /* split text into words */ word = scan(Observation, i, delims); if compress(word) in ('H1', 'H2', 'H3', 'N1', 'N2') then Observation_1=trim(Observation_1)||compress(word)||','; end; Observation_1=substr(compress(Observation_1), 1, length(compress(Observation_1))-1); keep user Observation Observation_1; run;
... View more