scan函数的应用问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有一列数据为：
{“var1”:"234","brand":"OMG","motor":""}
{“var1”:"321","brand":"YS","motor":"123"}

如何变成
var1 brand motor
234 OMG  空
321 YS   123

空的意思那个值为空

有大神可以解决嘛，谢谢啦

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：scan 应用问题 brand Motor MOTO motor 如何

1. data test;
   
2. input text : $200.;
   
3. cards;
   
4. {"var1":"234","brand":"OMG","motor":""}
   
5. {"var1":"321","brand":"YS","motor":"123"}
   
6. ;
   
7. 
   
8. data _null_;
   
9. set test end=last;
   
10.   num=count(text,":")*2;
    
11.   if last then call symput("num",compress(num));
    
12. run;
    
13. 
    
14. data _null_;
    
15. set test end=last;
    
16.   text=compress(text,'""{}');
    
17.   text=tranwrd(text,':','="');
    
18.   text=tranwrd(text,',','";');
    
19.   text=strip(text)||'";output;';
    
20. 
    
21.   length code $1000 varlist $200;
    
22.   retain code;
    
23.   array var[&num] $ var1-var&num.;
    
24.   do i=1 to &num by 2;
    
25.    var[i]=scan(text,i,'"=;');
    
26.    varlist=strip(varlist)||''||var[i];
    
27.   end;
    
28. 
    
29. if _n_=1 then code=text;
    
30. else code=strip(code)||strip(text);
    
31. 
    
32. if last then do;
    
33. call execute('data wanted; '||'length '||strip(varlist)||' $200;');
    
34. call execute(code);
    
35. call execute('run;');
    
36. end;
    
37. run;
    
38. 
    
39. 代码编辑器显示有问题，请改一下21行，就是定义了一下两个变量的长度。

复制代码