将aaa1和aaa2根据分开，得到新数据集

dxystata

3824

收藏 2014-01-20

悬赏 200 个论坛币已解决

复制代码

将aaa1和aaa2根据！分开然后插在aaa数据集前面，
希望得到的数据集为：
m c
p q
a b c
d e f

最佳答案

pobel 查看完整内容

data bbb; if 0 then set aaa; array tmp $ _all_; If _N_=1 then do; aaa1=tranwrd("&aaa1","!"," !"); do i=1 to dim(tmp); tmp(i)=scan(aaa1,i,"!"); end; output; aaa2=tranwrd("&aaa2","!"," !"); do i=1 to dim(tmp); tmp(i)=scan(aaa2,i,"!"); end; output; end; set aaa; output; drop aaa1 aaa2 i; run;

扫码加我拉你入群

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

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

全部回复

pobel

2014-1-20 07:43:38

data bbb;
if 0 then set aaa;
array tmp $ _all_;
If _N_=1 then do;
      aaa1=tranwrd("&aaa1","!"," !");
do i=1 to dim(tmp);
   tmp(i)=scan(aaa1,i,"!");
end;
output;
      aaa2=tranwrd("&aaa2","!"," !");
do i=1 to dim(tmp);
   tmp(i)=scan(aaa2,i,"!");
end;
output;
end;
set aaa;
output;
drop aaa1 aaa2 i;
run;

扫码加我拉你入群

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

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

dengrong1989

2014-1-20 09:31:06

%let aaa1=m! !c!;
%let aaa2=! !p!q!;

data aaa;
input x$ y$ z$;
cards;
a b c
d e f
;
run;
data bbb;
x=scan("&aaa1",1,'!');
y=scan("&aaa1",2,'!');
z=scan("&aaa1",3,'!');
output;
x=scan("&aaa2",1,'!');
y=scan("&aaa2",2,'!');
z=scan("&aaa2",3,'!');
output;
run;
data ccc;
set bbb aaa;
run;

具体问题我不是很清楚，简单的写了下，aaa1和aaa2我加了个空格不然读不了

扫码加我拉你入群

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

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

dxystata

2014-1-20 11:20:13

程序不通用啊！

扫码加我拉你入群

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

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

dxystata

2014-1-20 11:33:47

复制代码

扫码加我拉你入群

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

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

dxystata

2014-1-20 11:34:25

希望得到的数据集为：
m c d
p q w
a b c d
d e f g

扫码加我拉你入群

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

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

点击查看更多内容…

dxystata

2014-1-20 19:32:34

pobel 发表于 2014-1-20 13:20
data bbb;
if 0 then set aaa;
      array tmp $ _all_;
      If _N_=1 then do;
         aaa1=tranwrd("&aaa1","!"," !");
            do i=1 to dim(tmp);
               tmp(i)=scan(aaa1,i,"!");
            end;
            output;
         aaa2=tranwrd("&aaa2","!"," !");
            do i=1 to dim(tmp);
               tmp(i)=scan(aaa2,i,"!");
            end;
            output;
      end;
      set aaa;
      output;
      drop aaa1 aaa2 i;
run;

谢谢pobel兄！

能否再macro中实现
%macro a(dset=,out=);

%end;

如果在macro之前只指定&aaa1，就在数据集前面加1行&aaa1分解的值。
%let aaa1=m!!c!;
%a(dset=aaa,out=bbb);

如果&aaa2也指定，就在数据集前面加2行，其中第1行为&aaa1分解的值，第2行为&aaa2分解的值
%let aaa1=m!!c!;
%let aaa2=!p!q!;
%a(dset=aaa,out=bbb);

=======================================
先运行
%let aaa1=m!!c!;
%let aaa2=!p!q!;
%a(dset=aaa,out=bbb);

再运行
%let aaa1=m!!c!;
%a(dset=ccc,out=ddd);

前一段对后一段的运行没有影响。
=======================================
在调用%a之前，最多会设置4个：
%let aaa1=;
%let aaa2=;
%let aaa3=;
%let aaa4=;

