跟crackman读SAS程序（83）--如何在数据集中的特定位置插入列

shiyiming · 发表于 2010-10-28 14:13:19

From crackman's blog on Baidu

比如数据集A（里面有100个字段），数据集B（里面有20个字段） 
 
根据数据集A中的ID匹配数据集B中的ADDRESS，产生新的数据集C 
 
要求数据集C有A的所有内容，和B的ADDRESS，但是B的ADRRESS必须放在A中取出的ID和ID_TYPE中间 
 
proc sql noprint; 
select upcase(name) into :var_list separated by ' ' 
from dictionary.columns 
where libname='WORK' and memname='A'; 
quit; 
/*第一个：利用UPCASE函数消除大小写不一致的情况，让所有的变量都进入宏变量VAR_LIST字符串中*/
/*利用DICTIONSARY COLUMNS这个TABLE里面的LIBNAME MENNAME，确定要获取变量名的数据集*/ 
%let var1=ID; 
%let var2=ADDRESS; 
%let pos1=%index(&var_list,&var1);/*获得你要插入位置前的变量的位置，INDEX返回一个数字值*/ 
%let pos2=%eval(&pos1+1+%length(&var2));/*插入一个字符串之后，插入之后，之前预定要插入位置的下一个字符串的起始位置*/ 
%let new_list=%sysfunc(catx(%str( ),%substr(&var_list,1,%eval(&pos1-1)),&var1,&var2,%substr(&var_list,&pos2)));/*连接形成新的字符串宏变量值*/ 
 
data c; 
retain &new_list; 
merge a b; 
by id; 
run; 
 
1 INDEX函数的利用，发现在一个字符串中，某个特定字符或者字符串的位置
2 LENGTH或者一个字符串的长度
3 CATX的连接，注意这里有一个%STR（).
 <a href="http://hi.baidu.com/crack%5Fman/blog/item/7bc555641a0cf6d08cb10dc8.html">阅读全文</a>

 类别：<a href="http://hi.baidu.com/crack%5Fman/blog/category/%B8%FAcrackman%B6%C1sas%B3%CC%D0%F2">跟crackman读sas程序</a> <a href="http://hi.baidu.com/crack%5Fman/blog/item/7bc555641a0cf6d08cb10dc8.html#comment">查看评论</a>

shiyiming · 发表于 2011-4-18 05:18:24

为什么我运行你的程序后显示的是
proc sql noprint;
select upcase(name) into :var_list separated by ' '
from dictionary.columns
where libname='d' and memname='c';
[color=#FF4040:3cm8h25z]NOTE: No rows were selected.[/color:3cm8h25z]
为什么？我装了sql组件的

		自动登录	找回密码
密码			立即注册

跟crackman读SAS程序（83）--如何在数据集中的特定位置插入列

跟crackman读SAS程序（83）--如何在数据集中的特定位置插入列

Re: 跟crackman读SAS程序（83）--如何在数据集中的特定位置插入列