Replace last word with another word

Priyamvada07 — Fri, 26 Feb 2021 01:25:42 GMT

Hello,

I have the following dataset and want to replace the last word if it is 'MD' or 'M.D.' or 'MD.' with 'MD'.

DATA EXAMPLE1; INPUT Names $char30.; DATALINES; AARON RAY, M.D. AARON,RAY MD. RAY,AARON,M.D. PMD RAY ARON M.D AARON MD RAY AARON RAY ; run;

I have used the following codes to address the different formats:

if scan(Names,-1,' ')=' MD. ' then Name_temp=tranwrd(Names,' MD. ',' MD ');
if scan(Names,-1,' ')=' M.D. ' then Name_temp=tranwrd(Names,' M.D. ',' MD ');
if scan(Names,-1,' ')='M.D.' then Name_temp=tranwrd(Names,'M.D.','MD');
if scan(Names,-1,' ')=',M.D.' then Name_temp=tranwrd(Names,',M.D.',' MD ');
if scan(Names,-1,' ')=' M.D.' then Name_temp=tranwrd(Names,' M.D.',' MD ');
if scan(Names,-1,' ')=' M.D ' then Name_temp=tranwrd(Names,' M.D ',' MD ');

But only the first name is getting converted.

Let me know what I can do get this output

Obs Names Name_temp

1 AARON RAY, M.D. AARON RAY, MD
2 AARON,RAY MD. AARON RAY, MD
3 RAY,AARON,M.D. AARON RAY, MD
4 PMD RAY ARON M.D AARON RAY, MD
5 AARON MD RAY
6 AARON RAY

Re: Replace last word with another word

ChrisNZ — Fri, 26 Feb 2021 01:49:00 GMT

Like this?

NEWNAME=prxchange('s/M\.?D.\.? *\Z/MD/,1,OLDNAME);

Re: Replace last word with another word

Priyamvada07 — Fri, 26 Feb 2021 07:36:49 GMT

Works perfectly! Code provided by someone on another community.

data want;
    set example1;

    last_word = scan(names, -1, ', ');

    if(compress(last_word, '. ') = 'MD') 
        then name_temp = tranwrd(names, strip(last_word), 'MD');
run;

topic Replace last word with another word in SAS Programming

Replace last word with another word

Re: Replace last word with another word

Re: Replace last word with another word