如何读入数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

txt数据如下：

@Results
BeginTopModels
X1,X8 0.6077778
X1,X6 0.5977778
X1,X3 0.5927777
X1,X7 0.5894444
X1,X20 0.58805555
X1,X12 0.58777773
X6,X8 0.5872222
X1,X13 0.5825
X1,X5 0.5811111
X1,X15 0.5808333
X3,X17 0.58000004
X1,X14 0.5788889
X1,X4 0.57638884
X8,X16 0.57416666
X4,X15 0.5738889
X1,X9 0.5733334
X1,X11 0.5725
X2,X20 0.5719445
X1,X19 0.57166666
X4,X11 0.57138884
EndTopModels
Attr X1,X8 Train 170.0 10.0 129.0 51.0 0.0 Test 17.0 3.0 15.0 5.0 0.0
Attr X1,X6 Train 117.0 63.0 77.0 103.0 0.0 Test 9.0 11.0 11.0 9.0 0.0
Attr X1,X8 Train 168.0 12.0 130.0 50.0 0.0 Test 19.0 1.0 14.0 6.0 0.0
Attr X1,X6 Train 113.0 67.0 75.0 105.0 0.0 Test 13.0 7.0 13.0 7.0 0.0
Attr X1,X8 Train 171.0 9.0 129.0 51.0 0.0 Test 16.0 4.0 15.0 5.0 0.0
Attr X1,X8 Train 167.0 13.0 131.0 49.0 0.0 Test 20.0 0.0 13.0 7.0 0.0
Attr X1,X8 Train 168.0 12.0 131.0 49.0 0.0 Test 19.0 1.0 13.0 7.0 0.0
Attr X1,X8 Train 169.0 11.0 130.0 50.0 0.0 Test 18.0 2.0 14.0 6.0 0.0
Attr X1,X8 Train 124.0 56.0 86.0 94.0 0.0 Test 12.0 8.0 11.0 9.0 0.0
Attr X1,X8 Train 168.0 12.0 127.0 53.0 0.0 Test 19.0 1.0 17.0 3.0 0.0
Attr X1,X8 AvgTrain 153.5 26.5 114.5 65.5 0.0 AvgTest 16.2 3.8 13.6 6.4 0.0 Train 187.0 13.0 144.0 56.0 0.0 Summary 8
BeginModelDetail
0,1 48 32
0,0 12 16
0,2 22 13
1,1 51 47
1,0 47 39
1,2 0 16
2,1 1 20
2,0 19 13
2,2 0 4
EndModelDetail
@End

如何读入BeginTopModels和EndTopModels之间的内容？得到两列变量，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：读入数据 results Summary models detail 如何

1. data test;
   
2. infile datalines length=len;
   
3. input raw $varying300. len;
   
4. retain flag;
   
5. if raw='BeginTopModels' then flag=1;
   
6. else if raw='EndTopModels' then flag=0;
   
7. a = scan(raw,1,' ');
   
8. b = scan(raw,2,' ');
   
9. if flag=1 and raw^='BeginTopModels' then output;
   
10. keep a b;
    
11. datalines;

复制代码

1. filename test 'C:\Ben Xu\03 Mysas_file\test.txt';
   
2. data raw;
   
3.     infile test dlm=' ';
   
4.     input @;
   
5.     flag+-(_infile_='EndTopModels');
   
6.     if flag then do;
   
7.         input x :$10. y;
   
8.         output;
   
9.     end;
   
10.     flag+(_infile_='BeginTopModels');
    
11. run;

复制代码

MDR-SampleData1.txt (18.46 KB, 需要: 500 个论坛币)

2011-8-28 16:18:49 上传

需要: 500 个论坛币  [购买]

读进的数据我想以空格分隔分成两个变量

顶一下,学习下读取文本文件

1. filename test 'C:\Ben Xu\03 Mysas_file\MDR-SampleData1.txt';
   
2. data raw(drop=flag);
   
3.     infile test dlm='09'x;
   
4.     input @;
   
5.     flag+-(_infile_='EndTopModels');
   
6.     if flag then do;
   
7.         input x :$20. y;
   
8.         output;
   
9.     end;
   
10.     flag+(_infile_='BeginTopModels');
    
11. run;

复制代码

学无止境啊，不懂得我太多了