Remove Hyphen / Space / Underlines but no compressing?

[ybz12003]

Hello,

I would like to remove all th eHyphen / Space / Underlines in the dataset 'Text' but no compressing, just leave the number and letter with space formats.  Thanks.

data Text;
      infile datalines dsd;
  input NewID : $15. TempID_1 : $15.  TempID_2 : $15. TempID_3 : $15. TempID_4 : $15.;
datalines;
1156 IL, 89__46, 88--53, , , 
1487 KM, __8956, _78-52__, , ,
000-597, -1596_, 4113, , ,
C_ _-1156, 4986__, 0_0-0_8, , ,
208, 8M _ O23, , , ,
_21156--, 89   66, 885 - 2, 5 5 5 9, , 
;

[PaigeMiller · Accepted solution]

You can use the TRANSLATE function. Example to replace underscores and hyphens with a blank:

   z=translate(y,' ','_-');

[ed_sas_member]

Hi @ybz12003 ,

Does this output meet your expectations? If not, please specify the expected output.

best,

data Text;
      infile datalines dsd;
  input NewID : $15. TempID_1 : $15.  TempID_2 : $15. TempID_3 : $15. TempID_4 : $15.;
datalines;
1156 IL, 89__46, 88--53, , , 
1487 KM, __8956, _78-52__, , ,
000-597, -1596_, 4113, , ,
C_ _-1156, 4986__, 0_0-0_8, , ,
208, 8M _ O23, , , ,
_21156--, 89   66, 885 - 2, 5 5 5 9, , 
;

data want;
	set Text;
	array _var (*) NewID TempID_1-TempID_4;
	do i=1 to dim(_var);
		_var(i) = prxchange('s/^\s|-|_|\s$/ /',-1,_var(i));
	end;
	drop i;
run;

[PaigeMiller]

To steal the logic from @ed_sas_member and use TRANSLATE()

data Text;
      infile datalines dsd;
  input NewID : $15. TempID_1 : $15.  TempID_2 : $15. TempID_3 : $15. TempID_4 : $15.;
  array _var(*) newid tempid_1-tempid_4;
  do i=1 to dim(_var);
      _var(i)=translate(_var(i),' ','-_');
	end;
datalines;
1156 IL, 89__46, 88--53, , , 
1487 KM, __8956, _78-52__, , ,
000-597, -1596_, 4113, , ,
C_ _-1156, 4986__, 0_0-0_8, , ,
208, 8M _ O23, , , ,
_21156--, 89   66, 885 - 2, 5 5 5 9, , 
;

[ybz12003]

Thank you so much for all of wonderful help!