topic Re: How to replace the word using array and tranwrd in SAS Programming

How to replace the word using array and tranwrd

blueskyxyz — Fri, 27 Dec 2019 08:09:33 GMT

data test1;
	length string $1000;
    string= "THIS IS A REALLY LONG STRING THAT I WANT TO SPLIT G LONG ENOUGH TO SPLIT";
	array str{4} $ 50 ('not', 'is', 'a', 'to' ) ;
	mid=string;
	do i=1 to 4;
		y=trim(upcase(str{i}));
		x=trim(str{i});
		if index(mid,y) then do; mid=tranwrd(mid,y ,x );
			put x y mid;
		end;
	end;
	string=mid;
run;

my code cannot work, to get the final result as below:

THIS is a REALLY LONG STRING THAT I WANT to SPLIT G LONG ENOUGH to SPLIT

Re: How to replace the word using array and tranwrd

blueskyxyz — Fri, 27 Dec 2019 08:18:59 GMT

replace a word a time, this can work, for example, tranwrd(string,"IS" ,"is" );

but it cannot work using array and do-loop, why? how to modify the code?

Re: How to replace the word using array and tranwrd

D_ph14 — Fri, 27 Dec 2019 08:53:39 GMT

Try using trim for variables x and y:

if index(mid,trim(y)) then do;
mid=tranwrd(mid, trim(y), trim(x) );
put x y mid;
end;

Re: How to replace the word using array and tranwrd

Ksharp — Fri, 27 Dec 2019 11:43:39 GMT

data test1;
	length string want $1000;
    string= "THIS IS A REALLY LONG STRING THAT I WANT TO SPLIT G LONG ENOUGH TO SPLIT";
	array str{4} $ 50 ('not', 'is', 'a', 'to' ) ;
	call missing(want);
	do i=1 to countw(string,' ');
      temp=scan(string,i,' ');
	  if lowcase(temp) in str then want=catx(' ',want,lowcase(temp));
	   else want=catx(' ',want,temp);
	end;

run;

Re: How to replace the word using array and tranwrd

ed_sas_member — Fri, 27 Dec 2019 12:05:41 GMT

Hi @blueskyxyz

You can easily do that using the PRXCHANGE function:

data test1;
	length string $1000;
	string="THIS IS A REALLY LONG STRING THAT I WANT TO SPLIT G LONG ENOUGH TO SPLIT";
	mid=prxchange('s/(\bNOT\b|\bIS\b|\bA\b|\bTO\b)/\L$1/', -1, string);
run;

This code :

1 - Search for the pattern NOT or IS or A or TO (\b identifies a word boundary)

2 - Replace it ($1) by its lowercase equivalent (lowcase = \L) as many times as needed (-1 as a second argument)

Re: How to replace the word using array and tranwrd

hashman — Sat, 28 Dec 2019 21:39:42 GMT

@blueskyxyz:

Possible. But you need to:

make sure that only the words in the list are lowcased if surrounded by blanks
account for the endpoints with one-sided blanks if any

Here's one way:

data want (keep = s) ;                                                                                                                  
  s = "IS IT POSSIBLE TO LOWCASE WORDS A IS NOT TO IN A LONG STRING USING TRANWRD OR NOT" ;                                             
  array w $3 w1-w4 ("a" "is" "not" "to") ;                                                                                              
  retain b "" ;                                                                                                                         
  do over w ;                                                                                                                           
    s = left (tranwrd (b || s || b, b || upcase (trim (w)) || b, b || trim (w) || b)) ;                                                 
  end ;                                                                                                                                 
  put s ;                                                                                                                              
run ;

Result:

is IT POSSIBLE to LOWCASE WORDS a is not to IN a LONG STRING USING TRANWRD OR not

Kind regards

Paul D.

Re: How to replace the word using array and tranwrd

Patrick — Sun, 29 Dec 2019 02:05:03 GMT

Same as @ed_sas_member just with a small change to the RegEx

data _null_ ;                                                                                                                  
  s = "IS IT POSSIBLE TO LOWCASE WORDS A IS NOT TO IN A LONG STRING USING TRANWRD OR NOT" ;  
  s=prxchange('s/\b(a|is|not|to)\b/\L\1/oi',-1,trim(s));                                                                                                      
  put s ;  
  stop; 
run;

Re: How to replace the word using array and tranwrd

blueskyxyz — Sun, 29 Dec 2019 06:58:44 GMT

Hi @ed_sas_member, thanks for your method using RegEx.

It is very clear with your detailed explanations.

Re: How to replace the word using array and tranwrd

blueskyxyz — Sun, 29 Dec 2019 22:45:34 GMT

Thanks @hashman , my confusion is clear up.

Re: How to replace the word using array and tranwrd

blueskyxyz — Sun, 29 Dec 2019 22:47:13 GMT

Thanks @D_ph14 , but it can get what I want

Re: How to replace the word using array and tranwrd

blueskyxyz — Sun, 29 Dec 2019 23:01:09 GMT

@Ksharp ，I appreciate your help, if the variable has a lot of characters, it will time consuming to combine each word a time using catx function.

Re: How to replace the word using array and tranwrd

Ksharp — Mon, 30 Dec 2019 11:12:36 GMT

Did you try Patrick's PRXCHANGE() ?