扫码加我拉你入群

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

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

pobel

2014-1-21 08:32:25

%macro test(dset=aaa,out=bbb);
data &out;
if 0 then set &dset;
      array tmp $ _all_;
      If _N_=1 then do;
   %do j=1 %to 4;
      %if %symexist(aaa&j) %then %do;
            aaa=tranwrd("&&aaa&j","!"," !");
                  do i=1 to dim(tmp);
                     tmp(i)=scan(aaa,i,"!");
                  end;
                  output;
%end;
   %end;
      end;
      set &dset;
      output;
      drop aaa i;
run;
%mend;

%let aaa1=m!!c!d!;
%let aaa3=!p!q!w!;

data aaa;
input x$ y$ z$ z1$;
cards;
a b c d
d e f g
;
run;

%test()

扫码加我拉你入群

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

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

farmman60

2014-1-21 08:39:53

data aaa;
input x$ y$ z$ z1$;
cards;
a b c d
d e f g
;
run;

option mlogic mprint symbolgen;
%macro merge (aaa1,aaa2,indsn,outdsn);
%let aaa1=m!!c!d!;
%let aaa2=!p!q!w!;

filename myfile 'c:\temp.csv' ;
data _null_;
file myfile;
_file_=" &aaa1 &aaa2 ";
put dummy1 ;
run;

proc sql noprint;
select cats(name,'$') into: vars separated by ' ' from dictionary.columns where libname='WORK' and memname=upcase("&indsn");
quit;

data &outdsn;
infile 'c:\temp.csv' dlm='!' dsd ;
input &vars @@;
run;
proc append base=&outdsn data=&indsn force;
run;

%mend;

%merge(aaa1,aaa2,aaa,want)

扫码加我拉你入群

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

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

dxystata

2014-1-21 09:16:20

%let aaa1=m!!c!d!;
%let aaa2=!p!q!w!;
放在macro外的！

扫码加我拉你入群

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

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

yongyitian

2014-1-21 11:34:47

用％let　语句定义宏变量时, 等号(＝)与第一个字符间的空格，和最后一个字符与分号( ；)间的空格会被自动删除。

lz 用　! 作为分隔符。当要分隔的字符为空时，可以用％str（）函数来代替空格。这样定义的宏变量可读性强，而且在程序中也容易处理。不一定要用
%let aaa1=m!!c!;
%let aaa2=!p!q!w!;　

复制代码

扫码加我拉你入群

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

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

dxystata

2014-1-22 05:28:57

请版主扣我150论坛币，dengrong1989 farmman60 yongyitian各50论坛币！谢谢！

扫码加我拉你入群

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

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

zw612003

2014-1-22 10:22:04

pobel 发表于 2014-1-21 08:32
%macro test(dset=aaa,out=bbb);
data &out;
if 0 then set &dset;

神SAS，要继续学习！！

扫码加我拉你入群

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

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

zw612003

2014-1-25 18:47:07

pobel 发表于 2014-1-20 07:43
data bbb;
if 0 then set aaa;
array tmp $ _all_;

想和你请教一下，为什么在%sysfunc里面写的代码很多时候都和外面写的不一样。找回这个帖子才知道怎么在%sysfunc里面用tranwrd，很悲剧，这个问题遇到两三次了。

%let a = A||B;
%let b = %sysfunc(tranwrd( &a.,|,%str( |)));

%put &b.;
data _null_;
b = tranwrd("&a.",'|',' |');
put b;
run;

扫码加我拉你入群

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

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

pobel

2014-1-26 08:59:04

zw612003 发表于 2014-1-25 18:47
想和你请教一下，为什么在%sysfunc里面写的代码很多时候都和外面写的不一样。找回这个帖子才知道怎么在%s ...

tranwrd的参数都是字符串，所以在data步环境下，字符串要用引号。而宏处理的时候是不需要引号。

所在的环境不一样，写法也就有所差别。

扫码加我拉你入群

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

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

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群