提取数据

各位大神， 我想把下表中Y列数据提取"品名、数量”两列，程序应该怎么编写？

Y	品名	数量
07960极速曾艳剂2瓶	07960极速曾艳剂	2瓶
01024真皮增亮剂2瓶	01024真皮增亮剂	2瓶
多功能泡沫清洁剂32瓶	多功能泡沫清洁剂	32瓶
洗车人家小毛巾2条	洗车人家小毛巾	2条
一次性手套30个	一次性手套	30个
一次性口罩30包	一次性口罩	30包
砭鹊酒店油烟机清洗机1台	砭鹊酒店油烟机清洗机	1台
HT-154刷机/HT-154一台	HT-154刷机/HT-154	一台
飞天宋4.5米3根	飞天宋4.5米	3根
飞天唐鱼竿4.5米4根	飞天唐鱼竿4.5米	4根
飞跃赤焰4.5米3根	飞跃赤焰4.5米	3根

1. data test;
   
2. length y $100.;
   
3. input y $;
   
4. cards;
   
5. 07960极速曾艳剂2瓶
   
6. 01024真皮增亮剂2瓶
   
7. 多功能泡沫清洁剂32瓶
   
8. 洗车人家小毛巾2条
   
9. 一次性手套30个
   
10. 一次性口罩30包
    
11. 砭鹊酒店油烟机清洗机1台
    
12. HT-154刷机/HT-154一台
    
13. 飞天宋4.5米3根
    
14. 飞天唐鱼竿4.5米4根
    
15. 飞跃赤焰4.5米3根
    
16. ;
    
17. run;
    
18. 
    
19. data test1;
    
20. set test;
    
21. Pattern1=PRXPARSE('/^(.+\D)(\d+\D{2}\s+)$/');
    
22. Pattern2=PRXPARSE('/^(.+\d)(\D{4,}\s+)$/');
    
23. if PRXMATCH(Pattern1,y) then
    
24.         do;
    
25. /*        match1=PRXMATCH(Pattern1,y);*/
    
26.         pm=PRXPOSN(Pattern1,1,y);
    
27.         sl=PRXPOSN(Pattern1,2,y);
    
28.         end;
    
29. else if PRXMATCH(Pattern2,y) then
    
30.         do;
    
31. /*        match2=PRXMATCH(Pattern2,y);*/
    
32.         pm=PRXPOSN(Pattern2,1,y);
    
33.         sl=PRXPOSN(Pattern2,2,y);
    
34.         end;
    
35. run;

复制代码

data a;
      set yourdata(drop = Y);
run;

foocares 发表于 2017-5-16 09:13
data a;
      set yourdata(drop = Y);
run;

这个程序直接删除了Y列，不是我想要的结果呀~

1. data aa;
   
2.         set a;
   
3.         length Y $200;
   
4.         Y=strip(品名)||strip(数量);
   
5. run;

复制代码

无心メ无绪 发表于 2017-5-16 10:07

这个程序也没有运行出结果来~

我理解错了 Y是现在有的data 后面两列才是要做的吧？我理解反了 这个就是所有的data吗？会有类似“HT-154刷机/HT-154十一台”这样的data吗？有的话就不知道怎么做了

data aa;
   set tablename;
   Y=trim(var1)||var2;
run;

你把品名和数量的英文变量名找出来  填上去就好

1. data a;
   
2. length x $50.;
   
3. x='1114mkd1ge';output;
   
4. x='223kmkd2ping';output;
   
5. x='mmkmkd332tiao';output;
   
6. x='mmklm3mi';output;
   
7. x='mmkl4mk33ge';output;
   
8. x='m3geng';output;
   
9. x='m#3TWOgeng';output;
   
10. x='HT -15/ht-145YIgeng';output;
    
11. run;
    
12. 
    
13. data b;
    
14. set a;
    
15. length name num $50.;
    
16. nn=prxmatch("/YI|TWO/",x);
    
17. if nn ne 0 then do;name=substr(x,1,nn-1);num=substr(x,nn); end;
    
18. else do;
    
19. name=prxchange("s/(.+)?(\D)(\d+.+\s)/\1\2/",-1,x);/*update----begin with only word,such as 'm3geng'*/
    
20. num=prxchange("s/(.+)?(\D)(\d+.+\s)/$3/",-1,x);
    
21. end;
    
22. run;

复制代码

1. data b;
   
2.     set a;
   
3.     attrib product length=$50 label='品名';
   
4.     attrib quantity length=$50 label='数量';
   
5.     retain prxID1 prxID2;
   
6.     if _n_=1 then do;
   
7.        prxID1=prxparse('m/(\d+)(瓶|根|米|台|个|条|包)$/');
   
8.        prxID2=prxparse('m/([一二三四五六七八九十廿卅卌百千万零壹贰叁肆伍陆柒陆柒捌玖拾佰仟亿]+)(瓶|根|米|台|个|条|包)$/');
   
9.     end;
   
10.         p1=prxmatch(prxID1,trim(y));
    
11.     select;
    
12.        when (p1) do;
    
13.                         product=substr(y,1,P1-1);
    
14.                         quantity=substr(y,p1);
    
15.            end;
    
16.        otherwise do;
    
17.                            p2=prxmatch(prxID2,trim(y));
    
18.                         if p2>0 then do;
    
19.                                 product=substr(y,1,P2-1);
    
20.                                 quantity=substr(y,p2);
    
21.                         end;
    
22.            end;
    
23.     end;
    
24.         drop p1 p2 prxID1 prxID2;
    
25. run;

复制代码