Is there an easier way? data test; Input textchar : $5.; cards; 00100 00101 01010 10100 10101; run; data want; set test; new1 = tranwrd(textchar, "0", " "); /* replace zeros with spaces */ new2 = substr(new1, verify(new1,' ')) /* remove spaces */ new3 = tranwrd(new2 , " ", "0"); /* replace spaces with zeros */ new4 = substr(new3, 1, length(new2)); /* remove trailing zeros */ run;
... View more