有个小问题困惑了很久，请高手解答

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问如何把下面ASC码的数据转化成标准的数据格式
10000001 001011
10000002050000000000000000000000000000000000000000000000000000000000000050000000
10000003030000050000000000000000000000000000000000000000000000000000000020000000
10000004000000050000000000000000000000000000000000000000020000000000000030000000
10000005000000010000000020000000000000000000000000000000020020000000000030000000
10000006000000040000000000000000000000000000000000000000030000000000000030000000
10000007000000010000000020000000000000000000000000000000020020000000000030000000
10000008 001012
10000009040060000000000000000000000000000000000000000000000000000000000000000000
10000010000000090000000010000000000000000000000000000000000000000000000000000000
10000011040060000000000000000000000000000000000000000000000000000000000000000000
10000012000000090000000010000000000000000000000000000000000000000000000000000000
10000013040060000000000000000000000000000000000000000000000000000000000000000000
10000014000000090000000010000000000000000000000000000000000000000000000000000000

其中：10000001行是编号 id1011
10000002至10000007开始是以0为间隔，二位数
如10000002是50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50,0,0;变量名为a1-a24
如10000003是30,0,50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,0,0;变量名为b1-b24

........
10000008行是另一个 id1012；
请问这个数据如何转化成变量为id，a1-a24 ,b1-b24的数据格式

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：小问题 数据格式 数据转化 如何

哇哇，路过

1. data out;
   
2.     infile datalines dlm=',' ;
   
3.     input @; _infile_=substr(_infile_,10);
   
4.     input id :$6. @;
   
5.     input / @; _infile_=prxchange('s/(\d{2})0/$1,/',-1,substr(_infile_,10));
   
6.     input a1-a24 @;
   
7.     input / @; _infile_=prxchange('s/(\d{2})0/$1,/',-1,substr(_infile_,10));
   
8.     input b1-b24 @;
   
9.     input / @; _infile_=prxchange('s/(\d{2})0/$1,/',-1,substr(_infile_,10));
   
10.     input c1-c24 @;
    
11.     input / @; _infile_=prxchange('s/(\d{2})0/$1,/',-1,substr(_infile_,10));
    
12.     input d1-d24 @;
    
13.     input / @; _infile_=prxchange('s/(\d{2})0/$1,/',-1,substr(_infile_,10));
    
14.     input e1-e24 @;
    
15.     input / @; _infile_=prxchange('s/(\d{2})0/$1,/',-1,substr(_infile_,10));
    
16.     input f1-f24 @;
    
17. datalines;
    
18. 10000001 001011
    
19. 10000002050000000000000000000000000000000000000000000000000000000000000050000000
    
20. 10000003030000050000000000000000000000000000000000000000000000000000000020000000
    
21. 10000004000000050000000000000000000000000000000000000000020000000000000030000000
    
22. 10000005000000010000000020000000000000000000000000000000020020000000000030000000
    
23. 10000006000000040000000000000000000000000000000000000000030000000000000030000000
    
24. 10000007000000010000000020000000000000000000000000000000020020000000000030000000
    
25. 10000008 001012
    
26. 10000009040060000000000000000000000000000000000000000000000000000000000000000000
    
27. 10000010000000090000000010000000000000000000000000000000000000000000000000000000
    
28. 10000011040060000000000000000000000000000000000000000000000000000000000000000000
    
29. 10000012000000090000000010000000000000000000000000000000000000000000000000000000
    
30. 10000013040060000000000000000000000000000000000000000000000000000000000000000000
    
31. 10000014000000090000000010000000000000000000000000000000000000000000000000000000
    
32. ;

复制代码

谢谢分享！