求sas大神帮忙，字段整理问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

原来是这样的，如图1，现在想通过简单的sas程序处理成图2，求大神点拨，谢谢了！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：sas程序 程序

data test;
input var $20.;
cards;
,1,,,3,,5
,1,,,,,
,,,,,,
1,,,,,7
;


data wanted;
set test;
do until(index(var,',,')=0);
if index(var,',,') then var=tranwrd(var,',,',',');
end;
if substr(var,1,1)=',' then var=strip(substr(var,2));
if substr(var,length(var))=',' then var=strip(substr(var,1,length(var)-1));
run;

data a;
input var $20.;
cards;
,1,,,13,,5
,1,,,,,
,,,,,,
1,,,,,17
;
run;

data b;
set a;
length item1 $20.;
if prxmatch("/,/",var) then item1=prxchange("s/,?(.+?)(,+)(.+?)(,+)(.+?)/$1,$3,$5/",-1,var);
if prxmatch("/,,,/",item1) then item1=prxchange("s/(.+)(,,,)(.+)/$1,$3/",-1,item1);
if prxmatch("/,\s/",item1) then item1=prxchange("s/(.+),\s/$1/",-1,item1);
if item1=',' then item1='';
run;