c****y
发帖数: 584 | 1 I have a set of number with different digits. I want to make all of them 6
digits, if they are not, adding zero to the right? Like this,
Original data set
x
345
4567
777777
23567
.
.
.
Desired result look like this,
x
345000
456700
777777
235670
.
.
.
Thanks very much! Will send baozi for the help. |
l***a
发帖数: 12410 | 2 x*10**(6-length(a))
【在 c****y 的大作中提到】
: I have a set of number with different digits. I want to make all of them 6
: digits, if they are not, adding zero to the right? Like this,
: Original data set
: x
: 345
: 4567
: 777777
: 23567
: .
: .
|
o****o
发帖数: 8077 | 3 data x;
input x;
m=int(log10(x))+1;
z=length(x);
y=x*10**(6-m);
datalines;
345
4567
777777
23567
;
run;
【在 l***a 的大作中提到】
: x*10**(6-length(a))
|
c****y
发帖数: 584 | 4 WHAT IF THESE ARE CHARACTER? |
c****y
发帖数: 584 | 5 WHAT IF THESE ARE CHARACTER? |
s******r
发帖数: 1524 | 6 if ANYALPHA(chrr)=0 then ...
【在 c****y 的大作中提到】
: WHAT IF THESE ARE CHARACTER?
|
f*****k
发帖数: 110 | 7 data trial (keep=x);
length x $6;
input x ;
y=count(x,' ') ;
i=1;
do while (i<=y);
x=trim(x)||'0';
i=i+1;
end;
datalines;
345
4567
777777
23567
;
run;
【在 c****y 的大作中提到】
: WHAT IF THESE ARE CHARACTER?
|
A*******s
发帖数: 3942 | 8 简单而粗暴的做法
length newchar $ 6;
newchar=cats(x, '000000');
【在 c****y 的大作中提到】
: WHAT IF THESE ARE CHARACTER?
|
h******s
发帖数: 3420 | 9 应该把＂0＂加在前面，用
put（x, z6.)
【在 c****y 的大作中提到】
: I have a set of number with different digits. I want to make all of them 6
: digits, if they are not, adding zero to the right? Like this,
: Original data set
: x
: 345
: 4567
: 777777
: 23567
: .
: .
|
f*****k
发帖数: 110 | 10 为嘛只得到空白而不是想要的结果呢？如何合理粗暴？
data trial ;
length x y $6;
input x ;
y=cats(x, '000000');
datalines;
345
4567
777777
23567
;
run;
WARNING: In a call to the CATS function, the buffer allocated
for the result was not long enough to contain the
concatenation of all the arguments. The correct result
would contain 11 characters, but the actual result may
either be truncated to 6 character(s) or be completely
blank, depending on the calling environment. The
following note indicates the left-most argument that
caused truncation.
【在 A*******s 的大作中提到】
: 简单而粗暴的做法
: length newchar $ 6;
: newchar=cats(x, '000000');
|
|
|
A*******s
发帖数: 3942 | 11 嗯，不试还不知道
果然过于简单粗暴了
稍微温柔一点
y=substr(cats(x, '000000'), 1, 6);
【在 f*****k 的大作中提到】
: 为嘛只得到空白而不是想要的结果呢？如何合理粗暴？
: data trial ;
: length x y $6;
: input x ;
: y=cats(x, '000000');
: datalines;
: 345
: 4567
: 777777
: 23567
|
o****o
发帖数: 8077 | 12 data x;
input x $6.;
y=translate(x, '0', ' ');
datalines;
345
4567
777777
23567
;
run;
【在 A*******s 的大作中提到】
: 嗯，不试还不知道
: 果然过于简单粗暴了
: 稍微温柔一点
: y=substr(cats(x, '000000'), 1, 6);
|
f*****k
发帖数: 110 | 13 嗯，温柔就是好啊。不过要是能控制the calling environment得到truncated 6
character(s)就更漂亮了。怎么办呢？
【在 A*******s 的大作中提到】
: 嗯，不试还不知道
: 果然过于简单粗暴了
: 稍微温柔一点
: y=substr(cats(x, '000000'), 1, 6);
|
l***a
发帖数: 12410 | 14 没太明白你的意思
【在 f*****k 的大作中提到】
: 嗯，温柔就是好啊。不过要是能控制the calling environment得到truncated 6
: character(s)就更漂亮了。怎么办呢？
|
f*****k
发帖数: 110 | 15 还是这个函数用的最漂亮，怪不得Actuaries说你是SAS大拿。你是SAS programmer么？除了多练之外，还有什么诀窍才能精通这么多SAS函数？
【在 o****o 的大作中提到】
: data x;
: input x $6.;
: y=translate(x, '0', ' ');
: datalines;
: 345
: 4567
: 777777
: 23567
: ;
: run;
|
D******n
发帖数: 2836 | 16 oloolo 是SAS的大師。 他的SAS code經常讓人倒抽一口涼氣。
？除了多练之外，还有什么诀窍才能精通这么多SAS函数？
【在 f*****k 的大作中提到】
: 还是这个函数用的最漂亮，怪不得Actuaries说你是SAS大拿。你是SAS programmer么？除了多练之外，还有什么诀窍才能精通这么多SAS函数？
|
A*******s
发帖数: 3942 | 17 yep... i think SAS should give him bonus coz he can use stupid SAS for
everything...
【在 D******n 的大作中提到】
: oloolo 是SAS的大師。 他的SAS code經常讓人倒抽一口涼氣。
:
: ？除了多练之外，还有什么诀窍才能精通这么多SAS函数？
|
P****D
发帖数: 11146 | 18 颤抖吧，凡人！
——oloolo
【在 D******n 的大作中提到】
: oloolo 是SAS的大師。 他的SAS code經常讓人倒抽一口涼氣。
:
: ？除了多练之外，还有什么诀窍才能精通这么多SAS函数？
|
D******n
发帖数: 2836 | 19 “凡人一寫SAS code，oloolo就發笑。”
---米蘭-薩斯啦
【在 P****D 的大作中提到】
: 颤抖吧，凡人！
: ——oloolo
|
f*****k
发帖数: 110 | 20 原来oloolo是技术与理论兼备的大师，那应该叫“似神非人”。希望神人有空的时候给
我等凡人科普一下SAS。例如function和routine 有什么区别了，为何要call啊，为什
么有些功能是在compilation中用而有些是在execution中用。诶呀，这要科普的地方可
真是太多了。
【在 D******n 的大作中提到】
: oloolo 是SAS的大師。 他的SAS code經常讓人倒抽一口涼氣。
:
: ？除了多练之外，还有什么诀窍才能精通这么多SAS函数？
|
|
|
f*****k
发帖数: 110 | 21 如果能控制the calling environment得到truncated 6 character(s)的话，只需要用
cats（）就可以了。祥见第10楼。
【在 l***a 的大作中提到】
: 没太明白你的意思
|
c****y
发帖数: 584 | 22 膜拜ing。。。。
【在 o****o 的大作中提到】
: data x;
: input x $6.;
: y=translate(x, '0', ' ');
: datalines;
: 345
: 4567
: 777777
: 23567
: ;
: run;
|
D******n
发帖数: 2836 | 23 請對號入座。
很少寫SAS，口裡罵SAS。
經常寫SAS，心卻無SAS。
手上無SAS，心中有SAS。
我就是SAS，SAS就是我。 <--- oloolo 境界。
【在 f*****k 的大作中提到】
: 原来oloolo是技术与理论兼备的大师，那应该叫“似神非人”。希望神人有空的时候给
: 我等凡人科普一下SAS。例如function和routine 有什么区别了，为何要call啊，为什
: 么有些功能是在compilation中用而有些是在execution中用。诶呀，这要科普的地方可
: 真是太多了。
|
d******9
发帖数: 404 | 24 Good job!
y=translate(x, '0', ' ');
使用 tranwrd 似乎也可以吧。
y=tranwrd (X, '', '0 ');
【在 o****o 的大作中提到】
: data x;
: input x $6.;
: y=translate(x, '0', ' ');
: datalines;
: 345
: 4567
: 777777
: 23567
: ;
: run;
|
l*******s
发帖数: 437 | |
