问个程序啊

类似这个    换了个情况   不会处理了   https://bbs.pinggu.org/thread-3951022-1-1.html

楼主你好，请试试我的代码：

1. proc import
   
2.   out = table_base
   
3.   datafile = "Y:\Host\example.xls"
   
4.   dbms = excel replace;
   
5.   range = "sheet1$A1:G30";
   
6. run;
   
7. 
   
8. data wanted(drop = tmp_name i name_count);
   
9.   set table_base;
   
10. 
    
11.   tmp_name = Ananm;
    
12. 
    
13.   name_count = countw(tmp_name, ",");
    
14. 
    
15.   do i = 1 to name_count;
    
16.     Ananm = scan(tmp_name, i, ",");
    
17.         output;
    
18.   end;
    
19. run;

复制代码

这个里面唯一一个有点技术含量的语句就是那个countw，它判断出有几个名字，然后就需要循环几次。

建议你把文件里的数据拿出来放在帖子里。否则很多人看到收流量费就不去下载文件了。

1. data input;
   
2.         input Annual Indus :$10. Indnme :$15. Rank Ananm :$100. Brokern :$100. Brokercd :$20.;
   
3.         cards;
   
4.         2007        40        固定收益        2        李志强        中信证券股份有限公司        BIZXZQ01
   
5.         2007        40        固定收益        3        何欣,罗樱,贾祖国        招商证券股份有限公司        BIZSZQ01
   
6.         2007        C0        食品饮料        2        许彪,毛长青,薄官辉        中信证券股份有限公司        BIZXZQ01
   
7.         2007        C0        食品饮料        1        朱卫华,黄珺        招商证券股份有限公司        BIZSZQ01
   
8.         2007        C0        食品饮料        3        刘树坤,王爱景        联合证券有限责任公司        BILHZQ01
   
9.         2007        C76        电力设备        1        彭继忠        国信证券股份有限公司        BIGXZQ01
   
10.         2007        C76        电力设备        3        刘磊        中信证券股份有限公司        BIZXZQ01
    
11.         2007        C76        电力设备        2        杨军        联合证券有限责任公司        BILHZQ01
    
12.         2007        C8        医药生物        1        张明芳        招商证券股份有限公司        BIZSZQ01
    
13.         2007        C8        医药生物        2        罗鶄,吴一峰        申银万国证券股份有限公司        BISYWG01
    
14.         2007        C8        医药生物        5        黄挺,王晞,王斌        兴业证券股份有限公司        BIXYZQ01
    
15.         2007        C8        医药生物        4        姚杰        中信证券股份有限公司        BIZXZQ01
    
16.         2007        C8        医药生物        3        孙雅娜        中国国际金融有限公司        BIZJGS01
    
17.         2007        E        建筑和工程        1        潘建平        中信证券股份有限公司        BIZXZQ01
    
18.         2007        E        建筑和工程        2        江孔亮        海通证券股份有限公司        BIHTZQ01
    
19.         2007        E        建筑和工程        3        鱼晋华,邱波        联合证券有限责任公司        BILHZQ01
    
20.         2007        F        公路港口航运        1        于军,谢从军        中信证券股份有限公司        BIZXZQ01
    
21.         2007        F        公路港口航运        2        郑武,田亚琳        平安证券有限责任公司        BIPAZQ01
    
22.         2007        F        公路港口航运        3        唐建华        国信证券有限责任公司        BIGXZQ01
    
23.         2007        I        非银行金融        1        邵子钦        平安证券有限责任公司        BIPAZQ01
    
24.         2007        I        非银行金融        2        朱琰        国信证券有限责任公司        BIGXZQ01
    
25.         2007        I        非银行金融        3        罗毅        招商证券股份有限公司        BIZSZQ01
    
26.         2008        20        策略研究        1        高挺,郦彬,梁耀文,王汉锋,侯振海        中国国际金融有限公司        BIZJGS01
    
27.         2008        20        策略研究        2        陈李,徐妍,安昀,朱康平,戴卉卉        申银万国证券股份有限公司        BISYWG01
    
28.         2008        20        策略研究        3        周金涛,钟华,张凡,李冒余,薛俊,时伟翔,刘冬        长江证券有限责任公司        BICJZQ01
    
29.         2008        20        策略研究        4        王成,翟鹏,章锦涛,章秀奇,莫言钧        国泰君安证券股份有限公司        BIGTJA01
    
30.         2008        20        策略研究        5        程定华,张治,诸海滨        安信证券股份有限公司        BIAXZQ01
    
31.         2008        L        传播与文化        1        金宇        中国国际金融有限公司        BIZJGS01
    
32.         2008        L        传播与文化        2        谭晓雨        国泰君安证券股份有限公司        BIGTJA01
    
33.         ;
    
34. run;
    
35. 
    
36. data output;
    
37.         set input;
    
38.         drop i t_ananm;
    
39.         i=1;
    
40.         t_ananm=ananm;
    
41.         do while(scan(t_ananm,i,",")~="");
    
42.                 ananm=scan(t_ananm,i,",");
    
43.                 i=i+1;
    
44.                 output;
    
45.         end;
    
46. run;

复制代码

sniperhgy 发表于 2015-10-28 20:25
楼主你好，请试试我的代码：这个里面唯一一个有点技术含量的语句就是那个countw，它判断出有几个名字，然后 ...

非常感谢

小鳄鱼a 发表于 2015-10-29 15:51
非常感谢

共同提高