怎样把字符串中的空格移到前面，使字符串右对齐

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

给出一列数a1，要得到的变量a2是将这列数和它所占的百分比连在一起，且a2中原来数的部分和百分比的部分都要靠右对齐：
a1           a2
50      50  (50%)
19      19  (19%)
14      14  (14%)
12      12  (12%)
  4        4    (4%)
  1        1    (1%)
也就是a2中的0,9,4,2,4,1对齐，所有)都要对齐。

提供可操作代码如下：

1. data a;
   
2. input a1 @@;
   
3. cards;
   
4. 50 19 14 12 4 1
   
5. ;
   
6. run;
   
7. proc sql;
   
8. select sum(a1) into :n from a;
   
9. quit;

复制代码

没对齐的参考程序如下：

1. data b;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：字符串 proc sql Select Elect Input SAS

根据length来补空格吧

先把a1转化成规定长度的字符型，然后在合并就行啦

1. data a;input a1 @@;cards;50 19 14 12 4 1;run;
   
2. data b(keep=a1 a2);        set a;        b = put(a1,2.);        a2 = b||"("||b||"%)";run;

复制代码

guanglei 发表于 2016-4-19 18:14
先把a1转化成规定长度的字符型，然后在合并就行啦

左边括号也要贴着数字

孤单的我们 发表于 2016-4-19 17:25
根据length来补空格吧

怎么在左边补空格~我还是不会！

孤单的我们 发表于 2016-4-19 17:25
根据length来补空格吧

只能想到这样：

1. data b;
   
2. set a;
   
3. a3=put(round(100*a1/&n,1),5.)||'%)';
   
4. substr(a3,anyalnum(a3)-1,1)='(';
   
5. a2=put(a1,3.)||a3;
   
6. drop a3;
   
7. run;

复制代码

5傻小不点 发表于 2016-4-19 18:58
只能想到这样：

data b;
set a;
a2=put(a1,2.)||" ("||put(round(100*a1/&n,.1),4.1)||"%)";
run;

孤单的我们 发表于 2016-4-20 09:29
data b;
set a;
a2=put(a1,2.)||" ("||put(round(100*a1/&n,.1),4.1)||"%)";

左边括号有的没贴着数字额(⊙o⊙)…左边的括号不用对齐，只要贴着数字就可以了

5傻小不点 发表于 2016-4-20 10:14
左边括号有的没贴着数字额(⊙o⊙)…左边的括号不用对齐，只要贴着数字就可以了

1. data b;
   
2. set a;
   
3. a2="("||strip(put(round(100*a1/&n,.1),4.1))||"%)";
   
4. if length(a2)=7 then a3=put(a1,2.)||" "||a2;
   
5. else if length(a2)=6 then a3=put(a1,2.)||"  "||a2;
   
6. else if length(a2)=5 then a3=put(a1,2.)||"   "||a2;
   
7. run;

复制代码

孤单的我们 发表于 2016-4-20 10:20

谢谢~