有偿请教一道程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在一组数据里面只有一个变量，一个变量之中有若干email地址有可能出现在一行或者两行或者100行（未知）.我希望能够把所有的email地址合并到一行然后删除其他所有合并前的email并保留其它所有非邮件地址的观测值。 例子如下：
(要求用一个data step 实现，不用能proc 或者2个data step）
有偿求教，可以联系我QQ：5231747



原数据

aadsas
basdas
casdas
dsadsa
[邮件地址有可能是一行，两行，两百行。。
...
e@xxx.com a@xxx.com
b@xxx.com c@xxx.com
...
aasdas
sadas
dasdasda
fasdas
gasdas


希望的输出:
aadsas
basdas
casdas
dsadsa
...e@xxx.com a@xxx.comb@xxx.com c@xxx.com...
aasdas
sadas
dasdasda
fasdas
gasdas

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Data step Email地址 dasdas Email sadsa email地址 程序

1. data a;
   
2. input a $50.  @@;
   
3. if index(a,'@') then a1=1;
   
4. cards;
   
5. aadsas
   
6. basdas
   
7. casdas
   
8. dsadsa
   
9. e@xxx.com a@xxx.com
   
10. b@xxx.com c@xxx.com
    
11. aasdas
    
12. m@xxx.com n@xxx.com k@xxx.com
    
13. sadas
    
14. dasdasda
    
15. fasdas
    
16. gasdas
    
17. run;
    
18. 
    
19. data c1 c2;
    
20. set a;
    
21. select (a1);
    
22. when ('1') output c1;
    
23. when ('') output c2;
    
24. end;
    
25. run;

复制代码

不对哦，要放在一个table里面不分开，而且邮件是几行你不知道

可以QQ联系 或者其他方式，有偿！！！！

1. data a;
   
2. input a $50.  @@;
   
3. cards;
   
4. aadsas
   
5. basdas
   
6. casdas
   
7. dsadsa
   
8. e@xxx.com a@xxx.com
   
9. b@xxx.com c@xxx.com
   
10. aasdas
    
11. m@xxx.com n@xxx.com k@xxx.com
    
12. sadas
    
13. dasdasda
    
14. fasdas
    
15. xxx@bbb.com
    
16. gasdas
    
17. ;
    
18. run;
    
19. 
    
20. data wanted;
    
21.     length a b $100;
    
22.     set a;
    
23.         retain flag 1;
    
24.         if index(a,"@")=0 then output;
    
25.         else if index(a,"@") and flag then do;
    
26.        do until( last);
    
27.             set a(where=(index(a,"@"))) end=last;
    
28.                 b=catx(" ",b,a);
    
29.            end;
    
30.            a=b; output;
    
31.            flag=0;
    
32.         end;
    
33.         drop b flag;
    
34. run;

复制代码