把数据读入sas

请问大神如何把下面的数据读入sas

证券代码,证券简称,最新评级日期,最新信用等级,评级类型,评级机构,历史信用评级
1182048.IB,11中核电MTN1,2013-06-28,AAA,长期信用评级,中诚信国际信用评级有限责任公司
AAA(长期信用评级-中诚信国际信用评级有限责任公司-20111219)
AAA(长期信用评级-中诚信国际信用评级有限责任公司-20120629)
AAA(长期信用评级-中诚信国际信用评级有限责任公司-20130628)
1182049.IB,11浦发集MTN1,2013-07-23,AAA,长期信用评级,上海新世纪资信评估投资服务有限公司
AA+(长期信用评级-上海新世纪资信评估投资服务有限公司-20120820)
AAA(长期信用评级-上海新世纪资信评估投资服务有限公司-20130723)
1182050.IB,11郑煤MTN1,2013-07-29,AA+,长期信用评级,大公国际资信评估有限公司
AA+(长期信用评级-大公国际资信评估有限公司-20120522)
AA+(长期信用评级-大公国际资信评估有限公司-20130729)
1182051.IB,11渝水利MTN1,2011-12-30,AA,长期信用评级,联合资信评估有限公司
AA(长期信用评级-联合资信评估有限公司-20111230)

我感觉难点在于历史信用评级个数不一样，还请大神不吝赐教

我觉得我没说清楚，可以把历史信用评级写成历史信用评级1  历史信用评级2  历史信用评级3，没有的用空着就行了
谢谢！！！

1. /* You may need to adjust the code for renaming/removing variables */
   
2. 
   
3. data test;
   
4.    infile datalines dlm = '~';
   
5.     length _line_ $2000;
   
6.     length var1-var6 $30 his1-his5 $200 ;
   
7.    array var{6} var1-var6;
   
8.    array his{5} his1-his5;
   
9.    retain k var1-var6 his1-his4 ;
   
10. input _line_ ;
    
11.    if count(_line_, ',')> 1 then do;
    
12.        do i = 1 to 6;
    
13.          Var[i] = scan(_line_, i, ',');
    
14.        end;
    
15.        k = 1;
    
16.      his[k] = scan(_line_, 7, ',');
    
17.    end;
    
18.    else do;
    
19.        k+1;
    
20.      his[k] = _line_;
    
21.    end;
    
22.    output;
    
23.    drop _line_ i;
    
24. datalines;
    
25. yourdata
    
26. ; run;
    
27. 
    
28. data want;
    
29.    set test;
    
30.    by var1;
    
31.    if last.var1;
    
32. run;

复制代码

yongyitian 发表于 2013-11-6 09:42

谢谢您的热心回答，感激不尽···
我的资料有点复杂，我把数据传上来你帮我看一下行吗。历史信用评级和发债主体历史信用评级两列中一个单元格有多个数据，要求是把他们分开各占一行。
谢谢！

H09800332 发表于 2013-11-6 17:41
谢谢您的热心回答，感激不尽···
我的资料有点复杂，我把数据传上来你帮我看一下行吗。历史信用评级和 ...

中期票据信用评级1.xlsx (234.88 KB)

2013-11-6 17:44:15 上传

H09800332 发表于 2013-11-6 17:44

try to use scan() function. For example:
    PingJi = scan(Hist, 1, '(-)');
    Term = scan(hist, 2, '(-)');
    company = scan(his, 3, '(-)');
    date1 = scan(hist, 4, '(-)');