紧急求助

在excel 中   左边是原始文件   右边是想要得到的   谢谢哇  直接拿出所有论坛币了

直接读取excel转换吗？

zhengbo8 发表于 2015-10-23 22:32
直接读取excel转换吗？

excel 或者 sas都可以的

完美解决。求币啦~{:2_31:}
附上数据。 rawdata.xlsx (8.87 KB)

2015-10-23 23:08:21 上传

1. PROC IMPORT OUT= WORK.raw
   
2.             DATAFILE= "D:\rawdata.xlsx"
   
3.             DBMS=EXCEL REPLACE;
   
4.      RANGE="Sheet1[        DISCUZ_CODE_0        ]quot;;
   
5.      GETNAMES=YES;
   
6.      MIXED=NO;
   
7.      SCANTEXT=YES;
   
8.      USEDATE=YES;
   
9.      SCANTIME=YES;
   
10. RUN;
    
11. 
    
12. data result;
    
13. 
    
14.         set raw;
    
15. 
    
16.         length name temp $200;
    
17.         retain temp;
    
18. 
    
19.         if _n_=1 then temp=_COL1;
    
20.         if _COL1='' then _COL1=temp; else temp=_COL1;
    
21. 
    
22.         _COL4=tranwrd(_COL4,"、","|");
    
23. 
    
24.         i=1;
    
25.         name=strip(scan(_COL4,i,'| '));
    
26. 
    
27.         do while (strip(scan(_COL4,i,'| ')) ne '');
    
28.                 name=strip(scan(_COL4,i,'| '));
    
29.                 i=i+1;
    
30.                 output;
    
31.         end;
    
32. 
    
33.         keep _COL1 _COL2 _COL3 name;
    
34. 
    
35. run;

复制代码

zhengbo8 发表于 2015-10-23 23:07
完美解决。求币啦~
附上数据。

WARNING: The quoted string currently being processed has become more than 262 bytes long.
         You might have unbalanced quotation marks.
19           length name temp $200;
20           retain temp;
7         RANGE="Sheet1[        DISCUZ_CODE_0        ]quot;;
                --------------------------------------------
                49
NOTE 49-169: 加引号字符串后的标识符的含义可能在将来的 SAS 版本中更改。
             建议在加引号的字符串和其后的标识符之间插入空格。

21
22           if _n_=1 then temp=_COL1;
23           if _COL1='' then _COL1=temp; else temp=_COL1;
24
25           _COL4=tranwrd(_COL4,"、","|");
                                  --
                                  22
ERROR 22-322: 期望: ;.

26
27           i=1;
28           name=strip(scan(_COL4,i,'| '));
29
30           do while (strip(scan(_COL4,i,'| ')) ne '');
31                   name=strip(scan(_COL4,i,'| '));
32                   i=i+1;
33                   output;
34           end;
35
36           keep _COL1 _COL2 _COL3 name;
37
38   run;

小鳄鱼a 发表于 2015-10-23 23:30
WARNING: The quoted string currently being processed has become more than 262 bytes long.
        ...

这不是程序问题，是论坛贴代码时遇到$乱解析。
使用我的sas程序文件试试。
记得把后缀改为sas。{:2_28:}
test.txt (607 Bytes)

2015-10-23 23:35:32 上传

zhengbo8 发表于 2015-10-23 23:35
这不是程序问题，是论坛贴代码时遇到$乱解析。
使用我的sas程序文件试试。
记得把后缀改为sas。{:2_28: ...

能否说下excel都改的什么内容      因为左边那列栏目比较多    应该怎么修改呢

不用修改，去掉你右边示例的结果。

zhengbo8 发表于 2015-10-23 23:43
不用修改，去掉你右边示例的结果。

谢谢个000000000000000000000000000000