转置求助，谢谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原始数据：
data test;
  input id 1-2 city $3-7 post 8-9 name $10-14 memo $15-40;
datalines;
1 济南 2 张三 施工号的怪的
2 青岛 1 李四 德恒拢了拢返利
2 青岛 3 王五 得改
2 济南 3 赵六 的坑降温池
;
run;

期望格式：

id

济南_1

济南_1m

济南_2

济南2_m

济南_3

济南_3m

青岛_1

青岛_1m

青岛_2

青岛_2m

青岛_3

青岛_3m

1

张三

施工号的怪的

2

赵六

的坑降温池

李四

德恒拢了拢返利

王五

得改

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Lines Input Data 原始数据 line 降温 青岛

1. /* This is for 2 cities and 3 posts */
   
2. 
   
3. data test;
   
4.   input id 1-2 city $ post  name $ memo $;
   
5. datalines;
   
6. 1 JiNan 2 ZhangSan ShiGong
   
7. 2 QingDao 1 LiSi DengHeng
   
8. 2 QingDao 3 WangWu DeGai
   
9. 2 JiNan 3 ZhaoLiu JiangWen
   
10. ;
    
11. 
    
12. data want;
    
13.     array jinan{3, 2} $ Jinan_1  Jinan_1m
    
14.                         Jinan_2  Jinan_2m
    
15.                         Jinan_3  Jinan_3m;
    
16.     array QingDao{3, 2} $ QingDao_1  QingDao_1m
    
17.                           QingDao_2  QingDao_2m
    
18.                           QingDao_3  QingDao_3m;
    
19.         do until (last.id);
    
20.         set test;
    
21.         by id;
    
22.     if city = 'JiNan' then do;
    
23.            jinan(post, 1) = Name;
    
24.            jinan(post, 2) = memo;
    
25.         end;
    
26.      if city = 'QingDao' then do;
    
27.            QingDao(post, 1) = Name;
    
28.            QingDao(post, 2) = memo;
    
29.         end;
    
30.         end;
    
31. run;

复制代码

yongyitian 发表于 2014-7-27 12:00

一如既往地犀利！！！